;;; compiled by jimb@pogo.cs.oberlin.edu on Fri Aug  7 18:04:10 1992
;;; from file /u/src/emacs/19.0/lisp/unused.el
;;; emacs version 19.0.350.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(fset 'mark-beginning-of-buffer (make-byte-code (quote nil) "Àe!‡" [push-mark] 2 "\
Set mark at the beginning of the buffer." nil))
(fset 'mark-end-of-buffer (make-byte-code (quote nil) "Àd!‡" [push-mark] 2 "\
Set mark at the end of the buffer." nil))
(fset 'upcase-char (make-byte-code (quote (arg)) "ŠÀ`Á\n!ˆ`\")‡" [upcase-region forward-char arg] 4 "\
Uppercasify ARG chars starting from point.  Point doesn't move" "p"))
(fset 'forward-to-word (make-byte-code (quote (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"))
(fset 'backward-to-word (make-byte-code (quote (arg)) "À	[!‡" [forward-to-word arg] 2 "\
Move backward until encountering the end of a word.
With argument, do this that many times." "p"))