Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f30ff39f
Commit
f30ff39f
authored
Mar 12, 1991
by
Brian Preble
Browse files
*** empty log message ***
parent
a90256cc
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
12 additions
and
12 deletions
+12
-12
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+1
-1
lisp/ledit.el
lisp/ledit.el
+9
-9
lisp/textmodes/ispell4.el
lisp/textmodes/ispell4.el
+2
-2
No files found.
lisp/emacs-lisp/lisp-mode.el
View file @
f30ff39f
...
...
@@ -383,7 +383,7 @@ of the start of the containing expression."
(
or
(
funcall
lisp-indent-function
indent-point
state
)
normal-indent
))
(
t
normal-indent
))))))
)
normal-indent
))))))
(
defun
lisp-indent-function
(
indent-point
state
)
(
let
((
normal-indent
(
current-column
)))
...
...
lisp/ledit.el
View file @
f30ff39f
...
...
@@ -57,19 +57,19 @@
(
message
"Region saved for Lisp"
))
(
defun
ledit-zap-defun-to-lisp
()
"Carry the current defun to
l
isp"
"Carry the current defun to
L
isp
.
"
(
interactive
)
(
ledit-save-defun
)
(
ledit-go-to-lisp
))
(
defun
ledit-zap-defun-to-liszt
()
"Carry the current defun to liszt"
"Carry the current defun to liszt
.
"
(
interactive
)
(
ledit-save-defun
)
(
ledit-go-to-liszt
))
(
defun
ledit-zap-region-to-lisp
(
beg
end
)
"Carry the current region to
l
isp"
"Carry the current region to
L
isp
.
"
(
interactive
"r"
)
(
ledit-save-region
beg
end
)
(
ledit-go-to-lisp
))
...
...
@@ -104,7 +104,7 @@
(
load
ledit-read-file
t
t
))
(
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
)
(
progn
(
setq
ledit-mode-map
(
make-sparse-keymap
))
(
lisp-mode-commands
ledit-mode-map
)))
...
...
@@ -116,13 +116,13 @@
(
ledit-setup
)
(
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:
M-C-d
-- record defun at or after point
\\[ledit-save-defun]
-- record defun at or after point
for later transmission to Lisp job.
M-C-r
-- record region for later transmission to Lisp job.
C-x z
-- transfer to Lisp job and transmit saved text.
M-C-c
-- transfer to Liszt (Lisp compiler) job
\\[ledit-save-region]
-- record region for later transmission to Lisp job.
\\[ledit-go-to-lisp]
-- transfer to Lisp job and transmit saved text.
\\[ledit-go-to-liszt]
-- transfer to Liszt (Lisp compiler) job
and transmit saved text.
\\{ledit-mode-map}
To make Lisp mode automatically change to Ledit mode,
...
...
lisp/textmodes/ispell4.el
View file @
f30ff39f
...
...
@@ -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
using grep.
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
)
(
if
(
null
start
)
(
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
()
"Check the spelling of the word under the cursor.
See `ispell' for more
document
ation."
See `ispell' for more
inform
ation."
(
interactive
)
(
condition-case
err
(
catch
'quit
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment