;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:54:24 1995
;;; from file /gd/gnu/emacs/19.0/lisp/unused.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/unused.el' was compiled for Emacs 19"))


#@42 Set mark at the beginning of the buffer.
(defalias 'mark-beginning-of-buffer #[nil "Àe!‡" [push-mark] 2 (#$ . 481) nil])
#@36 Set mark at the end of the buffer.
(defalias 'mark-end-of-buffer #[nil "Àd!‡" [push-mark] 2 (#$ . 608) nil])
#@64 Uppercasify ARG chars starting from point.  Point doesn't move
(defalias 'upcase-char #[(arg) "ŠÀ`	uˆ`\")‡" [upcase-region arg] 3 (#$ . 723) "p"])
#@98 Move forward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'forward-to-word #[(arg) "À	ÂVƒ Ã‚\f ÄÅÆ	$† 	ÂVƒ d‚ eb‡" [re-search-forward arg 0 "\\W\\b" "\\b\\W" nil t] 5 (#$ . 876) "p"])
#@93 Move backward until encountering the end of a word.
With argument, do this that many times.
(defalias 'backward-to-word #[(arg) "À	[!‡" [forward-to-word arg] 2 (#$ . 1119) "p"])