changeset 13960:5f1ba0200a33

(shell-command): Fix message spelling.
author Karl Heuer <kwzh@gnu.org>
date Thu, 04 Jan 1996 23:20:13 +0000
parents b07ed8bef291
children ff6ac63de609
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Jan 04 23:19:43 1996 +0000
+++ b/lisp/simple.el	Thu Jan 04 23:20:13 1996 +0000
@@ -477,7 +477,7 @@
 				       read-expression-map t
 				       '(command-history . 1))))
     ;; If command was added to command-history as a string,
-    ;; get rid of that.  We want only evallable expressions there.
+    ;; get rid of that.  We want only evaluable expressions there.
     (if (stringp (car command-history))
 	(setq command-history (cdr command-history)))
 
@@ -510,7 +510,7 @@
 		   (cons 'command-history arg))))
 
 	  ;; If command was added to command-history as a string,
-	  ;; get rid of that.  We want only evallable expressions there.
+	  ;; get rid of that.  We want only evaluable expressions there.
 	  (if (stringp (car command-history))
 	      (setq command-history (cdr command-history)))
 
@@ -794,7 +794,7 @@
       (if (string-match "[ \t]*&[ \t]*$" command)
 	  ;; Command ending with ampersand means asynchronous.
 	  (let ((buffer (get-buffer-create
-			 (or output-buffer "*Asynch Shell Command*")))
+			 (or output-buffer "*Async Shell Command*")))
 		(directory default-directory)
 		proc)
 	    ;; Remove the ampersand.
@@ -2831,7 +2831,7 @@
 
 (defun next-completion (n)
   "Move to the next item in the completion list.
-WIth prefix argument N, move N items (negative N means move backward)."
+With 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))