Mercurial > emacs

changeset 258:1e0bc00dca7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 09 May 1991 21:50:55 +0000
parents e5ba2ba35226
children 470231fe99be
files lisp/=gosmacs.el lisp/echistory.el lisp/edmacro.el lisp/emacs-lisp/helper.el lisp/emulation/edt.el lisp/emulation/mlconvert.el lisp/emulation/vi.el lisp/emulation/vip.el lisp/makesum.el lisp/options.el lisp/play/dissociate.el lisp/play/hanoi.el lisp/progmodes/modula2.el lisp/progmodes/prolog.el lisp/rect.el lisp/sort.el lisp/tabify.el lisp/telnet.el lisp/textmodes/ooutline.el lisp/textmodes/scribe.el lisp/textmodes/spell.el lisp/textmodes/texinfmt.el lisp/textmodes/texinfo.el lisp/textmodes/underline.el lisp/userlock.el lisp/xscheme.el
diffstat 26 files changed, 53 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gosmacs.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/=gosmacs.el	Thu May 09 21:50:55 1991 +0000
@@ -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."
--- a/lisp/echistory.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/echistory.el	Thu May 09 21:50:55 1991 +0000
@@ -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."
--- a/lisp/edmacro.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/edmacro.el	Thu May 09 21:50:55 1991 +0000
@@ -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\".
--- a/lisp/emacs-lisp/helper.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/emacs-lisp/helper.el	Thu May 09 21:50:55 1991 +0000
@@ -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)
--- a/lisp/emulation/edt.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/emulation/edt.el	Thu May 09 21:50:55 1991 +0000
@@ -263,6 +263,7 @@
 	 (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.
--- a/lisp/emulation/mlconvert.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/emulation/mlconvert.el	Thu May 09 21:50:55 1991 +0000
@@ -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)
--- a/lisp/emulation/vi.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/emulation/vi.el	Thu May 09 21:50:55 1991 +0000
@@ -384,6 +384,7 @@
   (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,
--- a/lisp/emulation/vip.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/emulation/vip.el	Thu May 09 21:50:55 1991 +0000
@@ -214,6 +214,7 @@
 	    vip-emacs-mode-line-buffer-identification
 	  (list (concat string " %17b")))))
 
+;;;###autoload
 (defun vip-mode ()
   "Turn on VIP emulation of VI."
   (interactive)
--- a/lisp/makesum.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/makesum.el	Thu May 09 21:50:55 1991 +0000
@@ -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."
--- a/lisp/options.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/options.el	Thu May 09 21:50:55 1991 +0000
@@ -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,
--- a/lisp/play/dissociate.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/play/dissociate.el	Thu May 09 21:50:55 1991 +0000
@@ -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*,
--- a/lisp/play/hanoi.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/play/hanoi.el	Thu May 09 21:50:55 1991 +0000
@@ -15,6 +15,7 @@
 ;;;
 ;;; hanoi - user callable Towers of Hanoi
 ;;;
+;;;###autoload
 (defun hanoi (nrings)
   "Towers of Hanoi diversion.  Argument is number of rings."
   (interactive
--- a/lisp/progmodes/modula2.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/progmodes/modula2.el	Thu May 09 21:50:55 1991 +0000
@@ -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
--- a/lisp/progmodes/prolog.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/progmodes/prolog.el	Thu May 09 21:50:55 1991 +0000
@@ -84,6 +84,7 @@
   (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 @@
   (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)
--- a/lisp/rect.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/rect.el	Thu May 09 21:50:55 1991 +0000
@@ -102,6 +102,7 @@
 	      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 @@
   (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 @@
 			  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 @@
 (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 @@
   (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 @@
       (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 @@
 			  (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.
--- a/lisp/sort.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/sort.el	Thu May 09 21:50:55 1991 +0000
@@ -169,6 +169,7 @@
     (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 @@
       (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 @@
 		 (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 @@
     (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 @@
 				 (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 @@
     (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 @@
 
 (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 @@
 		       (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."
--- a/lisp/tabify.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/tabify.el	Thu May 09 21:50:55 1991 +0000
@@ -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 @@
 	  (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
--- a/lisp/telnet.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/telnet.el	Thu May 09 21:50:55 1991 +0000
@@ -139,6 +139,7 @@
   (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*.
--- a/lisp/textmodes/ooutline.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/ooutline.el	Thu May 09 21:50:55 1991 +0000
@@ -51,6 +51,7 @@
 (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,
--- a/lisp/textmodes/scribe.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/scribe.el	Thu May 09 21:50:55 1991 +0000
@@ -86,6 +86,7 @@
   (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.
--- a/lisp/textmodes/spell.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/spell.el	Thu May 09 21:50:55 1991 +0000
@@ -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 @@
   (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 @@
      (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 @@
 				   newword)))))))
 
 
+;;;###autoload
 (defun spell-string (string)
   "Check spelling of string supplied as argument."
   (interactive "sSpell string: ")
--- a/lisp/textmodes/texinfmt.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/texinfmt.el	Thu May 09 21:50:55 1991 +0000
@@ -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 @@
 (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 @@
   (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.
--- a/lisp/textmodes/texinfo.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/texinfo.el	Thu May 09 21:50:55 1991 +0000
@@ -147,6 +147,7 @@
   (insert "{}")
   (backward-char))
 
+;;;###autoload
 (defun texinfo-mode ()
   "Major mode for editing Texinfo files.
 
--- a/lisp/textmodes/underline.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/textmodes/underline.el	Thu May 09 21:50:55 1991 +0000
@@ -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 @@
 	   (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
--- a/lisp/userlock.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/userlock.el	Thu May 09 21:50:55 1991 +0000
@@ -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 @@
 (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
--- a/lisp/xscheme.el	Thu May 09 21:50:45 1991 +0000
+++ b/lisp/xscheme.el	Thu May 09 21:50:55 1991 +0000
@@ -69,6 +69,7 @@
 (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*'.