*** empty log message ***

lisp/echistory.el

@@ -22,6 +22,7 @@
 (require 'electric)			; command loop
 (require 'chistory)			; history lister
 
+;;;###autoload
 (defun Electric-command-history-redo-expression (&optional noconfirm)
   "Edit current history line in minibuffer and execute result.
 With prefix arg NOCONFIRM, execute current line as-is without editing."

lisp/edmacro.el

@@ -27,6 +27,7 @@
 
 ;;; The user-level commands for editing macros.
 
+;;;###autoload
 (defun edit-last-kbd-macro (&optional prefix buffer hook)
   "Edit the most recently defined keyboard macro."
   (interactive "P")
@@ -34,6 +35,7 @@
 		      (function (lambda (x arg) (setq last-kbd-macro x)))
 		      prefix buffer hook))
 
+;;;###autoload
 (defun edit-kbd-macro (cmd &optional prefix buffer hook in-hook out-hook)
   "Edit a keyboard macro which has been given a name by `name-last-kbd-macro'.
 \(See also `edit-last-kbd-macro'.)"
@@ -49,6 +51,7 @@
 					   'x)))
 			   prefix buffer hook cmd)))
 
+;;;###autoload
 (defun read-kbd-macro (start end)
   "Read the region as a keyboard macro definition.
 The region is interpreted as spelled-out keystrokes, e.g., \"M-x abc RET\".

lisp/emacs-lisp/helper.el

@@ -121,6 +121,7 @@
       (insert name " Mode\n" documentation)))
   (Helper-help-scroller))
 
+;;;###autoload
 (defun Helper-describe-bindings ()
   "Describe local key bindings of current mode."
   (interactive)
@@ -128,6 +129,7 @@
   (save-window-excursion (describe-bindings))
   (Helper-help-scroller))
 
+;;;###autoload
 (defun Helper-help ()
   "Provide help for current mode."
   (interactive)

lisp/emulation/edt.el

@@ -263,6 +263,7 @@ and mark-paragraph for other modes."
 	 (t (mark-paragraph))))
 
 ;;; Key Bindings
+;;;###autoload
 (defun edt-emulation-on ()
   "Emulate DEC's EDT editor.
 Note that many keys are rebound; including nearly all keypad keys.

lisp/emulation/mlconvert.el

@@ -17,6 +17,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;;###autoload
 (defun convert-mocklisp-buffer ()
   "Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run."
   (interactive)

lisp/emulation/vi.el

@@ -384,6 +384,7 @@ form that is ready to be 'apply'ed.")
   (make-local-variable 'vi-mode-old-case-fold)
   (run-hooks 'vi-mode-hook))
       
+;;;###autoload
 (defun vi-mode ()
   "Major mode that acts like the `vi' editor.
 The purpose of this mode is to provide you the combined power of vi (namely,

lisp/emulation/vip.el

@@ -214,6 +214,7 @@ function replaces the string by \"Vi:   \" etc."
 	    vip-emacs-mode-line-buffer-identification
 	  (list (concat string " %17b")))))
 
+;;;###autoload
 (defun vip-mode ()
   "Turn on VIP emulation of VI."
   (interactive)

lisp/gosmacs.el

@@ -20,6 +20,7 @@
 
 (defvar non-gosmacs-binding-alist nil)
 
+;;;###autoload
 (defun set-gosmacs-bindings ()
   "Rebind some keys globally to make GNU Emacs resemble Gosling Emacs.
 Use \\[set-gnu-bindings] to restore previous global bindings."

lisp/makesum.el

@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun make-command-summary ()
   "Make a summary of current key bindings in the buffer *Summary*.
 Previous contents of that buffer are killed first."

lisp/options.el

@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun list-options ()
   "Display a list of Emacs user options, with values and documentation."
   (interactive)
@@ -42,6 +43,7 @@
 	  (princ "\n;;\n"))
 	(setq vars (cdr vars))))))
 
+;;;###autoload
 (defun edit-options ()
   "Edit a list of Emacs user option values.
 Selects a buffer containing such a list,

lisp/play/dissociate.el

@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun dissociated-press (&optional arg)
   "Dissociate the text of the current buffer.
 Output goes in buffer named *Dissociation*,

lisp/play/hanoi.el

@@ -15,6 +15,7 @@
 ;;;
 ;;; hanoi - user callable Towers of Hanoi
 ;;;
+;;;###autoload
 (defun hanoi (nrings)
   "Towers of Hanoi diversion.  Argument is number of rings."
   (interactive

lisp/progmodes/modula2.el

@@ -75,6 +75,7 @@
 
 (defvar m2-indent 5 "*This variable gives the indentation in Modula-2-Mode")
   
+;;;###autoload
 (defun modula-2-mode ()
   "This is a mode intended to support program development in Modula-2.
 All control constructs of Modula-2 can be reached by typing C-c

lisp/progmodes/prolog.el

@@ -84,6 +84,7 @@ nil means send actual operating system end of file.")
   (setq prolog-mode-map (make-sparse-keymap))
   (prolog-mode-commands prolog-mode-map))
 
+;;;###autoload
 (defun prolog-mode ()
   "Major mode for editing Prolog code for Prologs.
 Blank lines and `%%...' separate paragraphs.  `%'s start comments.
@@ -227,6 +228,7 @@ Return not at end copies rest of line to end and sends it.
   (use-local-map inferior-prolog-mode-map)
   (run-hooks 'prolog-mode-hook))
 
+;;;###autoload
 (defun run-prolog ()
   "Run an inferior Prolog process, input and output via buffer *prolog*."
   (interactive)

lisp/rect.el

@@ -102,6 +102,7 @@ Point is at the end of the segment of this line within the rectangle."
 	      n (- n 8)))
       (concat val (aref spaces-strings n)))))
     
+;;;###autoload
 (defun delete-rectangle (start end)
   "Delete (don't save) text in rectangle with point and mark as corners.
 The same range of columns is deleted in each line starting with the line
@@ -109,6 +110,7 @@ where the region begins and ending with the line where the region ends."
   (interactive "r")
   (operate-on-rectangle 'delete-rectangle-line start end t))
 
+;;;###autoload
 (defun delete-extract-rectangle (start end)
   "Delete contents of rectangle and return it as a list of strings.
 Arguments START and END are the corners of the rectangle.
@@ -118,6 +120,7 @@ The value is list of strings, one for each line of the rectangle."
 			  start end t)
     (nreverse lines)))
 
+;;;###autoload
 (defun extract-rectangle (start end)
   "Return contents of rectangle with corners at START and END.
 Value is list of strings, one for each line of the rectangle."
@@ -128,6 +131,7 @@ Value is list of strings, one for each line of the rectangle."
 (defvar killed-rectangle nil
   "Rectangle for yank-rectangle to insert.")
 
+;;;###autoload
 (defun kill-rectangle (start end)
   "Delete rectangle with corners at point and mark; save as last killed one.
 Calling from program, supply two args START and END, buffer positions.
@@ -135,11 +139,13 @@ But in programs you might prefer to use `delete-extract-rectangle'."
   (interactive "r")
   (setq killed-rectangle (delete-extract-rectangle start end)))
 
+;;;###autoload
 (defun yank-rectangle ()
   "Yank the last killed rectangle with upper left corner at point."
   (interactive)
   (insert-rectangle killed-rectangle))
 
+;;;###autoload
 (defun insert-rectangle (rectangle)
   "Insert text of RECTANGLE with upper left corner at point.
 RECTANGLE's first line is inserted at point, its second
@@ -162,6 +168,7 @@ RECTANGLE should be a list of strings."
       (insert (car lines))
       (setq lines (cdr lines)))))
 
+;;;###autoload
 (defun open-rectangle (start end)
   "Blank out rectangle with corners at point and mark, shifting text right.
 The text previously in the region is not overwritten by the blanks,
@@ -180,6 +187,7 @@ but insted winds up to the right of the rectangle."
 			  (point)))
     (indent-to column)))
 
+;;;###autoload
 (defun clear-rectangle (start end)
   "Blank out rectangle with corners at point and mark.
 The text previously in the region is overwritten by the blanks.

lisp/sort.el

@@ -169,6 +169,7 @@ same as ENDRECFUN."
     (narrow-to-region min (1+ (point)))
     (delete-region (point) (1+ (point)))))
 
+;;;###autoload
 (defun sort-lines (reverse beg end) 
   "Sort lines in region alphabetically; argument means descending order.
 Called from a program, there are three arguments:
@@ -180,6 +181,7 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
       (goto-char (point-min))
       (sort-subr reverse 'forward-line 'end-of-line))))
 
+;;;###autoload
 (defun sort-paragraphs (reverse beg end)
   "Sort paragraphs in region alphabetically; argument means descending order.
 Called from a program, there are three arguments:
@@ -193,6 +195,7 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
 		 (function (lambda () (skip-chars-forward "\n \t\f")))
 		 'forward-paragraph))))
 
+;;;###autoload
 (defun sort-pages (reverse beg end)
   "Sort pages in region alphabetically; argument means descending order.
 Called from a program, there are three arguments:
@@ -219,6 +222,7 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
     (modify-syntax-entry ?\. "_" table)	; for floating pt. numbers. -wsr
     (setq sort-fields-syntax-table table)))
 
+;;;###autoload
 (defun sort-numeric-fields (field beg end)
   "Sort lines in region numerically by the ARGth field of each line.
 Fields are separated by whitespace and numbered from 1 up.
@@ -260,6 +264,7 @@ region to sort."
 				 (point))))))
 		 nil))
 
+;;;###autoload
 (defun sort-fields (field beg end)
   "Sort lines in region lexicographically by the ARGth field of each line.
 Fields are separated by whitespace and numbered from 1 up.
@@ -303,6 +308,7 @@ FIELD, BEG and END.  BEG and END specify region to sort."
     (skip-chars-forward " \t")))
 
 
+;;;###autoload
 (defun sort-regexp-fields (reverse record-regexp key-regexp beg end)
   "Sort the region lexicographically as specifed by RECORD-REGEXP and KEY.
 RECORD-REGEXP specifies the textual units which should be sorted.
@@ -364,6 +370,7 @@ sRegexp specifying key within record: \nr")
 
 (defvar sort-columns-subprocess t)
 
+;;;###autoload
 (defun sort-columns (reverse &optional beg end)
   "Sort lines in region alphabetically by a certain range of columns.
 For the purpose of this command, the region includes
@@ -406,6 +413,7 @@ Use \\[untabify] to convert tabs to spaces before sorting."
 		       (function (lambda () (move-to-column col-start) nil))
 		       (function (lambda () (move-to-column col-end) nil)))))))))
 
+;;;###autoload
 (defun reverse-region (beg end)
   "Reverse the order of lines in a region.
 From a program takes two point or marker arguments, BEG and END."

lisp/tabify.el

@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun untabify (start end)
   "Convert all tabs in region to multiple spaces, preserving columns.
 The variable tab-width controls the action."
@@ -34,6 +35,7 @@ The variable tab-width controls the action."
 	  (delete-region start (point))
 	  (indent-to column))))))
 
+;;;###autoload
 (defun tabify (start end)
   "Convert multiple spaces in region to tabs when possible.
 A group of spaces is partially replaced by tabs

lisp/telnet.el

@@ -139,6 +139,7 @@ rejecting one login and prompting for the again for a username and password.")
   (interactive)
   (comint-send-input telnet-new-line telnet-remote-echoes))
 
+;;;###autoload
 (defun telnet (arg)
   "Open a network login connection to host named HOST (a string).
 Communication with HOST is recorded in a buffer *HOST-telnet*.

lisp/textmodes/ooutline.el

@@ -51,6 +51,7 @@ in the file it applies to.")
 (setq minor-mode-alist (append minor-mode-alist
 			       (list '(outline-minor-mode " Outl"))))
 
+;;;###autoload
 (defun outline-mode ()
   "Set major mode for editing outlines with selective display.
 Headings are lines which start with asterisks: one for major headings,

lisp/textmodes/scribe.el

@@ -86,6 +86,7 @@ scribe-open-parenthesis.")
   (define-key scribe-mode-map "\^cb" 'scribe-bold-word)
   (define-key scribe-mode-map "\^cu" 'scribe-underline-word))
 
+;;;###autoload
 (defun scribe-mode ()
   "Major mode for editing files of Scribe (a text formatter) source.
 Scribe-mode is similar text-mode, with a few extra commands added.

lisp/textmodes/spell.el

@@ -26,6 +26,7 @@
 This function might remove text-processor commands.
 nil means don't alter the text before checking it.")
 
+;;;###autoload
 (defun spell-buffer ()
   "Check spelling of every word in the buffer.
 For each incorrect word, you are asked for the correct spelling
@@ -35,6 +36,7 @@ as its \"correct\" spelling; then the query replace is skipped."
   (interactive)
   (spell-region (point-min) (point-max) "buffer"))
 
+;;;###autoload
 (defun spell-word ()
   "Check spelling of word at or before point.
 If it is not correct, ask user for the correct spelling
@@ -49,6 +51,7 @@ and query-replace the entire buffer to substitute it."
      (setq end (point)))
     (spell-region beg end (buffer-substring beg end))))
 
+;;;###autoload
 (defun spell-region (start end &optional description)
   "Like spell-buffer but applies only to region.
 Used in a program, applies from START to END.
@@ -110,6 +113,7 @@ for example, \"word\"."
 				   newword)))))))
 
 
+;;;###autoload
 (defun spell-string (string)
   "Check spelling of string supplied as argument."
   (interactive "sSpell string: ")

lisp/textmodes/texinfmt.el

@@ -53,6 +53,7 @@
   (modify-syntax-entry ?} "){" texinfo-format-syntax-table)
   (modify-syntax-entry ?\' "." texinfo-format-syntax-table))
 
+;;;###autoload
 (defun texinfo-format-buffer (&optional notagify)
   "Process the current buffer as texinfo code, into an Info file.
 The Info file output is generated in a buffer visiting the Info file
@@ -132,6 +133,7 @@ Info-split to do these manually."
 (defvar texinfo-region-buffer-name "*Info Region*"
   "*Name of the temporary buffer used by \\[texinfo-format-region].")
 
+;;;###autoload
 (defun texinfo-format-region (region-beginning region-ending)
   "Convert the current region of the Texinfo file to Info format.
 This lets you see what that part of the file will look like in Info.
@@ -1757,6 +1759,7 @@ If used within a line, follow `@minus' with braces."
   (error "%s is not handled by texinfo"
 	 (buffer-substring texinfo-command-start texinfo-command-end)))
 
+;;;###autoload
 (defun batch-texinfo-format ()
   "Runs  texinfo-format-buffer  on the files remaining on the command line.
 Must be used only with -batch, and kills emacs on completion.

lisp/textmodes/texinfo.el

@@ -147,6 +147,7 @@ Use \\[up-list] to move forward out of the braces."
   (insert "{}")
   (backward-char))
 
+;;;###autoload
 (defun texinfo-mode ()
   "Major mode for editing Texinfo files.
 

lisp/textmodes/underline.el

@@ -18,6 +18,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+;;;###autoload
 (defun underline-region (start end)
   "Underline all nonblank characters in the region.
 Works by overstriking underscores.
@@ -33,6 +34,7 @@ which specify the range to operate on."
 	   (insert "_"))
        (forward-char 1)))))
 
+;;;###autoload
 (defun ununderline-region (start end)
   "Remove all underlining (overstruck underscores) in the region.
 Called from program, takes two arguments START and END

lisp/userlock.el

@@ -25,6 +25,7 @@
 
 (put 'file-locked 'error-conditions '(file-locked file-error error))
 
+;;;###autoload
 (defun ask-user-about-lock (fn opponent)
   "Ask user what to do when he wants to edit FILE but it is locked by USER.
 This function has a choice of three things to do:
@@ -73,6 +74,7 @@ You can <q>uit; don't modify this file.")))
 (put
  'file-supersession 'error-conditions '(file-supersession file-error error))
 
+;;;###autoload
 (defun ask-user-about-supersession-threat (fn)
   "Ask a user who is about to modify an obsolete buffer what to do.
 This function has two choices: it can return, in which case the modification

lisp/xscheme.el

@@ -69,6 +69,7 @@ Is processed with `substitute-command-keys' first.")
 (xscheme-evaluation-commands scheme-mode-map)
 (xscheme-interrupt-commands scheme-mode-map)
 
+;;;###autoload
 (defun run-scheme (command-line)
   "Run an inferior Scheme process.
 Output goes to the buffer `*scheme*'.