Apply typo patches from Paul Eggert.

5 files changed, 17 insertions, 17 deletions

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 875cb173075..3770767fe92 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -391,7 +391,7 @@ The keys redefined by \\[edt-emulation-on] are given their old definitions."
   (global-set-key "\C-j" edt-mode-old-linefeed))           ;"LineFeed"
 
 (defvar GOLD-map (make-keymap)
-   "`GOLD-map' maps the function keys on the VT100 keyboard preceeded
+   "`GOLD-map' maps the function keys on the VT100 keyboard preceded
 by the PF1 key.  GOLD is the ASCII the 7-bit escape sequence <ESC>OP.")
 
 (defalias 'GOLD-prefix GOLD-map)
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index c186622e43b..9a8d9f4e2ea 100644
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; This package conversts Mocklisp code written under a Gosling or UniPress
+;; This package converts Mocklisp code written under a Gosling or UniPress
 ;; Emacs for use with GNU Emacs.  The translated code will require runtime
 ;; support from the mlsupport.el equivalent.
 
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 5c9f71b96a5..0f42f72c7d5 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -332,7 +332,7 @@ command extensions.")
   "Save last direction, char and upto-flag used for char finding.")
 
 (defvar vi-last-change-command nil      ; cons cell
-  "Save commmands for redoing last changes.  Each command is in (FUNC . ARGS)
+  "Save commands for redoing last changes.  Each command is in (FUNC . ARGS)
 form that is ready to be 'apply'ed.")
 
 (defvar vi-last-shell-command nil       ; last shell op command line
@@ -790,7 +790,7 @@ The given COUNT is remembered for future scrollings."
 
 (defun vi-char-argument (arg)
   "Get following character (could be any CHAR) as part of the prefix argument.
-Possible perfix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)."
+Possible prefix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)."
   (interactive "P")
   (let ((char (read-char)))
     (cond ((null arg) (setq prefix-arg (cons nil char)))
@@ -1346,7 +1346,7 @@ The following CHAR will be the name for the command or macro."
            (vi-ask-for-info char))))
 
 (defun vi-mark-region (arg region)
-  "Mark region approriately.  The next char REGION is d(efun),s(-exp),b(uffer),
+  "Mark region appropriately.  The next char REGION is d(efun),s(-exp),b(uffer),
 p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence),
 l(ines)."
   (interactive "p\nc")
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 13f91aa069f..3c307625059 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -67,7 +67,7 @@
 
 (defvar vip-d-com nil
   "If non-nil, it's value is a list (M-COM VAL COM), and is used to
-re-execute last destrcutive command")
+re-execute last destructive command")
 
 (defconst vip-shift-width 8
   "*The number of colums shifted by > and < command.")
@@ -76,7 +76,7 @@ re-execute last destrcutive command")
   "*If t then do regexp replace, if nil then do string replace.")
 
 (defvar vip-d-char nil
-  "The character remenbered by the vi \"r\" command")
+  "The character remembered by the vi \"r\" command")
 
 (defvar vip-f-char nil
   "for use by \";\" command")
@@ -322,7 +322,7 @@ EVENTS is a list of events, which become the beginning of the command."
   (vip-escape-to-emacs arg '(?\C-h)))
 
 
-;; prefix argmument for vi mode
+;; prefix argument for vi mode
 
 ;; In vi mode, prefix argument is a dotted pair (NUM . COM) where NUM
 ;; represents the numeric value of the prefix argument and COM represents
@@ -359,7 +359,7 @@ obtained so far, and COM is the command part obtained so far."
             (setq cont nil))
         ;; if com is nil we set com as char, and read more.  again, if char
         ;; is ", we read the name of register and store it in vip-use-register.
-        ;; if char is !, =, or #, a copmlete com is formed so we exit while.
+        ;; if char is !, =, or #, a complete com is formed so we exit while.
         (cond ((or (= char ?!) (= char ?=))
                (setq com char)
                (setq char (read-char))
@@ -422,7 +422,7 @@ obtained so far, and COM is the command part obtained so far."
           com (vip-getcom arg))
     (if (null val)
         (if (null com)
-            (message "Value is nil, and commmand is nil.")
+            (message "Value is nil, and command is nil.")
           (message "Value is nil, and command is %c." com))
       (if (null com)
           (message "Value is %d, and command is nil." val)
@@ -626,7 +626,7 @@ to vip-d-com for later use by vip-repeat"
                           reg))))
 
 (defun vip-repeat (arg)
-  "(ARG)  Re-excute last destructive command.  vip-d-com has the form
+  "(ARG)  Re-execute last destructive command.  vip-d-com has the form
 (COM ARG CH REG), where COM is the command to be re-executed, ARG is the
 argument for COM, CH is a flag for repeat, and REG is optional and if exists
 is the name of the register for COM."
@@ -1128,7 +1128,7 @@ beginning of buffer, stop and signal error."
     (if com (vip-execute-com 'vip-goto-line val com))))
 
 (defun vip-find-char (arg char forward offset)
-  "Find ARG's occurence of CHAR on the current line.  If FORWARD then
+  "Find ARG's occurrence of CHAR on the current line.  If FORWARD then
 search is forward, otherwise backward.  OFFSET is used to adjust point
 after search."
   (let ((arg (if forward arg (- arg))) point)
@@ -1429,7 +1429,7 @@ used.  This behaviour is controlled by the sign of prefix numeric value."
 ;; searching
 
 (defun vip-search-forward (arg)
-  "Search a string forward.  ARG is used to find the ARG's occurence
+  "Search a string forward.  ARG is used to find the ARG's occurrence
 of the string.  Default is vanilla search.  Search mode can be toggled by
 giving null search string."
   (interactive "P")
@@ -1449,7 +1449,7 @@ giving null search string."
             (vip-execute-com 'vip-search-next val com))))))
 
 (defun vip-search-backward (arg)
-  "Search a string backward.  ARG is used to find the ARG's occurence
+  "Search a string backward.  ARG is used to find the ARG's occurrence
 of the string.  Default is vanilla search.  Search mode can be toggled by
 giving null search string."
   (interactive "P")
@@ -2012,7 +2012,7 @@ is a command.")
   "pattern for global command")
 
 (defvar ex-map (make-sparse-keymap)
-  "save commnads for mapped keys")
+  "save commands for mapped keys")
 
 (defvar ex-tag nil
   "save ex tag")
@@ -2988,7 +2988,7 @@ vip-s-string"
             (forward-line (1- ex-count)))
         (set-mark end))
       (vip-enlarge-region (point) (mark))
-      (if ex-flag (error "Extra chacters at end of command"))
+      (if ex-flag (error "Extra characters at end of command"))
       (if ex-buffer
           (copy-to-register ex-buffer (point) (mark) nil))
       (copy-region-as-kill (point) (mark)))))
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index b0d513be5d5..63c0c278634 100644
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -469,7 +469,7 @@ in ws-last-errormessage for recovery with C-q w."
 
 
 (defun ws-indent-block ()
-  "In WordStar mode: Indent block (not yet implemeted)."
+  "In WordStar mode: Indent block (not yet implemented)."
   (interactive)
   (ws-error "Indent block not yet implemented"))