aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-04 23:20:13 +0000
committerKarl Heuer1996-01-04 23:20:13 +0000
commit1f238ac240ba58929ca09b026145d671a2b9ba32 (patch)
tree89e70161291fab74da713cdc30b793a2d69aa474
parent4802af7644a5f13ed68ca41684115678f03c0b02 (diff)
downloademacs-1f238ac240ba58929ca09b026145d671a2b9ba32.tar.gz
emacs-1f238ac240ba58929ca09b026145d671a2b9ba32.zip
(shell-command): Fix message spelling.
-rw-r--r--lisp/simple.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index e58213e27fc..6f6583554a9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -477,7 +477,7 @@ the minibuffer, then read and evaluate the result."
477 read-expression-map t 477 read-expression-map t
478 '(command-history . 1)))) 478 '(command-history . 1))))
479 ;; If command was added to command-history as a string, 479 ;; If command was added to command-history as a string,
480 ;; get rid of that. We want only evallable expressions there. 480 ;; get rid of that. We want only evaluable expressions there.
481 (if (stringp (car command-history)) 481 (if (stringp (car command-history))
482 (setq command-history (cdr command-history))) 482 (setq command-history (cdr command-history)))
483 483
@@ -510,7 +510,7 @@ to get different commands to edit and resubmit."
510 (cons 'command-history arg)))) 510 (cons 'command-history arg))))
511 511
512 ;; If command was added to command-history as a string, 512 ;; If command was added to command-history as a string,
513 ;; get rid of that. We want only evallable expressions there. 513 ;; get rid of that. We want only evaluable expressions there.
514 (if (stringp (car command-history)) 514 (if (stringp (car command-history))
515 (setq command-history (cdr command-history))) 515 (setq command-history (cdr command-history)))
516 516
@@ -794,7 +794,7 @@ In either case, the output is inserted after point (leaving mark after it)."
794 (if (string-match "[ \t]*&[ \t]*$" command) 794 (if (string-match "[ \t]*&[ \t]*$" command)
795 ;; Command ending with ampersand means asynchronous. 795 ;; Command ending with ampersand means asynchronous.
796 (let ((buffer (get-buffer-create 796 (let ((buffer (get-buffer-create
797 (or output-buffer "*Asynch Shell Command*"))) 797 (or output-buffer "*Async Shell Command*")))
798 (directory default-directory) 798 (directory default-directory)
799 proc) 799 proc)
800 ;; Remove the ampersand. 800 ;; Remove the ampersand.
@@ -2831,7 +2831,7 @@ Go to the window from which completion was requested."
2831 2831
2832(defun next-completion (n) 2832(defun next-completion (n)
2833 "Move to the next item in the completion list. 2833 "Move to the next item in the completion list.
2834WIth prefix argument N, move N items (negative N means move backward)." 2834With prefix argument N, move N items (negative N means move backward)."
2835 (interactive "p") 2835 (interactive "p")
2836 (while (and (> n 0) (not (eobp))) 2836 (while (and (> n 0) (not (eobp)))
2837 (let ((prop (get-text-property (point) 'mouse-face)) 2837 (let ((prop (get-text-property (point) 'mouse-face))