;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul  6 00:13:05 1993
;;; from file /gd/gnu/emacs/19.0/lisp/unused.el
;;; emacs version 19.15.16.
;;; 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 "This file was compiled for Emacs 19"))

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