diff options
| author | Brian Preble | 1991-03-12 19:57:55 +0000 |
|---|---|---|
| committer | Brian Preble | 1991-03-12 19:57:55 +0000 |
| commit | f30ff39f78474a9e7f28bb7b9ed259aae92760ac (patch) | |
| tree | 9d9fe3c1045d11ab14d532f6ea33e42eef27ca35 | |
| parent | a90256ccb2d7951b23276320f391d4d102341ce6 (diff) | |
| download | emacs-f30ff39f78474a9e7f28bb7b9ed259aae92760ac.tar.gz emacs-f30ff39f78474a9e7f28bb7b9ed259aae92760ac.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 | ||||
| -rw-r--r-- | lisp/ledit.el | 18 | ||||
| -rw-r--r-- | lisp/textmodes/ispell4.el | 4 |
3 files changed, 12 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index d7b26e1461e..e9a05c5abca 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -383,7 +383,7 @@ of the start of the containing expression." | |||
| 383 | (or (funcall lisp-indent-function indent-point state) | 383 | (or (funcall lisp-indent-function indent-point state) |
| 384 | normal-indent)) | 384 | normal-indent)) |
| 385 | (t | 385 | (t |
| 386 | normal-indent))))))) | 386 | normal-indent)))))) |
| 387 | 387 | ||
| 388 | (defun lisp-indent-function (indent-point state) | 388 | (defun lisp-indent-function (indent-point state) |
| 389 | (let ((normal-indent (current-column))) | 389 | (let ((normal-indent (current-column))) |
diff --git a/lisp/ledit.el b/lisp/ledit.el index 1ab35d5bfb2..0428fa8b228 100644 --- a/lisp/ledit.el +++ b/lisp/ledit.el | |||
| @@ -57,19 +57,19 @@ | |||
| 57 | (message "Region saved for Lisp")) | 57 | (message "Region saved for Lisp")) |
| 58 | 58 | ||
| 59 | (defun ledit-zap-defun-to-lisp () | 59 | (defun ledit-zap-defun-to-lisp () |
| 60 | "Carry the current defun to lisp" | 60 | "Carry the current defun to Lisp." |
| 61 | (interactive) | 61 | (interactive) |
| 62 | (ledit-save-defun) | 62 | (ledit-save-defun) |
| 63 | (ledit-go-to-lisp)) | 63 | (ledit-go-to-lisp)) |
| 64 | 64 | ||
| 65 | (defun ledit-zap-defun-to-liszt () | 65 | (defun ledit-zap-defun-to-liszt () |
| 66 | "Carry the current defun to liszt" | 66 | "Carry the current defun to liszt." |
| 67 | (interactive) | 67 | (interactive) |
| 68 | (ledit-save-defun) | 68 | (ledit-save-defun) |
| 69 | (ledit-go-to-liszt)) | 69 | (ledit-go-to-liszt)) |
| 70 | 70 | ||
| 71 | (defun ledit-zap-region-to-lisp (beg end) | 71 | (defun ledit-zap-region-to-lisp (beg end) |
| 72 | "Carry the current region to lisp" | 72 | "Carry the current region to Lisp." |
| 73 | (interactive "r") | 73 | (interactive "r") |
| 74 | (ledit-save-region beg end) | 74 | (ledit-save-region beg end) |
| 75 | (ledit-go-to-lisp)) | 75 | (ledit-go-to-lisp)) |
| @@ -104,7 +104,7 @@ | |||
| 104 | (load ledit-read-file t t)) | 104 | (load ledit-read-file t t)) |
| 105 | 105 | ||
| 106 | (defun ledit-setup () | 106 | (defun ledit-setup () |
| 107 | "Set up key bindings for the Lisp / Emacs interface" | 107 | "Set up key bindings for the Lisp/Emacs interface." |
| 108 | (if (not ledit-mode-map) | 108 | (if (not ledit-mode-map) |
| 109 | (progn (setq ledit-mode-map (make-sparse-keymap)) | 109 | (progn (setq ledit-mode-map (make-sparse-keymap)) |
| 110 | (lisp-mode-commands ledit-mode-map))) | 110 | (lisp-mode-commands ledit-mode-map))) |
| @@ -116,13 +116,13 @@ | |||
| 116 | (ledit-setup) | 116 | (ledit-setup) |
| 117 | 117 | ||
| 118 | (defun ledit-mode () | 118 | (defun ledit-mode () |
| 119 | "Major mode for editing text and stuffing it to a Lisp job. | 119 | "\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job. |
| 120 | Like Lisp mode, plus these special commands: | 120 | Like Lisp mode, plus these special commands: |
| 121 | M-C-d -- record defun at or after point | 121 | \\[ledit-save-defun] -- record defun at or after point |
| 122 | for later transmission to Lisp job. | 122 | for later transmission to Lisp job. |
| 123 | M-C-r -- record region for later transmission to Lisp job. | 123 | \\[ledit-save-region] -- record region for later transmission to Lisp job. |
| 124 | C-x z -- transfer to Lisp job and transmit saved text. | 124 | \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. |
| 125 | M-C-c -- transfer to Liszt (Lisp compiler) job | 125 | \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job |
| 126 | and transmit saved text. | 126 | and transmit saved text. |
| 127 | \\{ledit-mode-map} | 127 | \\{ledit-mode-map} |
| 128 | To make Lisp mode automatically change to Ledit mode, | 128 | To make Lisp mode automatically change to Ledit mode, |
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 48737175933..782ea43103c 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el | |||
| @@ -202,7 +202,7 @@ l Lookup. Look for a word in the dictionary by fast binary | |||
| 202 | search, or search for a regular expression in the dictionary | 202 | search, or search for a regular expression in the dictionary |
| 203 | using grep. | 203 | using grep. |
| 204 | SPACE Accept the word this time, but complain if it is seen again. | 204 | SPACE Accept the word this time, but complain if it is seen again. |
| 205 | q, C-G Leave the command loop. You can come back later with \\[ispell-next]." | 205 | q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[ispell-next]." |
| 206 | (interactive) | 206 | (interactive) |
| 207 | (if (null start) | 207 | (if (null start) |
| 208 | (setq start 0)) | 208 | (setq start 0)) |
| @@ -289,7 +289,7 @@ q, C-G Leave the command loop. You can come back later with \\[ispell-next]." | |||
| 289 | 289 | ||
| 290 | (defun ispell-word () | 290 | (defun ispell-word () |
| 291 | "Check the spelling of the word under the cursor. | 291 | "Check the spelling of the word under the cursor. |
| 292 | See `ispell' for more documentation." | 292 | See `ispell' for more information." |
| 293 | (interactive) | 293 | (interactive) |
| 294 | (condition-case err | 294 | (condition-case err |
| 295 | (catch 'quit | 295 | (catch 'quit |