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
1f238ac2
Commit
1f238ac2
authored
Jan 04, 1996
by
Karl Heuer
Browse files
(shell-command): Fix message spelling.
parent
4802af76
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/simple.el
lisp/simple.el
+4
-4
No files found.
lisp/simple.el
View file @
1f238ac2
...
...
@@ -477,7 +477,7 @@ the minibuffer, then read and evaluate the result."
read-expression-map
t
'
(
command-history
.
1
))))
;; If command was added to command-history as a string,
;; get rid of that. We want only eval
l
able expressions there.
;; get rid of that. We want only eval
u
able expressions there.
(
if
(
stringp
(
car
command-history
))
(
setq
command-history
(
cdr
command-history
)))
...
...
@@ -510,7 +510,7 @@ to get different commands to edit and resubmit."
(
cons
'command-history
arg
))))
;; If command was added to command-history as a string,
;; get rid of that. We want only eval
l
able expressions there.
;; get rid of that. We want only eval
u
able expressions there.
(
if
(
stringp
(
car
command-history
))
(
setq
command-history
(
cdr
command-history
)))
...
...
@@ -794,7 +794,7 @@ In either case, the output is inserted after point (leaving mark after it)."
(if (string-match "
[
\t]*&[
\t]*$
" command)
;; Command ending with ampersand means asynchronous.
(let ((buffer (get-buffer-create
(or output-buffer "
*Async
h
Shell
Command*
")))
(or output-buffer "
*Async
Shell
Command*
")))
(directory default-directory)
proc)
;; Remove the ampersand.
...
...
@@ -2831,7 +2831,7 @@ Go to the window from which completion was requested."
(
defun
next-completion
(
n
)
"Move to the next item in the completion list.
W
I
th prefix argument N, move N items (negative N means move backward)."
W
i
th prefix argument N, move N items (negative N means move backward)."
(
interactive
"p"
)
(
while
(
and
(
>
n
0
)
(
not
(
eobp
)))
(
let
((
prop
(
get-text-property
(
point
)
'mouse-face
))
...
...
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