;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:10 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/unused.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`unused.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@42 Set mark at the beginning of the buffer.
(defalias 'mark-beginning-of-buffer #[nil "\300e!\207" [push-mark] 2 (#$ . 614) nil])
#@36 Set mark at the end of the buffer.
(defalias 'mark-end-of-buffer #[nil "\300d!\207" [push-mark] 2 (#$ . 747) nil])
#@64 Uppercasify ARG chars starting from point.  Point doesn't move
(defalias 'upcase-char #[(arg) "\212\301`u\210`\")\207" [arg upcase-region] 3 (#$ . 868) "p"])
#@98 Move forward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'forward-to-word #[(arg) "\301\302V\203 \303\202\f \304\305\306$\206 \302V\203 d\202 eb\207" [arg re-search-forward 0 "\\W\\b" "\\b\\W" nil t] 5 (#$ . 1033) "p"])
#@93 Move backward until encountering the end of a word.
With argument, do this that many times.
(defalias 'backward-to-word #[(arg) "\301[!\207" [arg forward-to-word] 2 (#$ . 1316) "p"])