diff options
| author | Karl Heuer | 1996-01-04 23:20:13 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-04 23:20:13 +0000 |
| commit | 1f238ac240ba58929ca09b026145d671a2b9ba32 (patch) | |
| tree | 89e70161291fab74da713cdc30b793a2d69aa474 | |
| parent | 4802af7644a5f13ed68ca41684115678f03c0b02 (diff) | |
| download | emacs-1f238ac240ba58929ca09b026145d671a2b9ba32.tar.gz emacs-1f238ac240ba58929ca09b026145d671a2b9ba32.zip | |
(shell-command): Fix message spelling.
| -rw-r--r-- | lisp/simple.el | 8 |
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. |
| 2834 | WIth prefix argument N, move N items (negative N means move backward)." | 2834 | With 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)) |