Commit f9f9507e authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 745bc783
......@@ -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."
......
......@@ -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\".
......
......@@ -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)
......
......@@ -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.
......
......@@ -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)
......
......@@ -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,
......
......@@ -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)
......
......@@ -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."
......
......@@ -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."
......
......@@ -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,
......
......@@ -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*,
......
......@@ -15,6 +15,7 @@
;;;
;;; hanoi - user callable Towers of Hanoi
;;;
;;;###autoload
(defun hanoi (nrings)
"Towers of Hanoi diversion. Argument is number of rings."
(interactive
......
......@@ -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
......
......@@ -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)
......
......@@ -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.
......
......@@ -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."
......
......@@ -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
......
......@@ -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*.
......
......@@ -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,
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment