aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Preble1991-03-12 19:57:55 +0000
committerBrian Preble1991-03-12 19:57:55 +0000
commitf30ff39f78474a9e7f28bb7b9ed259aae92760ac (patch)
tree9d9fe3c1045d11ab14d532f6ea33e42eef27ca35
parenta90256ccb2d7951b23276320f391d4d102341ce6 (diff)
downloademacs-f30ff39f78474a9e7f28bb7b9ed259aae92760ac.tar.gz
emacs-f30ff39f78474a9e7f28bb7b9ed259aae92760ac.zip
*** empty log message ***
-rw-r--r--lisp/emacs-lisp/lisp-mode.el2
-rw-r--r--lisp/ledit.el18
-rw-r--r--lisp/textmodes/ispell4.el4
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.
120Like Lisp mode, plus these special commands: 120Like 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}
128To make Lisp mode automatically change to Ledit mode, 128To 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.
204SPACE Accept the word this time, but complain if it is seen again. 204SPACE Accept the word this time, but complain if it is seen again.
205q, C-G Leave the command loop. You can come back later with \\[ispell-next]." 205q, \\[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.
292See `ispell' for more documentation." 292See `ispell' for more information."
293 (interactive) 293 (interactive)
294 (condition-case err 294 (condition-case err
295 (catch 'quit 295 (catch 'quit