procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Brian Preble 1991-03-12 19:57:55 +00:00
parent a90256ccb2
commit f30ff39f78
3 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/lisp-mode.el
View file

@ -383,7 +383,7 @@ of the start of the containing expression."
(or (funcall lisp-indent-function indent-point state) (or (funcall lisp-indent-function indent-point state)
normal-indent)) normal-indent))
(t (t
normal-indent))))))) normal-indent))))))
(defun lisp-indent-function (indent-point state) (defun lisp-indent-function (indent-point state)
(let ((normal-indent (current-column))) (let ((normal-indent (current-column)))

18
lisp/ledit.el
View file

@ -57,19 +57,19 @@
(message "Region saved for Lisp")) (message "Region saved for Lisp"))
(defun ledit-zap-defun-to-lisp () (defun ledit-zap-defun-to-lisp ()
"Carry the current defun to lisp" "Carry the current defun to Lisp."
(interactive) (interactive)
(ledit-save-defun) (ledit-save-defun)
(ledit-go-to-lisp)) (ledit-go-to-lisp))
(defun ledit-zap-defun-to-liszt () (defun ledit-zap-defun-to-liszt ()
"Carry the current defun to liszt" "Carry the current defun to liszt."
(interactive) (interactive)
(ledit-save-defun) (ledit-save-defun)
(ledit-go-to-liszt)) (ledit-go-to-liszt))
(defun ledit-zap-region-to-lisp (beg end) (defun ledit-zap-region-to-lisp (beg end)
"Carry the current region to lisp" "Carry the current region to Lisp."
(interactive "r") (interactive "r")
(ledit-save-region beg end) (ledit-save-region beg end)
(ledit-go-to-lisp)) (ledit-go-to-lisp))
@ -104,7 +104,7 @@
(load ledit-read-file t t)) (load ledit-read-file t t))
(defun ledit-setup () (defun ledit-setup ()
"Set up key bindings for the Lisp / Emacs interface" "Set up key bindings for the Lisp/Emacs interface."
(if (not ledit-mode-map) (if (not ledit-mode-map)
(progn (setq ledit-mode-map (make-sparse-keymap)) (progn (setq ledit-mode-map (make-sparse-keymap))
(lisp-mode-commands ledit-mode-map))) (lisp-mode-commands ledit-mode-map)))
@ -116,13 +116,13 @@
(ledit-setup) (ledit-setup)
(defun ledit-mode () (defun ledit-mode ()
"Major mode for editing text and stuffing it to a Lisp job. "\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job.
Like Lisp mode, plus these special commands: Like Lisp mode, plus these special commands:
M-C-d -- record defun at or after point \\[ledit-save-defun] -- record defun at or after point
for later transmission to Lisp job. for later transmission to Lisp job.
M-C-r -- record region for later transmission to Lisp job. \\[ledit-save-region] -- record region for later transmission to Lisp job.
C-x z -- transfer to Lisp job and transmit saved text. \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text.
M-C-c -- transfer to Liszt (Lisp compiler) job \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job
and transmit saved text. and transmit saved text.
\\{ledit-mode-map} \\{ledit-mode-map}
To make Lisp mode automatically change to Ledit mode, To make Lisp mode automatically change to Ledit mode,

4
lisp/textmodes/ispell4.el
View file

@ -202,7 +202,7 @@ l Lookup. Look for a word in the dictionary by fast binary
search, or search for a regular expression in the dictionary search, or search for a regular expression in the dictionary
using grep. using grep.
SPACE Accept the word this time, but complain if it is seen again. SPACE Accept the word this time, but complain if it is seen again.
q, C-G Leave the command loop. You can come back later with \\[ispell-next]." q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[ispell-next]."
(interactive) (interactive)
(if (null start) (if (null start)
(setq start 0)) (setq start 0))
@ -289,7 +289,7 @@ q, C-G Leave the command loop. You can come back later with \\[ispell-next]."
(defun ispell-word () (defun ispell-word ()
"Check the spelling of the word under the cursor. "Check the spelling of the word under the cursor.
See `ispell' for more documentation." See `ispell' for more information."
(interactive) (interactive)
(condition-case err (condition-case err
(catch 'quit (catch 'quit