Apply typo patches from Paul Eggert.

80 files changed, 255 insertions, 255 deletions

diff --git a/lisp/add-log.el b/lisp/add-log.el
index a90237f96ce..d121a76cdf6 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -213,7 +213,7 @@ Interactively, with a prefix argument, the file name is prompted for."
 
 ;;;###autoload
 (defun change-log-mode ()
-  "Major mode for editting change logs; like Indented Text Mode.
+  "Major mode for editing change logs; like Indented Text Mode.
 Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74.
 New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window].
 Each entry behaves as a paragraph, and the entries for one day as a page.
diff --git a/lisp/allout.el b/lisp/allout.el
index d94afc3defc..b76d90c7b2d 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -11,7 +11,7 @@
 ;;;_  - Author: Ken Manheimer <klm@nist.gov>
 ;;;_  - Maintainer: Ken Manheimer <klm@nist.gov>
 ;;;_  - Created: Dec 1991 - first release to usenet
-;;;_  - Version: $Id: allout.el,v 1.1 1993/06/02 17:53:31 rms Exp rms $||
+;;;_  - Version: $Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $||
 ;;;_  - Keywords: outline mode
 
 ;;;_  - LCD Archive Entry
@@ -19,7 +19,7 @@
 ;; LCD Archive Entry:
 ;; allout|Ken Manheimer|klm@nist.gov
 ;; |A more thorough outline-mode
-;; |27-May-1993|$Id: allout.el,v 1.1 1993/06/02 17:53:31 rms Exp rms $||
+;; |27-May-1993|$Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $||
 
 ;;;_  - Description
 ;; A full-fledged outline mode, based on the original rudimentary
@@ -65,7 +65,7 @@
 
 ;;;_   = outline-primary-bullet
 (defvar outline-primary-bullet "*") ;; Changing this var disables any
-                                    ;; backwards compatability with
+                                    ;; backwards compatibility with
                                     ;; the original outline mode.
 (make-variable-buffer-local 'outline-primary-bullet)
 
@@ -333,7 +333,7 @@ up major and minor-mode keybindings.")
 
 ;;;_   : Key bindings
 ;;;_    = Generic minor keybindings control
-;;;_     ; Stallmans suggestion
+;;;_     ; Stallman's suggestion
 (defvar outline-mode-map nil "")
  
 (if outline-mode-map
@@ -594,7 +594,7 @@ Topic: A basic cohesive component of an emacs outline, which can
 Exposure: Hidden (~closed~) topics are represented by ellipses ('...')
           at the end of the visible SUPERTOPIC which contains them,
           rather than by their actual text.  Hidden topics are still
-          susceptable to editing and regular movement functions, they
+          susceptible to editing and regular movement functions, they
           just are not displayed normally, effectively collapsed into
           the ellipses which represent them.  Outline mode provides
           the means to selectively expose topics based on their
@@ -618,7 +618,7 @@ Header: The initial portion of an outline topic.  It is composed of a
         topic header PREFIX at the beginning of the line, followed by
         text to the end of the EFFECTIVE LINE.
 
-Body: Any subsequent lines of text following a topic header and preceeding
+Body: Any subsequent lines of text following a topic header and preceding
       the next one.  This is also referred to as the entry for a topic.
 
 Prefix: The text which distinguishes topic headers from normal text
@@ -629,7 +629,7 @@ Prefix: The text which distinguishes topic headers from normal text
         by zero or more spaces and then an outline BULLET.  [Note - you
         can now designate your own, arbitrary HEADER-LEAD string, by
         setting the variable 'outline-header-prefix'.]  The second form
-        is for backwards compatability with the original emacs outline
+        is for backwards compatibility with the original emacs outline
         mode, and consists solely of asterisks.  Both sorts are
         recognized by all outline commands.  The first sort is generated
         by outline topic production commands if the emacs variable
@@ -1656,7 +1656,7 @@ and cancellation of a search.")
    that the index for the numbered prefix will be derived, by counting
    siblings back to start of level.  If INDEX is a number, then that
    number is used as the index for the numbered prefix (allowing, eg,
-   sequential renumbering to not requre this function counting back the
+   sequential renumbering to not require this function counting back the
    index for each successive sibling)."
 
   ;; The options are ordered in likely frequence of use, most common
@@ -1778,7 +1778,7 @@ and cancellation of a search.")
    - Creation of sibling or nested topics is with respect to the topic
      you're starting from, even when creating backwards.  This way you
      can easily create a sibling in front of the current topic without
-     having to go to it's preceeding sibling, and then open forward
+     having to go to its preceding sibling, and then open forward
      from there."
 
   (let* ((depth (+ (outline-current-depth) relative-depth))
@@ -1814,7 +1814,7 @@ and cancellation of a search.")
                 (or (and (not (> relative-depth 0))
                          ;; not descending,
                          (save-excursion
-                           ;; preceeded by a blank line?
+                           ;; preceded by a blank line?
                            (forward-line -1)
                            (looking-at "^\\s-*$")))
                     (and (= ref-depth 1)
@@ -1906,7 +1906,7 @@ and cancellation of a search.")
   "  Reindent body lines which were indented at old-depth to new-depth.
 
   Note that refill of indented paragraphs is not done, and tabs are
-  not accomodated.  ('untabify' your outline if you want to preserve
+  not accommodated.  ('untabify' your outline if you want to preserve
   hanging body indents.)"
 
   (save-excursion
@@ -2292,7 +2292,7 @@ parameterized communication between the two, if suitable.")
       (yank arg)
       (exchange-dot-and-mark)
       (if (and established-depth        ; the established stuff qualifies.
-               ;; The yanked stuff also qualfies - is topic(s):
+               ;; The yanked stuff also qualifies - is topic(s):
                (looking-at (concat "\\(" outline-regexp "\\)")))
           ;; Ok, adjust the depth of the yanked stuff.  Note that the
           ;; stuff may have more than a single root, so we have to
@@ -2426,7 +2426,7 @@ parameterized communication between the two, if suitable.")
       )
     )
   )
-;;;_     > outline-to-entry-end - Unmaintained compatability - ignore this!
+;;;_     > outline-to-entry-end - Unmaintained compatibility - ignore this!
 ;-------------------------------------------------------------------
 ; Something added solely for use by a "smart menu" package someone got
 ; off the net.  I have no idea whether this is appropriate code.
@@ -2538,7 +2538,7 @@ parameterized communication between the two, if suitable.")
       (if arg (insert-string (format "\t\t\t(%s \"%s\")\n"
                                      "outline-lead-with-comment-string"
                                      arg)))
-                                        ; Insert ammouncement and
+                                        ; Insert announcement and
                                         ; exposure control:
       (insert-string
        (format "\t\t\t%s %s\n\t\t\t%s %s\n\t\t%s %s"
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 2236db26d5c..9b40a747b3a 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -128,7 +128,7 @@
 
 ;;; Gateways:
 ;;;
-;;; Sometimes it is neccessary for the FTP process to be run on a different
+;;; Sometimes it is necessary for the FTP process to be run on a different
 ;;; machine than the machine running GNU Emacs.  This can happen when the
 ;;; local machine has restrictions on what hosts it can access.
 ;;;
@@ -151,7 +151,7 @@
 ;;;
 ;;; 3) Using NFS and symlinks, make sure that there is a shared directory with
 ;;;    the *same* name between the local machine and the gateway machine.
-;;;    This directory is neccessary for temporary files created by ange-ftp.
+;;;    This directory is necessary for temporary files created by ange-ftp.
 ;;;
 ;;; 4) Set the variable 'ange-ftp-gateway-tmp-name-template' to the name of
 ;;;    this directory plus an identifying filename prefix.  For example:
@@ -223,7 +223,7 @@
 ;;;    there is a chance you might connect to an ULTRIX machine (such as
 ;;;    prep.ai.mit.edu), then set this variable accordingly.  This will have
 ;;;    the side effect that dired will have problems with symlinks whose names
-;;;    end in an @. If you get youself into this situation then editing
+;;;    end in an @.  If you get yourself into this situation then editing
 ;;;    dired's ls-switches to remove "F", will temporarily fix things.
 ;;;
 ;;; 2. If you know that you are connecting to a certain non-UNIX machine
@@ -379,7 +379,7 @@
 ;;; 1. Umask problems:
 ;;;    Be warned that files created by using ange-ftp will take account of the
 ;;;    umask of the ftp daemon process rather than the umask of the creating
-;;;    user.  This is particulary important when logging in as the root user.
+;;;    user.  This is particularly important when logging in as the root user.
 ;;;    The way that I tighten up the ftp daemon's umask under HP-UX is to make
 ;;;    sure that the umask is changed to 027 before I spawn /etc/inetd.  I
 ;;;    suspect that there is something similar on other systems.
@@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.23 $")
+(defconst ange-ftp-version "$Revision: 1.24 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -1060,7 +1060,7 @@ Optional DEFAULT is password to start with."
   "Return the password for specified HOST and USER, asking user if necessary."
   (ange-ftp-parse-netrc)
 
-  ;; look up password in the hash table first; user might have overriden the
+  ;; look up password in the hash table first; user might have overridden the
   ;; defaults.
   (cond ((ange-ftp-lookup-passwd host user))
         
@@ -1373,7 +1373,7 @@ then kill the related ftp process."
 ;;;; ------------------------------------------------------------
 
 (defun ange-ftp-process-handle-line (line proc)
-  "Look at the given LINE from the ftp process PROC.  Try to catagorize it
+  "Look at the given LINE from the ftp process PROC.  Try to categorize it
 into one of four categories: good, skip, fatal, or unknown."
   (cond ((string-match ange-ftp-xfer-size-msgs line)
          (setq ange-ftp-xfer-size
@@ -3160,7 +3160,7 @@ system TYPE.")
 ;;      (kill-buffer (current-buffer))))))
 
 ;; this is the extended version of ange-ftp-copy-file-internal that works
-;; asyncronously if asked nicely.
+;; asynchronously if asked nicely.
 (defun ange-ftp-copy-file-internal (filename newname ok-if-already-exists
                                              keep-date &optional msg cont nowait)
   (setq filename (expand-file-name filename)
@@ -4060,7 +4060,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
 ;;                    0         ;success-count
 ;;                    (length fn-list) ;total
 ;;                    )
-;;    ;; normal case... use the interative routine... much cheaper.
+;;    ;; normal case... use the interactive routine... much cheaper.
 ;;    (ange-ftp-real-dired-create-files file-creator operation fn-list
 ;;                                    name-constructor marker-char)))
 
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index eb4c8386c3f..88e439a0539 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -23,7 +23,7 @@
 ;;; Commentary:
 
 ;; Edit, delete, or change attributes of all currently active Emacs
-;; buffers from a list summarizing thir state.  A good way to browse
+;; buffers from a list summarizing their state.  A good way to browse
 ;; any special or scratch buffers you have loaded, since you can't find
 ;; them by filename.  The single entry point is `Buffer-menu-mode',
 ;; normally bound to C-x C-b.
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index c6396379fdd..5efe24fe296 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -48,7 +48,7 @@
 ;; calendar, to the Islamic calendar, to the French Revolutionary calendar,
 ;; to the Mayan calendar, and to the astronomical (Julian) day number.
 ;; When floating point is available, times of sunrise/sunset can be displayed,
-;; as can the phases of the moon.  Appointment notication for diary entries
+;; as can the phases of the moon.  Appointment notification for diary entries
 ;; is available.
 
 ;; The following files are part of the calendar/diary code:
@@ -360,7 +360,7 @@ characters with or without a period.")
     (monthname " *" day ", *" year "[^0-9]")
     (dayname "\\W"))
   "*List of pseudo-patterns describing the American patterns of date used.
-See the documentation of diary-date-forms for an explanantion.")
+See the documentation of diary-date-forms for an explanation.")
 
 ;;;###autoload
 (defvar european-date-diary-pattern
@@ -370,7 +370,7 @@ See the documentation of diary-date-forms for an explanantion.")
     (day " *" monthname " *" year "[^0-9]")
     (dayname "\\W"))
   "*List of pseudo-patterns describing the European patterns of date used.
-See the documentation of diary-date-forms for an explanantion.")
+See the documentation of diary-date-forms for an explanation.")
 
 ;;;###autoload
 (defvar diary-date-forms
@@ -405,14 +405,14 @@ a portion of the first word of the diary entry.")
   '((if dayname (concat dayname ", ")) day " " monthname " " year)
   "*The pseudo-pattern that governs the way a Gregorian date is formatted
 in the European style.  See the documentation of calendar-date-display-forms
-for an explanantion.")
+for an explanation.")
 
 ;;;###autoload
 (defvar american-calendar-display-form
   '((if dayname (concat dayname ", ")) monthname " " day ", " year)
   "*The pseudo-pattern that governs the way a Gregorian date is formatted
 in the American style.  See the documentation of calendar-date-display-forms
-for an explanantion.")
+for an explanation.")
 
 ;;;###autoload
 (defvar calendar-date-display-form
@@ -962,7 +962,7 @@ add Thomas Jefferson's birthday, April 2, 1743 (Julian), use
 
 To include a holiday conditionally, use the if or the sexp form.  For example,
 to include American presidential elections, which occur on the first Tuesday
-after the first Monday in November of years divisble by 4, add
+after the first Monday in November of years divisible by 4, add
 
      (sexp (if (zerop (% year 4))
                (calendar-gregorian-from-absolute
@@ -1747,7 +1747,7 @@ Revolutionary, and Mayan calendars can be determined by
        \\[calendar-print-french-date]  show equivalent date on the French Revolutionary calendar
        \\[calendar-print-mayan-date]  show equivalent date on the Mayan calendar
 
-The astromonical (Julian) day number of a date is found with
+The astronomical (Julian) day number of a date is found with
 
        \\[calendar-print-astro-day-number]  show equivalent astronomical (Julian) day number
 
@@ -3112,7 +3112,7 @@ shown by cursor."
   "Move cursor to astronomical (Julian) DAYNUMBER.
 Echo astronomical (Julian) day number unless NOECHO is t."
   (interactive (list (calendar-read
-                      "Astromonical (Julian) day number (>1721425): "
+                      "Astronomical (Julian) day number (>1721425): "
                       '(lambda (x) (> x 1721425)))))
   (calendar-goto-date (calendar-gregorian-from-absolute (- daynumber 1721425)))
   (or noecho (calendar-print-astro-day-number)))
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 02cc6e6ba53..f9f582b9a46 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;; This collection of functions implements the features of calendar.el and
-;; diary.el that deal with sunrise/sunset and eqinoxes/solstices.
+;; diary.el that deal with sunrise/sunset and equinoxes/solstices.
 
 ;; Based on the ``Almanac for Computers 1984,'' prepared by the Nautical
 ;; Almanac Office, United States Naval Observatory, Washington, 1984 and
diff --git a/lisp/cl.el b/lisp/cl.el
index aeb90b9977f..1a6a385e3ee 100644
--- a/lisp/cl.el
+++ b/lisp/cl.el
@@ -1358,7 +1358,7 @@ if clumsier, control over this feature."
 ;;; extract a value with (extract-from-klist KLIST KEY [DEFAULT]).
 
 (defun reduce (function sequence &rest kargs)
-  "Apply FUNCTION (a function of two arguments) to succesive pairs of elements
+  "Apply FUNCTION (a function of two arguments) to successive pairs of elements
 from SEQUENCE.  Some keyword arguments are valid after FUNCTION and SEQUENCE:
 :from-end       If non-nil, process the values backwards
 :initial-value  If given, prefix it to the SEQUENCE.  Suffix, if :from-end
@@ -1665,7 +1665,7 @@ The arguments must be integers.  With no arguments, value is zero."
            (do* ((absa (abs (nth 0 integers))) ; better to operate only
                  (absb (abs (nth 1 integers))) ;on positives.
                  (dd (max absa absb))   ; setup correct order for the
-                 (ds (min absa absb))   ;succesive divisions.
+                 (ds (min absa absb))   ;successive divisions.
                  ;; intermediate results
                  (q 0)
                  (r 0)
@@ -1968,7 +1968,7 @@ updating called for."
 
 (defsetf apply
   (lambda (&rest args)
-    ;; dissasemble the calling form
+    ;; disassemble the calling form
     ;; "(((quote fn) x1 x2 ... xn) val)" (function instead of quote, too)
     (let* ((fnform (car args))          ;functional form
            (applyargs (append           ;arguments "to apply fnform"
@@ -2383,7 +2383,7 @@ Each option is either a symbol, or a list of a keyword symbol taken from the
 list \{:conc-name, :copier, :constructor, :predicate, :include,
 :print-function, :type, :initial-offset\}.  The meanings of these are as in
 CLtL, except that no BOA-constructors are provided, and the options
-\{:print-fuction, :type, :initial-offset\} are ignored quietly.  All these
+\{:print-function, :type, :initial-offset\} are ignored quietly.  All these
 structs are named, in the sense that their names can be used for type
 discrimination.
 
diff --git a/lisp/cmulisp.el b/lisp/cmulisp.el
index 3557be394b5..1e49da84165 100644
--- a/lisp/cmulisp.el
+++ b/lisp/cmulisp.el
@@ -626,7 +626,7 @@ to be the new process's buffer. If you only run one process, this will
 do the right thing. If you run multiple processes, you can change
 cmulisp-buffer to another process buffer with \\[set-variable].
 
-More sophisticated approaches are, of course, possible. If you find youself
+More sophisticated approaches are, of course, possible. If you find yourself
 needing to switch back and forth between multiple processes frequently,
 you may wish to consider ilisp.el, a larger, more sophisticated package
 for running inferior Lisp processes. The approach taken here is for a
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 982a0c3dc10..a4a98aac936 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -402,7 +402,7 @@ to be the new process's buffer. If you only run one process, this will
 do the right thing. If you run multiple processes, you can change
 scheme-buffer to another process buffer with \\[set-variable].
 
-More sophisticated approaches are, of course, possible. If you find youself
+More sophisticated approaches are, of course, possible. If you find yourself
 needing to switch back and forth between multiple processes frequently,
 you may wish to consider ilisp.el, a larger, more sophisticated package
 for running inferior Lisp and Scheme processes. The approach taken here is
diff --git a/lisp/comint.el b/lisp/comint.el
index fb97ec7a5a4..e494e706195 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1356,7 +1356,7 @@ This is a good place to put keybindings.")
 ;;; 9/5/90 shivers
 ;;; - Changed make-variable-buffer-local's to make-local-variable's.
 ;;;   This leaves non-comint-mode buffers alone. Stephane Payrard
-;;;   reported the sloppy useage.
+;;;   reported the sloppy usage.
 ;;; - You can now go from comint-previous-similar-input to
 ;;;   comint-previous-input with no problem.
 ;;;
diff --git a/lisp/completion.el b/lisp/completion.el
index e450c55162a..2192239f56a 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -111,13 +111,13 @@
 ;;;---------------------
 ;;;
 ;;;   A "word" is any string containing characters with either word or symbol 
-;;; syntax.  [E.G. Any alphanumeric string with hypens, underscores, etc.]
+;;; syntax.  [E.G. Any alphanumeric string with hyphens, underscores, etc.]
 ;;; Unless you change the constants, you must type at least three characters
 ;;; for the word to be recognized.  Only words longer than 6 characters are
 ;;; saved.
 ;;;
 ;;;   When you load this file, completion will be on.  I suggest you use the
-;;; compiled version (because it is noticibly faster).
+;;; compiled version (because it is noticeably faster).
 ;;;
 ;;;  M-X completion-mode toggles whether or not new words are added to the
 ;;; database by changing the value of enable-completion.
@@ -273,7 +273,7 @@
 ;;; superior to that of the LISPM version.
 ;;;
 ;;;-----------------------------------------------
-;;; Acknowlegements
+;;; Acknowledgements
 ;;;-----------------------------------------------
 ;;;  Cliff Lasser (cal@think.com), Kevin Herbert (kph@cisco.com),
 ;;;  eero@media-lab, kgk@cs.brown.edu, jla@ai.mit.edu,
@@ -527,7 +527,7 @@ Used to decide whether to save completions.")
 ;;;
 ;;; C diffs ->
 ;;;   Separator chars :: + * / : %
-;;;  A note on the hypen (`-').  Perhaps, the hypen should also be a separator
+;;;  A note on the hyphen (`-').  Perhaps the hyphen should also be a separator
 ;;; char., however, we wanted to have completion symbols include pointer 
 ;;; references.  For example, "foo->bar" is a symbol as far as completion is
 ;;; concerned.
@@ -1060,7 +1060,7 @@ This is sensitive to `case-fold-search'."
 (defconst cmpl-obarray-length 511)
 
 (defvar cmpl-prefix-obarray (make-vector cmpl-obarray-length 0)
-  "An obarray used to store the downcased completion prefices.
+  "An obarray used to store the downcased completion prefixes.
 Each symbol is bound to a list of completion entries.")
 
 (defvar cmpl-obarray (make-vector cmpl-obarray-length 0)
@@ -1139,7 +1139,7 @@ Each symbol is bound to a single completion entry.")
 (defmacro set-cmpl-prefix-entry-tail (prefix-entry new-tail)
   (list 'setcdr prefix-entry new-tail))
 
-;;; Contructor
+;;; Constructor
 
 (defun make-cmpl-prefix-entry (completion-entry-list)
   "Makes a new prefix entry containing only completion-entry."
@@ -1287,7 +1287,7 @@ Must be called after `find-exact-completion'."
 ;;; WRITES
 (defun add-completion-to-tail-if-new (string)
   "If STRING is not in the database add it to appropriate prefix list.
-STRING is added to the end of the approppriate prefix list with
+STRING is added to the end of the appropriate prefix list with
 num-uses = 0.  The database is unchanged if it is there.  STRING must be
 longer than `completion-prefix-min-length'.
 This must be very fast.
@@ -1321,7 +1321,7 @@ Returns the completion entry."
 
 (defun add-completion-to-head (string)
   "If STRING is not in the database, add it to prefix list.
-STRING is added to the head of the approppriate prefix list.  Otherwise
+STRING is added to the head of the appropriate prefix list.  Otherwise
 it is moved to the head of the list.
 STRING must be longer than `completion-prefix-min-length'.
 Updates the saved string with the supplied string.
@@ -1779,7 +1779,7 @@ If there are no more entries, try cdabbrev and then return only a string."
 
 (defun complete (&optional arg)
   "Fill out a completion of the word before point.  
-Point is left at end.  Consective calls rotate through all possibilities.
+Point is left at end.  Consecutive calls rotate through all possibilities.
 Prefix args ::
   control-u :: leave the point at the beginning of the completion rather 
                than at the end.
@@ -2049,14 +2049,14 @@ Prefix args ::
 ;;; Symbol separator chars (have whitespace syntax) --> , ; * = (
 ;;; Opening char --> [ {
 ;;; Closing char --> ] }
-;;; openning and closing must be skipped over
+;;; opening and closing must be skipped over
 ;;; Whitespace chars (have symbol syntax)
 ;;; Everything else has word syntax
 
 (defun cmpl-make-c-def-completion-syntax-table ()
   (let ((table (make-vector 256 0))
         (whitespace-chars '(?  ?\n ?\t ?\f  ?\v ?\r))
-        ;; unforunately the ?( causes the parens to appear unbalanced
+        ;; unfortunately the ?( causes the parens to appear unbalanced
         (separator-chars '(?, ?* ?= ?\( ?\;
                            ))
         )
@@ -2505,14 +2505,14 @@ Patched to remove the most recent completion."
 ;;; Patches to self-insert-command.
 ;;;-----------------------------------------------
 
-;;; Need 2 versions: generic seperator chars. and space (to get auto fill
+;;; Need 2 versions: generic separator chars. and space (to get auto fill
 ;;; to work)
 
 ;;; All common separators (eg. space "(" ")" """) characters go through a
 ;;; function to add new words to the list of words to complete from:
 ;;;  COMPLETION-SEPARATOR-SELF-INSERT-COMMAND (arg).
 ;;; If the character before this was an alpha-numeric then this adds the 
-;;; symbol befoe point to the completion list (using ADD-COMPLETION).
+;;; symbol before point to the completion list (using ADD-COMPLETION).
 
 (defun completion-separator-self-insert-command (arg)
   (interactive "p")
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index e452bf26c61..16b28fc4e1e 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -269,7 +269,7 @@ with a prefix argument."
 (defun dired-shell-quote (filename)
   "Quote a file name for inferior shell (see variable `shell-file-name')."
   ;; Quote everything except POSIX filename characters.
-  ;; This should be safe enough even for really wierd shells.
+  ;; This should be safe enough even for really weird shells.
   (let ((result "") (start 0) end)
     (while (string-match "[^---0-9a-zA-Z_./]" filename start)
       (setq end (match-beginning 0)
@@ -480,7 +480,7 @@ and use this command with a prefix argument (the value does not matter)."
 (defun dired-compress-file (file)
   ;; Compress or uncompress FILE.
   ;; Return the name of the compressed or uncompressed file.
-  ;; Rerurn nil if no change in files.
+  ;; Return nil if no change in files.
   (let ((handler (find-file-name-handler file)))
     (cond (handler
            (funcall handler 'dired-compress-file file))
@@ -767,7 +767,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
             nil))
     (if reason                          ; don't move away on failure
         (goto-char opoint))
-    (not reason)))                      ; return t on succes, nil else
+    (not reason)))                      ; return t on success, nil else
 
 ;; This is a separate function for the sake of nested dired format.
 (defun dired-add-entry-do-indentation (marker-char)
@@ -1100,7 +1100,7 @@ ESC or `q' to not overwrite any of the remaining files,
   ;;   the new files.  Target may be a plain file if only one marked
   ;;   file exists.
   ;; OP-SYMBOL is the symbol for the operation.  Function `dired-mark-pop-up'
-  ;;   will determine wether pop-ups are appropriate for this OP-SYMBOL.
+  ;;   will determine whether pop-ups are appropriate for this OP-SYMBOL.
   ;; FILE-CREATOR and OPERATION as in dired-create-files.
   ;; ARG as in dired-get-marked-files.
   ;; Optional arg OP1 is an alternate form for OPERATION if there is
diff --git a/lisp/dired.el b/lisp/dired.el
index 680b116dd01..f3916b62b12 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -48,7 +48,7 @@ may contain even `F', `b', `i' and `s'.")
 (defvar dired-chown-program
   (if (memq system-type '(hpux dgux usg-unix-v silicon-graphics-unix))
       "chown" "/etc/chown")
-  "Name of chown command (usully `chown' or `/etc/chown').")
+  "Name of chown command (usually `chown' or `/etc/chown').")
 
 ;;;###autoload
 (defvar dired-ls-F-marks-symlinks nil
@@ -824,7 +824,7 @@ Keybindings:
   (dired-sort-other dired-actual-switches t)
   (run-hooks 'dired-mode-hook))
 
-;; Ideosyncratic dired commands that don't deal with marks.
+;; Idiosyncratic dired commands that don't deal with marks.
 
 (defun dired-quit ()
   "Bury the current dired buffer."
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index a74e30ad851..ef5d4a02c99 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
- ;;; This is a rudimentry backquote package written by D. King,
+ ;;; This is a rudimentary backquote package written by D. King,
  ;;; king@kestrel, on 8/31/85.  (` x) is a macro
  ;;; that expands to a form that produces x.  (` (a b ..)) is
  ;;; a macro that expands into a form that produces a list of what a b
@@ -83,7 +83,7 @@ a list-value atom"
 ;;; These two advertised variables control what characters are used to
  ;;; unquote things.  I have included , and ,@ as the unquote and
  ;;; splice operators, respectively, to give users of MIT CADR machine
- ;;; derivitive machines a warm, cosy feeling.
+ ;;; derivative machines a warm, cosy feeling.
 
 (defconst backquote-unquote '(,)
   "*A list of all objects that stimulate unquoting in `.  Memq test.")
@@ -181,7 +181,7 @@ See backquote.el for details"
 
 ;;; Given a state/tailmaker pair that already knows how to make a
  ;;; partial tail of the desired form, this function knows how to add
- ;;; yet another element to the burgening list.  There are four cases;
+ ;;; yet another element to the burgeoning list.  There are four cases;
  ;;; the next item is an atom (which will certainly be quoted); a 
  ;;; (, xxx), which will be evaluated and put into the list at the top
  ;;; level; a (,@ xxx), which will be evaluated and spliced in, or
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 4a39a71c617..c7ab880cf60 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -388,7 +388,7 @@
           
           ((memq fn '(and or))  ; remember, and/or are control structures.
            ;; take forms off the back until we can't any more.
-           ;; In the future it could concievably be a problem that the
+           ;; In the future it could conceivably be a problem that the
            ;; subexpressions of these forms are optimized in the reverse
            ;; order, but it's ok for now.
            (if for-effect
@@ -522,7 +522,7 @@
 ;;;
 ;;; It is now safe to optimize code such that it introduces new bindings.
 
-;; I'd like this to be a defsubst, but let's not be self-referental...
+;; I'd like this to be a defsubst, but let's not be self-referential...
 (defmacro byte-compile-trueconstp (form)
   ;; Returns non-nil if FORM is a non-nil constant.
   (` (cond ((consp (, form)) (eq (car (, form)) 'quote))
@@ -773,7 +773,7 @@
 ;; I'm not convinced that this is necessary.  Doesn't the optimizer loop 
 ;; take care of this? - Jamie
 ;; I think this may some times be necessary to reduce ie (quote 5) to 5,
-;; so arithmetic optimizers recognize the numerinc constant.  - Hallvard
+;; so arithmetic optimizers recognize the numeric constant.  - Hallvard
 (put 'quote 'byte-optimizer 'byte-optimize-quote)
 (defun byte-optimize-quote (form)
   (if (or (consp (nth 1 form))
@@ -1063,7 +1063,7 @@
 ;;; and by the disassembler.
 ;;;
 (defun byte-decompile-bytecode (bytes constvec)
-  "Turns BYTECODE into lapcode, refering to CONSTVEC."
+  "Turns BYTECODE into lapcode, referring to CONSTVEC."
   (let ((byte-compile-constants nil)
         (byte-compile-variables nil)
         (byte-compile-tag-number 0))
@@ -1418,7 +1418,7 @@ may generate incorrect code.")
               ((and (eq (car lap0) 'TAG)
                     (eq (car lap1) 'TAG))
                (and (memq byte-optimize-log '(t byte))
-                    (byte-compile-log "  adjascent tags %d and %d merged"
+                    (byte-compile-log "  adjacent tags %d and %d merged"
                                       (nth 1 lap1) (nth 1 lap0)))
                (setq tmp3 lap)
                (while (setq tmp2 (rassq lap0 tmp3))
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index ce72c041551..d1f03516f7c 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -143,7 +143,7 @@
 ;;;
 ;;;  o  The form `eval-when-compile' is like progn, except that the body
 ;;;     is evaluated at compile-time.  When it appears at top-level, this
-;;;     is analagous to the Common Lisp idiom (eval-when (compile) ...).
+;;;     is analogous to the Common Lisp idiom (eval-when (compile) ...).
 ;;;     When it does not appear at top-level, it is similar to the
 ;;;     Common Lisp #. reader macro (but not in interpreted code.)
 ;;;
@@ -407,7 +407,7 @@ Each element is (INDEX . VALUE)")
 (byte-defop  24 -1 byte-varbind "for binding a variable")
 (byte-defop  32  0 byte-call    "for calling a function")
 (byte-defop  40  0 byte-unbind  "for unbinding special bindings")
-;; codes 8-47 are consumed by the preceeding opcodes
+;; codes 8-47 are consumed by the preceding opcodes
 
 ;; unused: 48-55
 
@@ -2205,7 +2205,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 (defun byte-compile-associative (form)
   (if (cdr form)
       (let ((opcode (get (car form) 'byte-opcode)))
-        ;; To compile all the args first may enable some optimizaions.
+        ;; To compile all the args first may enable some optimizations.
         (mapcar 'byte-compile-form (setq form (cdr form)))
         (while (setq form (cdr form))
           (byte-compile-out opcode 0)))
@@ -2310,7 +2310,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 
 (defun byte-compile-funarg (form)
   ;; (mapcar '(lambda (x) ..) ..) ==> (mapcar (function (lambda (x) ..)) ..)
-  ;; for cases where it's guarenteed that first arg will be used as a lambda.
+  ;; for cases where it's guaranteed that first arg will be used as a lambda.
   (byte-compile-normal-call
    (let ((fn (nth 1 form)))
      (if (and (eq (car-safe fn) 'quote)
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index f063f92ee7a..f6ad1854012 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -74,7 +74,7 @@ by `lisp-body-indent'.")
     ;;  which does special things with subforms.
     (let ((depth 0)
           ;; Path describes the position of point in terms of
-          ;;  list-structure with respect to contining lists.
+          ;;  list-structure with respect to containing lists.
           ;; `foo' has a path of (0 4 1) in `((a b c (d foo) f) g)'
           (path ())
           ;; set non-nil when somebody works out the indentation to use
@@ -331,7 +331,7 @@ by `lisp-body-indent'.")
                  path state indent-point sexp-column normal-indent))
     (funcall (function lisp-indent-259)
              '((&whole nil &rest
-                ;; the following causes wierd indentation
+                ;; the following causes weird indentation
                 ;;(&whole 1 1 2 nil)
                 )
                (&whole nil &rest 1))
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el
index 355b046b956..863c8daaf3b 100644
--- a/lisp/emacs-lisp/cust-print.el
+++ b/lisp/emacs-lisp/cust-print.el
@@ -121,8 +121,8 @@ If nil, printing proceeds recursively and may lead to
 `print-length' and `print-level'.
 
 If non-nil, shared substructures anywhere in the structure are printed
-with `#N=' before the first occurance (in the order of the print
-representation) and `#N#' in place of each subsequent occurance,
+with `#N=' before the first occurrence (in the order of the print
+representation) and `#N#' in place of each subsequent occurrence,
 where N is a positive decimal integer.
 
 Currently, there is no way to read this representation in Emacs.")
@@ -269,7 +269,7 @@ string argument will also work.  The string is generated with
 
 (defun custom-message (fmt &rest args)
   "Replacement for standard `message' that works like `custom-format'."
-  ;; It doesnt work to princ the result of custom-format
+  ;; It doesn't work to princ the result of custom-format
   ;; because the echo area requires special handling
   ;; to avoid duplicating the output.  cust-print-internal-message does it right.
   ;; (cust-print-internal-princ (apply 'custom-format fmt args))
@@ -352,7 +352,7 @@ string argument will also work.  The string is generated with
 ;; Print the custom OBJECT using the custom type ALIST.
 ;; For the first predicate that matches the object, the corresponding
 ;; converter is evaluated with the object and the string that results is
-;; printed with princ.  Return nil if no predicte matches the object.
+;; printed with princ.  Return nil if no predicate matches the object.
 (defun cust-print-custom-object1 (object alist)
   (while (and alist (not (funcall (car (car alist)) object)))
     (setq alist (cdr alist)))
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 46bc1616487..a5acfd50875 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -127,7 +127,7 @@
 ;;; Reset edebug-mode only on
 ;;;     first entry of any function at each recursive-edit level.
 ;;; Add edebug-backtrace, to generate cleaned up
-;;;     backtrace.  It doesnt "work" like the debug backtrace, however.
+;;;     backtrace.  It doesn't "work" like the debug backtrace, however.
 ;;; Require reselecting outside window even if
 ;;;     quit occurs, otherwise save-excursions may restore
 ;;;     buffer to the wrong window.
@@ -180,9 +180,9 @@
 ;;; Leave point at syntax error, mark at starting position.
 ;;; 
 ;;; Revision 1.2  88/11/28  12:14:15  liberte
-;;; Bug fixes: cond construct didnt execute.
-;;;   () in sexp list didnt parse
-;;;   () as variable in condition-case didnt parse.
+;;; Bug fixes: cond construct didn't execute.
+;;;   () in sexp list didn't parse
+;;;   () as variable in condition-case didn't parse.
 ;;; 
 ;;; Revision 1.1  88/11/28  12:11:27  liberte
 ;;; Initial revision
@@ -281,7 +281,7 @@ Assumes Emacs Lisp syntax is active."
 
 (defun edebug-window-list ()
   "Return a list of windows, in order of next-window."
-  ;; This doesnt work for epoch.
+  ;; This doesn't work for epoch.
   (let* ((first-window (selected-window))
          (window-list (list first-window))
          (next (next-window first-window)))
@@ -1026,7 +1026,7 @@ Leave point after the value, if there is one."
     (nreverse value-value-list)))
 
 
-;; Bug: this doesnt support condition name lists
+;; Bug: this doesn't support condition name lists
 (put 'condition-case 'edebug-form-hook
      '(symbolp
        form
@@ -1398,7 +1398,7 @@ This is to avoid spurious recentering.")
                    (eq edebug-arg-mode 'error)) 
                (progn
                  (setq edebug-mode 'step)
-                 (edebug-overlay-arrow) ; this doesnt always show up.
+                 (edebug-overlay-arrow) ; this doesn't always show up.
                  (edebug-recursive-edit));;   <<<<<< Recursive edit
              )
 
diff --git a/lisp/emacs-lisp/float.el b/lisp/emacs-lisp/float.el
index f6e7bb74972..04281d7eb73 100644
--- a/lisp/emacs-lisp/float.el
+++ b/lisp/emacs-lisp/float.el
@@ -71,10 +71,10 @@
   "Number of highest bit")
 
 (defconst mantissa-maxval (1- (ash 1 maxbit))
-  "Maximum permissable value of mantissa")
+  "Maximum permissible value of mantissa")
 
 (defconst mantissa-minval (ash 1 maxbit)
-  "Minimum permissable value of mantissa")
+  "Minimum permissible value of mantissa")
 
 (defconst floating-point-regexp
   "^[ \t]*\\(-?\\)\\([0-9]*\\)\
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 17acda41e22..f7d29dff72c 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -371,7 +371,7 @@ of the start of the containing expression."
                  (parse-partial-sexp (point) last-sexp 0 t)
                  (backward-prefix-chars)))))
       ;; Point is at the point to indent under unless we are inside a string.
-      ;; Call indentation hook except when overriden by lisp-indent-offset
+      ;; Call indentation hook except when overridden by lisp-indent-offset
       ;; or if the desired indentation has already been computed.
       (let ((normal-indent (current-column)))
         (cond ((elt state 3)
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 9c4cbd1d788..854afdddbf0 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; Lisp ediing commands to go with Lisp major mode.
+;; Lisp editing commands to go with Lisp major mode.
 
 ;;; Code:
 
diff --git a/lisp/emerge.el b/lisp/emerge.el
index 3247c6c6a2e..53749d7c445 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -365,9 +365,9 @@ the markers.
         default-B       the merge buffer contains the B variant by default,
                         but this difference hasn't been selected yet, so
                         change-default commands can alter it
-        prefer-A        in a three-file merge, the A variant is the prefered
+        prefer-A        in a three-file merge, the A variant is the preferred
                         choice
-        prefer-B        in a three-file merge, the B variant is the prefered
+        prefer-B        in a three-file merge, the B variant is the preferred
                         choice")
 (emerge-defvar-local emerge-current-difference -1
   "The difference that is currently selected.")
@@ -1073,7 +1073,7 @@ Otherwise, the A or B file present is copied to the output file."
              (t
               (error "Unrecognized entry"))))
         ;; If the match on the entry pattern failed
-        (error "Unparseable entry")))
+        (error "Unparsable entry")))
     ;; Make sure that file-A and file-B are present
     (if (not (or (and file-A file-B) file-out))
         (error "Must have both `A' and `B' entries"))
@@ -2008,7 +2008,7 @@ Use C-u l to reset the windows afterward."
 
 (defun emerge-join-differences (arg)
   "Join the selected difference with the following one.
-With a prefix argument, join with the preceeding one."
+With a prefix argument, join with the preceding one."
   (interactive "P")
   (let ((n emerge-current-difference))
     ;; adjust n to be first difference to join
@@ -2288,11 +2288,11 @@ the nearest previous difference."
        (if (< index emerge-number-of-differences)
            index
          (error "No difference contains or follows point")))
-      ;; if the arg is negative, select the preceeding difference
+      ;; if the arg is negative, select the preceding difference
       (t
        (if (> index 0)
            (1- index)
-         (error "No difference contains or preceeds point")))))))
+         (error "No difference contains or precedes point")))))))
 
 (defun emerge-line-numbers ()
   "Display the current line numbers.
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"))
 
diff --git a/lisp/files.el b/lisp/files.el
index 33d889dd5f8..b7cbb96db2b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1846,7 +1846,7 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
           ;; would mean that our line of output would not display
           ;; FILE's name as given.  To really address the problem that
           ;; SunOS 4.1.3 has, we need to find the right switch to get
-          ;; a descripton of the link itself.
+          ;; a description of the link itself.
           ;; (let (symlink)
           ;;   (while (setq symlink (file-symlink-p file))
           ;;     (setq file symlink)))
diff --git a/lisp/frame.el b/lisp/frame.el
index 0a0409d53a6..f18dbb29606 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -54,7 +54,7 @@ Parameters specified here supersede the values given in
 Pop-up frames are used for completions, help, and the like.
 This variable can be set in your init file, like this:
   (setq pop-up-frame-alist '((width . 80) (height . 20)))
-These supercede the values given in `default-frame-alist'.")
+These supersede the values given in `default-frame-alist'.")
 
 (setq pop-up-frame-function
       (function (lambda ()
@@ -244,7 +244,7 @@ These supercede the values given in `default-frame-alist'.")
 ;;;; Creation of additional frames, and other frame miscellanea
 
 ;;; Return some frame other than the current frame, creating one if
-;;; neccessary.  Note that the minibuffer frame, if separate, is not
+;;; necessary.  Note that the minibuffer frame, if separate, is not
 ;;; considered (see next-frame).
 (defun get-other-frame ()
   (let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 89ffe4a80b7..139dfe4edc3 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1,6 +1,6 @@
 ;;; GNUS: an NNTP-based News Reader for GNU Emacs
 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
-;; $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.17 1993/06/04 05:33:32 rms Exp rms $
+;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.18 1993/06/05 09:17:34 rms Exp jimb $
 
 ;; This file is part of GNU Emacs.
 
@@ -137,8 +137,8 @@ read in all newsgroups.")
 
 (defvar gnus-use-followup-to t
   "*Specifies what to do with Followup-To: field.
-If nil, ignore followup-to: field.  If t, use its value execpt for
-`poster'.  Otherewise, if not nil nor t, always use its value.")
+If nil, ignore followup-to: field.  If t, use its value except for
+`poster'.  Otherwise, if not nil nor t, always use its value.")
 
 (defvar gnus-large-newsgroup 50
   "*The number of articles which indicates a large newsgroup.
@@ -276,7 +276,7 @@ mode buffer.  The function is called with an article HEADER. The
 result must be a string excluding `[' and `]'.")
 
 (defvar gnus-auto-extend-newsgroup t
-  "*Extend visible artciles to forward and backward if non-nil.")
+  "*Extend visible articles to forward and backward if non-nil.")
 
 (defvar gnus-auto-select-first t
   "*Select the first unread article automagically if non-nil.
@@ -2780,7 +2780,7 @@ If argument UNREAD is non-nil, only unread article is selected."
 
 (defun gnus-summary-next-page (lines)
   "Show next page of selected article.
-If end of artile, select next article.
+If end of article, select next article.
 Argument LINES specifies lines to be scrolled up."
   (interactive "P")
   (let ((article (gnus-summary-article-number))
@@ -2861,7 +2861,7 @@ NOTE: This command may not work with nnspool.el."
       (gnus-eval-in-buffer-window gnus-article-buffer
         ;; Look for parent Message-ID.
         ;; We cannot use gnus-current-headers to get references
-        ;; because we may be looking at parent or refered article.
+        ;; because we may be looking at parent or referred article.
         (let ((references (gnus-fetch-field "References")))
           ;; Get the last message-id in the references.
           (and references
@@ -2896,7 +2896,7 @@ NOTE: This command may not work with nnspool.el nor mhspool.el."
             (setq message-id (concat message-id ">")))
         ;; Push current message-id on history.
         ;; We cannot use gnus-current-headers to get current
-        ;; message-id because we may be looking at parent or refered
+        ;; message-id because we may be looking at parent or referred
         ;; article.
         (let ((current (gnus-fetch-field "Message-ID")))
           (or (equal current message-id) ;Nothing to do.
@@ -4872,7 +4872,7 @@ If optional argument NEXT is non-nil, it is inserted before NEXT."
   (let ((newsgroup (substring newsgroup 0)) ;Copy string.
         (len (length newsgroup))
         (idx 0))
-    ;; Replace all occurence of `.' with `/'.
+    ;; Replace all occurrences of `.' with `/'.
     (while (< idx len)
       (if (= (aref newsgroup idx) ?.)
           (aset newsgroup idx ?/))
@@ -5411,7 +5411,7 @@ If no message is available and optional MESSAGE is given, return it."
 
 (defun gnus-define-access-method (method &optional access-methods)
   "Define access functions for the access METHOD.
-Methods defintion is taken from optional argument ACCESS-METHODS or
+Methods definition is taken from optional argument ACCESS-METHODS or
 the variable gnus-access-methods."
   (let ((bindings
          (cdr (assoc method (or access-methods gnus-access-methods)))))
@@ -5824,7 +5824,7 @@ If nothing is specified, use the variable gnus-overload-functions."
       (setq defs (car overloads))
       (setq overloads (cdr overloads))
       ;; Load file before overloading function if necessary.  Make
-      ;; sure we cannot use `requre' always.
+      ;; sure we cannot use `require' always.
       (and (not (fboundp (car defs)))
            (car (cdr (cdr defs)))
            (load (car (cdr (cdr defs))) nil 'nomessage))
diff --git a/lisp/gnusmisc.el b/lisp/gnusmisc.el
index 49768dd617e..e760b4b0312 100644
--- a/lisp/gnusmisc.el
+++ b/lisp/gnusmisc.el
@@ -234,7 +234,7 @@ The killed newsgroups can be yanked by using \\[gnus-group-yank-group]."
 
 (defun gnus-group-yank-group ()
   "Yank the last newsgroup killed with \\[gnus-group-kill-group],
-inserting it before the newsgroup on the line containging point."
+inserting it before the newsgroup on the line containing point."
   (interactive)
   (gnus-group-insert-group (car gnus-killed-assoc))
   ;; Remove killed newsgroups from the buffer if exists.
diff --git a/lisp/gud.el b/lisp/gud.el
index dc1a5337186..411277c8061 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -131,7 +131,7 @@ we're in the GUD buffer)."
 ;; The job of the marker-filter method is to detect file/line markers in
 ;; strings and set the global gud-last-frame to indicate what display
 ;; action (if any) should be triggered by the marker.  Note that only
-;; whetever the method *returns* is displayed in the buffer; thus, you
+;; whatever the method *returns* is displayed in the buffer; thus, you
 ;; can filter the debugger's output, interpreting some and passing on
 ;; the rest.
 ;;
@@ -755,7 +755,7 @@ the character after the end of the expr."
 
 (defun expr-compound-sep (span-start span-end)
   "Returns '.' for '->' & '.', returns ' ' for white space,
-returns '?' for other puctuation."  
+returns '?' for other punctuation."
   (let ((result ? )
         (syntax))
     (while (< span-start span-end)
diff --git a/lisp/isearch.el b/lisp/isearch.el
index ee46727d5aa..46b9e0c978b 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/06/04 06:40:45 $|$Revision: 1.40 $
+;; |$Date: 1993/06/06 22:11:22 $|$Revision: 1.41 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -83,7 +83,7 @@
 ;; the last possible moment.
 
 ;; TODO
-;; - Integrate the emacs 19 generalized commmand history.
+;; - Integrate the emacs 19 generalized command history.
 ;; - Think about incorporating query-replace.
 ;; - Hooks and options for failed search.
 
@@ -626,7 +626,7 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
 
 ;;;=======================================================
 ;;; Switching buffers should first terminate isearch-mode.
-;;; This is done quite differently for each varient of emacs.
+;;; This is done quite differently for each variant of emacs.
 ;;; For lemacs, see Exiting in lemacs below
 
 ;; For Emacs 19, the frame switch event is handled.
@@ -664,7 +664,7 @@ The following additional command keys are active while editing.
 \\[isearch-forward-exit-minibuffer] to resume isearching forward.
 \\[isearch-backward-exit-minibuffer] to resume isearching backward.
 \\[isearch-ring-advance-edit] to replace the search string with the next item in the search ring.
-\\[isearch-ring-retreat-edit] to replace the search string with the previou item in the search ring.
+\\[isearch-ring-retreat-edit] to replace the search string with the previous item in the search ring.
 \\[isearch-complete-edit] to complete the search string using the search ring.
 
 If first char entered is \\[isearch-yank-word], then do word search instead."
@@ -673,7 +673,7 @@ If first char entered is \\[isearch-yank-word], then do word search instead."
   ;; Mainly, isearch-mode must be terminated while editing and then restarted.
   ;; If there were a way to catch any change of buffer from the minibuffer,
   ;; this could be simplified greatly.
-  ;; Editing doesnt back up the search point.  Should it?
+  ;; Editing doesn't back up the search point.  Should it?
   (interactive)
   (condition-case err
       (let (isearch-nonincremental      ; should search nonincrementally?
@@ -804,7 +804,7 @@ If first char entered is \\[isearch-yank-word], then do word search instead."
 Otherwise, revert to previous successful search and continue searching.
 Use `isearch-exit' to quit without signalling."
   (interactive)
-;;  (ding)  signal instead below, if quiting
+;;  (ding)  signal instead below, if quitting
   (discard-input)
   (if isearch-success
       ;; If search is successful, move back to starting point
@@ -1050,7 +1050,7 @@ If you want to search for just a space, type C-q SPC."
           (isearch-process-search-string search-whitespace-regexp " ")
         (isearch-printing-char))
     (progn
-      ;; This way of doing word search doesnt correctly extend current search.
+      ;; This way of doing word search doesn't correctly extend current search.
       ;;      (setq isearch-word t)
       ;;      (setq isearch-adjusted t)
       ;;      (goto-char isearch-barrier)
diff --git a/lisp/kermit.el b/lisp/kermit.el
index 9387c098372..fd3cc099399 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -37,7 +37,7 @@
 ;; system you connect to.  A more serious problem is that some brain-dead
 ;; systems will not recognize a ^J as an end-of-line character.  So LFD is
 ;; bound to a new function which acts just like CR usually does in shell-mode,
-;; but a ^M is sent as an end-of-line.  Funcions are also provied to swap the
+;; but a ^M is sent as an end-of-line.  Functions are also provided to swap the
 ;; bindings of CR and LFD.  I've also included a filter which will clean out
 ;; any ^M's or ^@'s that get typed at you, but I don't really recommend it.
 ;; There doesn't seem to be an acceptably fast way to do this via emacs-lisp.
@@ -48,7 +48,7 @@
 ;; thru a fairly stupid terminal switch.  If I want to connect to unix system,
 ;; then I use the LFD key to talk to the switch, and ignore any ^M's in the
 ;; buffer, and do a " stty -echo nl " after I log in.  Then the only real
-;; differnce from being in local shell-mode is that it is you need to to type
+;; difference from being in local shell-mode is that you need to type
 ;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc.  (since ^C^C
 ;; just generates a local stop signal, which kermit ignores).
 ;; To connect to a VMS system, I use a shell script to invoke kermit thru the
@@ -66,7 +66,7 @@
 ;; in order to do a file transfer, you have to think ahead and and add -r
 ;; (receive) to the command line.  This means that you can't use the server
 ;; feature.  The only fix I can see is to muck around with the source code for
-;; kermit, although this problably wouldn't be too hard.  What is needed is an
+;; kermit, although this probably wouldn't be too hard.  What is needed is an
 ;; option to force kermit to be local, to use stdin and stdout for interactive
 ;; speech, and to forget about cbreak mode.
 
diff --git a/lisp/macros.el b/lisp/macros.el
index 43b5b2ae945..b1da9eb1162 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -158,7 +158,7 @@ Your options are: \\<query-replace-map>
                    (with-output-to-temp-buffer "*Help*"
                      (princ
                       (substitute-command-keys
-                       "Specify how to procede with keyboard macro execution.
+                       "Specify how to proceed with keyboard macro execution.
 Possibilities: \\<query-replace-map>
 \\[act] Finish this iteration normally and continue with the next.
 \\[skip]        Skip the rest of this iteration, and start the next.
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index e5efae3eb16..3ac665259a9 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -92,7 +92,7 @@
 ;;;     fred, ethyl, larry, curly, moe
 ;;;
 ;;; Aliases may also contain forward references; the alias of "everybody" can
-;;; preceed the aliases of "group1" and "group2".
+;;; precede the aliases of "group1" and "group2".
 ;;;
 ;;; This code also understands the "source" .mailrc command, for reading
 ;;; aliases from some other file as well.
@@ -362,7 +362,7 @@ turned on.")
 
 (defvar mail-mode-header-syntax-table
   (let ((tab (copy-syntax-table text-mode-syntax-table)))
-    ;; This makes the characters "@%!._-" be considered symbol-consituents
+    ;; This makes the characters "@%!._-" be considered symbol-constituents
     ;; but not word-constituents, so forward-sexp will move you over an
     ;; entire address, but forward-word will only move you over a sequence
     ;; of alphanumerics.  (Clearly the right thing.)
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2af0a5a7bd0..5799b718fdc 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -234,7 +234,7 @@ that file, but does not copy any new mail into the file."
       ;; Show the first unseen message, which might be from a previous session
       ;; or might have been just read in by rmail-get-new-mail.  Must
       ;; determine already unseen messages first, as rmail-get-new-mail
-      ;; positions on the first new messsage, thus marking it as seen.
+      ;; positions on the first new message, thus marking it as seen.
       (rmail-show-message existing-unseen))))
 
 ;; Given the value of MAILPATH, return a list of inbox file names.
diff --git a/lisp/man.el b/lisp/man.el
index db6a973c41d..74d42208995 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -51,7 +51,7 @@
 ;; Eric Rose <erose@jessica.stanford.edu>, submitted manual.el which
 ;; provided a very nice manual browsing mode.
 
-;; This package was available as `superman.el' from the LCD paackage
+;; This package was available as `superman.el' from the LCD package
 ;; for some time before it was accepted into Emacs 19.  The entry
 ;; point and some other names have been changed to make it a drop-in
 ;; replacement for the old man.el package.
@@ -126,7 +126,7 @@ in all sections.")
   "*Association list of bogus sections to real section numbers.
 Some manpages (e.g. the Sun C++ 2.1 manpages) have section numbers in
 their references which Un*x man(1) does not recognize.  This
-assocation list is used to translate those sections, when found, to
+association list is used to translate those sections, when found, to
 the associated section number.")
 
 (defvar Man-filter-list
diff --git a/lisp/mh-e.el b/lisp/mh-e.el
index 9a7b3b9e228..d52fbcb31bf 100644
--- a/lisp/mh-e.el
+++ b/lisp/mh-e.el
@@ -48,7 +48,7 @@
 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.edu
 ;;; Modified by Stephen Gildea 1988.  gildea@bbn.com
-(defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.10 1993/05/30 22:56:31 rms Exp rms $")
+(defconst mh-e-RCS-id "$Header: /home/gd/gnu/emacs/19.0/lisp/RCS/mh-e.el,v 1.11 1993/06/05 02:51:21 rms Exp jimb $")
 
 ;;; Code:
 
@@ -195,7 +195,7 @@ Inserted into message by \\<mh-letter-mode-map>\\[mh-insert-signature].")
   "String whose first character is used to notate redistributed messages.")
 
 (defvar mh-good-msg-regexp  "^....[^D^]"
-  "Regexp specifiying the scan lines that are 'good' messages.")
+  "Regexp specifying the scan lines that are 'good' messages.")
 
 (defvar mh-deleted-msg-regexp "^....D"
   "Regexp matching scan lines of deleted messages.")
@@ -1446,7 +1446,7 @@ Assumes mh-e has already been initialized."
 ;;; The folder data abstraction.
 
 (defvar mh-current-folder nil "Name of current folder, a string.")
-(defvar mh-show-buffer nil "Buffer that displays mesage for this folder.")
+(defvar mh-show-buffer nil "Buffer that displays message for this folder.")
 (defvar mh-folder-filename nil "Full path of directory for this folder.")
 (defvar mh-showing nil "If non-nil, show the message in a separate window.")
 (defvar mh-next-seq-num nil "Index of free sequence id.")
diff --git a/lisp/mhspool.el b/lisp/mhspool.el
index 900d8eb0c99..b81823938f0 100644
--- a/lisp/mhspool.el
+++ b/lisp/mhspool.el
@@ -49,7 +49,7 @@ mhspool-list-folders-using-ls and mhspool-list-folders-using-sh are
 provided now.  I suppose the later is faster.")
 
 (defvar mhspool-list-directory-switches '("-R")
-  "*Switches for mhspool-list-folders-using-ls to pass to `ls' for gettting file lists.
+  "*Switches for mhspool-list-folders-using-ls to pass to `ls' for getting file lists.
 One entry should appear on one line. You may need to add `-1' option.")
 
 
@@ -438,7 +438,7 @@ in the current news group."
   (let ((string (substring string 0))   ;Copy string.
         (len (length string))
         (idx 0))
-    ;; Replace all occurence of FROM with TO.
+    ;; Replace all occurrences of FROM with TO.
     (while (< idx len)
       (if (= (aref string idx) from)
           (aset string idx to))
diff --git a/lisp/mim-mode.el b/lisp/mim-mode.el
index 1fb62e2f24d..3ec6b325983 100644
--- a/lisp/mim-mode.el
+++ b/lisp/mim-mode.el
@@ -95,7 +95,7 @@ are bound.")
 <FOO ...> will be indented n spaces from start of form.
 \(put 'FOO 'indent-mim-function 'DEFINE\) is like above but means use
 value of mim-body-indent as offset from start of form.
-\(put 'FOO 'indent-mim-function <cons>\) where <cons> is a list or pointted list
+\(put 'FOO 'indent-mim-function <cons>\) where <cons> is a list or pointed list
 of integers, means indent each form in <FOO ...> by the amount specified
 in <cons>.  When <cons> is exhausted, indent remaining forms by
 `mim-body-indent' unless <cons> is a pointed list, in which case the last
@@ -250,7 +250,7 @@ Entry to this mode calls the value of mim-mode-hook if non-nil."
   "Move forward across Mim object.
 With ARG, move forward that many objects."
   (interactive "p")
-  ;; this function is wierd because it emulates the behavior of the old
+  ;; this function is weird because it emulates the behavior of the old
   ;; (gosling) mim-mode - if the arg is 1 and we are `inside' an ADECL,
   ;; more than one character into the ATOM part and not sitting on the
   ;; colon, then we move to the DECL part (just past colon) instead of
@@ -333,7 +333,7 @@ A negative ARG will raise current line and previous lines."
   "Move down a level of Mim structure forwards.
 With ARG, move down that many levels forwards (backwards, ARG < 0)."
   (interactive "p")
-  ;; another wierdo - going down `inside' an ADECL or ATOM trailer
+  ;; another weirdo - going down `inside' an ADECL or ATOM trailer
   ;; depends on the value of mim-down-parens-only.  if nil, treat
   ;; ADECLs and trailers as structured objects.
   (let ((direction (sign (or arg (setq arg 1)))))
@@ -636,7 +636,7 @@ is reached."
                     (+ method start))
               (goto-char current-indent)
               (if (consp method)
-                  ;; list or pointted list of explicit indentations
+                  ;; list or pointed list of explicit indentations
                   (indent-mim-offset state indent-point)
                 (if (and (symbolp method) (fboundp method))
                     ;; luser function - s/he better know what's going on.
@@ -659,7 +659,7 @@ is reached."
         (last-sexp (car (nthcdr 2 state)))
         indentation)
     (goto-char (1+ containing-sexp))
-    ;; determine wheich of the indentations to use.
+    ;; determine which of the indentations to use.
     (while (and (< (point) indent-point)
                 (condition-case nil
                     (progn (forward-sexp 1)
diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index 6235aff7dba..72cc48bbb5a 100644
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -356,7 +356,7 @@ in the current news group."
   (setq nntp-server-process nil))
 
 (defun nnspool-find-article-by-message-id (id)
-  "Return full pathname of an artilce identified by message-ID."
+  "Return full pathname of an article identified by message-ID."
   (save-excursion
     (let ((buffer (get-file-buffer nnspool-history-file)))
       (if buffer
@@ -396,7 +396,7 @@ in the current news group."
   (let ((string (substring string 0))   ;Copy string.
         (len (length string))
         (idx 0))
-    ;; Replace all occurence of FROM with TO.
+    ;; Replace all occurrences of FROM with TO.
     (while (< idx len)
       (if (= (aref string idx) from)
           (aset string idx to))
diff --git a/lisp/nntp.el b/lisp/nntp.el
index d14a91a64b7..c745c24f8c7 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -608,7 +608,7 @@ in the current news group."
   "Send list of STRINGS to news server as command and its arguments."
   (let ((cmd (car strings))
         (strings (cdr strings)))
-    ;; Command and each argument must be separeted by one or more spaces.
+    ;; Command and each argument must be separated by one or more spaces.
     (while strings
       (setq cmd (concat cmd " " (car strings)))
       (setq strings (cdr strings)))
diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index 2034b7d7972..ba6600cc581 100644
--- a/lisp/play/blackbox.el
+++ b/lisp/play/blackbox.el
@@ -84,7 +84,7 @@
   (define-key blackbox-mode-map "\C-m" 'bb-done)
   (define-key blackbox-mode-map [kp-enter] 'bb-done)
 
-  ;; This is a kluge.  What we really want is a general
+  ;; This is a kludge.  What we really want is a general
   ;; feature for reminding terminal keys to the functions
   ;; corresponding to them in local maps.
   (mapcar (function
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index ebf6b637a8d..494d83b3b58 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; The single entry point, `dissociatesd-press', applies a travesty
+;; The single entry point, `dissociated-press', applies a travesty
 ;; generator to the current buffer.  The results can be quite amusing.
 
 ;;; Code:
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 702f053b25e..4bb60d51e76 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -349,7 +349,7 @@ reads the sentence before point, and prints the Doctor's answer."
   (setq deathlst
         '((this is not a healthy way of thinking \.)
           (($ bother) you\, too\, may die someday \?)
-          (i am worried by your obssession with this topic!)
+          (i am worried by your obsession with this topic!)
           (did you watch a lot of crime and violence on television as a child \?))
         )
   (make-local-variable 'sexlst)
@@ -797,7 +797,7 @@ reads the sentence before point, and prints the Doctor's answer."
 (doctor-put-meaning elisa 'eliza)
 (doctor-put-meaning weizenbaum 'eliza)
 (doctor-put-meaning doktor 'eliza)
-(doctor-put-meaning atheletics 'sports)
+(doctor-put-meaning athletics 'sports)
 (doctor-put-meaning baseball 'sports)
 (doctor-put-meaning basketball 'sports)
 (doctor-put-meaning football 'sports)
@@ -951,7 +951,7 @@ Otherwise call the Doctor to parse preceding sentence."
                              sent))))
 
 (defun doctor-shorten (sent)
-  "Make a sentence managably short using a few hacks."
+  "Make a sentence manageably short using a few hacks."
   (let (foo
         retval
         (temp '(because but however besides anyway until
@@ -1062,7 +1062,7 @@ the subject noun, and return the portion of the sentence following it."
                 applied applies apply are associate
                 associated ate
                 be became become becomes becoming
-                been being believe belived believes
+                been being believe believed believes
                 bit bite bites bore bored bores boring bought buy buys buying
                 call called calling calls came can caught catch come
                 contract contracted contracts control controlled controls
@@ -1072,7 +1072,7 @@ the subject noun, and return the portion of the sentence following it."
                 dislikes do does drank drink drinks drinking
                 drive drives driving drove dying
                 eat eating eats expand expanded expands
-                expect expected expects expel expels expeled expelled
+                expect expected expects expel expels expelled
                 explain explained explains
                 fart farts feel feels felt fight fights find finds finding
                 forget forgets forgot fought found fuck fucked
@@ -1111,7 +1111,7 @@ the subject noun, and return the portion of the sentence following it."
                 take takes taking talk talked talking talks tell tells telling
                 think thinks
                 thought told took tooled touch touched touches touching
-                transfer transfered transfers transmit transmits transmitted
+                transfer transferred transfers transmit transmits transmitted
                 type types types typing
                 walk walked walking walks want wanted wants was watch
                 watched watching went were will wish would work worked works
@@ -1196,7 +1196,7 @@ the subject noun, and return the portion of the sentence following it."
                 hundred thousand million billion
                 half quarter
                 first second third fourth fifth
-                sixth seventh eighth nineth tenth)))
+                sixth seventh eighth ninth tenth)))
                  
 (defun doctor-colorp (x)
   (memq x '(beige black blue brown crimson
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 99e2acdd92a..3ec67092901 100644
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -76,7 +76,7 @@
           ;; If we have NRINGS rings, we label them with the numbers 0
           ;; through NRINGS-1.  The width of ring i is 2i+3; it pokes
           ;; out i spaces on either side of the pole.  Rather than
-          ;; checking if the window is wide enough to accomodate this,
+          ;; checking if the window is wide enough to accommodate this,
           ;; we make sure pole-spacing is large enough, since that
           ;; works even when we have decremented pole-spacing to make
           ;; it even.
diff --git a/lisp/play/life.el b/lisp/play/life.el
index 84dca781fa0..50e76e69cac 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -25,7 +25,7 @@
 
 ;; A demonstrator for John Horton Conway's "Life" cellular automaton
 ;; in Emacs Lisp.  Picks a random one of a set of interesting Life
-;; patterns and avolves it according to the familiar rules.
+;; patterns and evolves it according to the familiar rules.
 
 ;;; Code:
 
@@ -75,7 +75,7 @@
 (defmacro life-not-void-regexp () (concat "[^" (life-void-string) "\n]"))
 
 ;; try to optimize the (goto-char (point-min)) & (goto-char (point-max))
-;; idioms.  This depends on goto-char's not griping if we underrshoot
+;; idioms.  This depends on goto-char's not griping if we undershoot
 ;; or overshoot beginning or end of buffer.
 (defmacro goto-beginning-of-buffer () '(goto-char 1))
 (defmacro maxint () (lsh (lsh (lognot 0) 1) -1))
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index a3962c696ef..2738a7c7665 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -149,7 +149,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
       (aset mpuz-letter-to-digit elem index))))
 
 
-;; A puzzle also uses a board displaying a mulplication.
+;; A puzzle also uses a board displaying a multiplication.
 ;; Every digit appears in the board, crypted or not.
 ;;------------------------------------------------------
 (defvar mpuz-board (make-vector 10 nil)
@@ -310,7 +310,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
 ;; Game control
 ;;-------------
 (defun mpuz-abort-game ()
-  "Abort any puzzle in progess."
+  "Abort any puzzle in progress."
   (message "Mult Puzzle aborted.")
   (setq mpuz-in-progress nil
         mpuz-nb-errors 0)
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index f056ec5c6bf..fd90d3677f1 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; Important pinheaddery for GNU Emacs.
+;; Important pinheadery for GNU Emacs.
 ;;
 ;; See cookie1.el for implementation.  Note --- the `n' argument of yow
 ;; from the 18.xx implementation is no longer; we only support *random*
diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el
index ec4b2c646ab..8c32229a299 100644
--- a/lisp/progmodes/c-mode.el
+++ b/lisp/progmodes/c-mode.el
@@ -880,7 +880,7 @@ Otherwise return nil and don't move point."
 (defun c-beginning-of-statement (count)
   "Go to the beginning of the innermost C statement.
 With prefix arg, go back N - 1 statements.  If already at the beginning of a
-statement then go to the beginning of the preceeding one.
+statement then go to the beginning of the preceding one.
 If within a string or comment, or next to a comment (only whitespace between),
 move by sentences instead of statements."
   (interactive "p")
diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el
index 5689183a56a..8548c3826e5 100644
--- a/lisp/progmodes/cplus-md.el
+++ b/lisp/progmodes/cplus-md.el
@@ -785,7 +785,7 @@ The fill lines remain a comment."
 ;; (defconst c++-defun-header-strong
 ;;   (let*
 ;;       (; valid identifiers
-;;        ;; There's a real wierdness here -- if I switch the below
+;;        ;; There's a real weirdness here -- if I switch the below
 ;;        (id "\\(\\w\\|_\\)+")
 ;;        ;; to be
 ;;        ;; (id "\\(_\\|\\w\\)+")
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 9b9b6bf2755..70dcd9a557d 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -141,7 +141,7 @@ One argument, the tag info returned by `snarf-tag-function'.")
 (defvar tags-included-tables-function nil
   "Function to do the work of `tags-included-tables' (which see).")
 (defvar verify-tags-table-function nil
-  "Function to return t iff the current buffer vontains a valid
+  "Function to return t iff the current buffer contains a valid
 \(already initialized\) tags file.")
 
 ;; Initialize the tags table in the current buffer.
@@ -636,7 +636,7 @@ See documentation of variable `tags-file-name'."
                 ;; Move to the saved location.
                 (set-buffer (marker-buffer marker))
               (goto-char (marker-position marker))
-              ;; Kill that marker so it doesn't slow down editting.
+              ;; Kill that marker so it doesn't slow down editing.
               (set-marker marker nil nil)
               ;; Run the user's hook.  Do we really want to do this for pop?
               (run-hooks 'local-find-tag-hook))))
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 10e8c3f405c..2f90cea6e34 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -27,7 +27,7 @@
 
 ;; Fortran mode has been upgraded and is now maintained by Stephen A. Wood
 ;; (saw@cebaf.gov).  It now will use either fixed format continuation line
-;; markers (character in 6th column), or tab format coninuation line style
+;; markers (character in 6th column), or tab format continuation line style
 ;; (digit after a TAB character.)  A auto-fill mode has been added to
 ;; automatically wrap fortran lines that get too long.
 
@@ -37,7 +37,7 @@
 ;; Gary Sabot and Richard Stallman.
 
 ;;; This file may be used with GNU Emacs version 18.xx if the following
-;;; variable and function substutions are made.
+;;; variable and function substitutions are made.
 ;;;  Replace:
 ;;;   frame-width                           with screen-width
 ;;;   auto-fill-function                    with auto-fill-hook
@@ -159,7 +159,7 @@ This variable used in TAB-format mode.")
  style.")
 
 (defvar fortran-break-before-delimiters t
-  "*Non-nil causes `fortran-do-auto-fill' to break lines before delimeters.")
+  "*Non-nil causes `fortran-do-auto-fill' to break lines before delimiters.")
 
 (if fortran-mode-syntax-table
     ()
@@ -336,7 +336,7 @@ Variables controlling indentation style and extra features:
     Non-nil causes line number digits to be moved to the correct column 
     as typed.  (default t)
  fortran-break-before-delimiters
-    Non-nil causes `fortran-do-auto-fill' breaks lines before delimeters.
+    Non-nil causes `fortran-do-auto-fill' breaks lines before delimiters.
     (default t)
  fortran-startup-message
     Set to nil to inhibit message first time Fortran mode is used.
@@ -1117,7 +1117,7 @@ automatically breaks the line at a previous space."
          ;; decide where to split the line. If a position for a quoted
          ;; string was found above then use that, else break the line
          ;; before the last delimiter.
-         ;; Delimeters are whitespace, commas, and operators.
+         ;; Delimiters are whitespace, commas, and operators.
          ;; Will break before a pair of *'s.
          ;;
          (fill-point
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index b408431e45f..6394de36f71 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -568,7 +568,7 @@ NOT including one on this line."
         ((hif-looking-at-endif)
          'done)
         (t
-         (error "Missmatched #ifdef #endif pair"))))
+         (error "Mismatched #ifdef #endif pair"))))
 
 
 (defun hif-endif-to-ifdef ()
@@ -577,7 +577,7 @@ NOT including one on this line."
   (let ((start (point)))
     (hif-find-previous-relevant)
     (if (= start (point))
-        (error "Missmatched #ifdef #endif pair")))
+        (error "Mismatched #ifdef #endif pair")))
   (cond ((hif-looking-at-endif)
          (hif-endif-to-ifdef) ; find beginning of nested if
          (hif-endif-to-ifdef)) ; find beginning of outer if or else
@@ -938,7 +938,7 @@ Turn off hiding by calling `show-ifdef'."
 
 
 (defun hif-find-ifdef-block ()
-  "Utilitiy for hide and show `ifdef-block'.
+  "Utility for hide and show `ifdef-block'.
 Set top and bottom of ifdef block."
   (let (max-bottom)
   (save-excursion
@@ -997,7 +997,7 @@ Set top and bottom of ifdef block."
     (if old-read-only (toggle-read-only))))
 
 
-;;;  defininition alist support
+;;;  definition alist support
 
 (defvar hide-ifdef-define-alist nil
   "A global assoc list of pre-defined symbol lists")
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index b5f44647979..3404d15295f 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -650,7 +650,7 @@ one process, this will do the right thing. If you run multiple
 processes, you can change inferior-lisp-buffer to another process
 buffer with \\[set-variable].
 
-More sophisticated approaches are, of course, possible. If you find youself
+More sophisticated approaches are, of course, possible. If you find yourself
 needing to switch back and forth between multiple processes frequently,
 you may wish to consider ilisp.el, a larger, more sophisticated package
 for running inferior Lisp processes. The approach taken here is for a
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index d01ee7c0b61..52b08f2c99f 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -18,7 +18,7 @@
 
 ;; So, for the meantime, this is not the default mode for makefiles.
 
-;; $Id: makefile.el,v 1.7 1993/04/21 03:47:05 eric Exp rms $
+;; $Id: makefile.el,v 1.8 1993/05/06 01:30:26 rms Exp jimb $
 
 ;; This file is part of GNU Emacs.
 
@@ -71,7 +71,7 @@
 (provide 'makefile)
 
 ;;; ------------------------------------------------------------
-;;; Configureable stuff
+;;; Configurable stuff
 ;;; ------------------------------------------------------------
 
 (defconst makefile-mode-name "makefile"
@@ -97,7 +97,7 @@ might prefer to use \" += \" or \" := \" .")
   "Controls the style of generated macro references.
 Set this variable to a non-nil value if you prefer curly braces
 in macro-references, so it looks like ${this}.  A value of nil
-will cause makefile-mode to use parantheses, making macro references
+will cause makefile-mode to use parentheses, making macro references
 look like $(this) .")
 
 (defvar makefile-tab-after-target-colon t
@@ -175,7 +175,7 @@ not be enclosed in { } or ( ).")
 ;;; ------------------------------------------------------------
 ;;; The following configurable variables are used in the
 ;;; up-to-date overview .
-;;; The standard configuration assumes that your `make' programm
+;;; The standard configuration assumes that your `make' program
 ;;; can be run in question/query mode using the `-q' option, this
 ;;; means that the command
 ;;;
@@ -188,7 +188,7 @@ not be enclosed in { } or ( ).")
 ;;; Dennis Vadura's DMake have no problems.
 ;;; Set the variable `makefile-brave-make' to the name of the
 ;;; make utility that does this on your system.
-;;; To understand what this is all about see the function defintion
+;;; To understand what this is all about see the function definition
 ;;; of `makefile-query-by-make-minus-q' .
 ;;; ------------------------------------------------------------
 
@@ -936,7 +936,7 @@ it will prompt you for all required parameters.
 This function \'knows\' about the required parameters of every
 GNU make function and will use meaningfull prompts for the
 various args, making it much easier to take advantage of this
-powerfull GNU make feature."
+powerful GNU make feature."
   (interactive)
   (let* ((gm-function-name (completing-read
                              "Function: "
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 5afd03adc74..9380f98e926 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -64,7 +64,7 @@
 ;; Known problems (these are all caused by limitations in the Emacs Lisp
 ;; parsing routine (parse-partial-sexp), which was not designed for such
 ;; a rich language; writing a more suitable parser would be a big job):
-;; 1)  Regular expression delimitors do not act as quotes, so special
+;; 1)  Regular expression delimiters do not act as quotes, so special
 ;;       characters such as `'"#:;[](){} may need to be backslashed
 ;;       in regular expressions and in both parts of s/// and tr///.
 ;; 2)  The globbing syntax <pattern> is not recognized, so special
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 76190c948b4..a4baa3056f3 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -268,7 +268,7 @@ of the start of the containing expression."
       (if first-sexp-list-p
           (setq desired-indent (current-column)))
       ;; Point is at the point to indent under unless we are inside a string.
-      ;; Call indentation hook except when overriden by scheme-indent-offset
+      ;; Call indentation hook except when overridden by scheme-indent-offset
       ;; or if the desired indentation has already been computed.
       (cond ((car (nthcdr 3 state))
              ;; Inside a string, don't change indentation.
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 6c3a41735a8..3a45f4b5348 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -59,13 +59,13 @@ the previous line of the statement.")
 
 (defconst simula-if-indent '(0 . 0)
   "*Extra indentation of THEN and ELSE with respect to the starting IF.
-Value is a cons cell, the car is extra THEN indention and the cdr
-extra ELSE indention. IF after ELSE is indented as the starting IF.")
+Value is a cons cell, the car is extra THEN indentation and the cdr
+extra ELSE indentation. IF after ELSE is indented as the starting IF.")
 
 (defconst simula-inspect-indent '(0 . 0)
   "*Extra indentation of WHEN and OTHERWISE with respect to the
 corresponding INSPECT. Value is a cons cell, the car is
-extra WHEN indention and the cdr extra OTHERWISE indention.")
+extra WHEN indentation and the cdr extra OTHERWISE indentation.")
 
 (defconst simula-electric-indent nil
   "*If this variable is non-nil, the simula-indent-line function
@@ -147,12 +147,12 @@ Variables controlling indentation style:
     Offset of SIMULA label lines relative to usual indentation
  simula-if-indent '(0 . 0)
     Extra indentation of THEN and ELSE with respect to the starting IF.
-    Value is a cons cell, the car is extra THEN indention and the cdr
-    extra ELSE indention. IF after ELSE is indented as the starting IF.
+    Value is a cons cell, the car is extra THEN indentation and the cdr
+    extra ELSE indentation. IF after ELSE is indented as the starting IF.
  simula-inspect-indent '(0 . 0)
     Extra indentation of WHEN and OTHERWISE with respect to the
     corresponding INSPECT. Value is a cons cell, the car is
-    extra WHEN indention and the cdr extra OTHERWISE indention.
+    extra WHEN indentation and the cdr extra OTHERWISE indentation.
  simula-electric-indent nil
     If this variable  non-nil value, simula-indent-line
     will check the previous line to see if it has to be reindented.
@@ -169,7 +169,7 @@ Turning on SIMULA mode calls the value of the variable simula-mode-hook
 with no arguments, if that value is non-nil
 
 Warning: simula-mode-hook should not read in an abbrev file without calling
-the function simula-install-standard-abbrevs afterwards, preferrably not
+the function simula-install-standard-abbrevs afterwards, preferably not
 at all."
   (interactive)
   (kill-all-local-variables)
@@ -680,7 +680,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
        ;; Calculate non-comment indentation
        (t
         ;; first, find out if this line starts with something that needs
-        ;; special indention (END/IF/THEN/ELSE/WHEN/OTHERWISE or label)
+        ;; special indentation (END/IF/THEN/ELSE/WHEN/OTHERWISE or label)
         ;;
         (skip-chars-forward " \t\f")
         (cond
@@ -783,7 +783,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
                                     (cdr simula-if-indent))))
                   (simula-find-inspect)))
                 ;; found the start of a [sub]statement
-                ;; add indention for continued statement
+                ;; add indentation for continued statement
                 (if continued
                     (setq indent
                           (+ indent
@@ -821,7 +821,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
                                    "begin\\|then\\|else\\|when\\|otherwise\\|do")))
                          (not (memq (preceding-char) '(?: ?\;))))))
             ;; if we the state of the continued-variable
-            ;; changed, add indention for continued statement
+            ;; changed, add indentation for continued statement
             (if (or (and prev-cont (not continued))
                     (and continued
                          (listp simula-continued-statement-offset)))
@@ -835,7 +835,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
                 (setq start-line (save-excursion (beginning-of-line) (point)))
               (beginning-of-line))))
         ;;
-        ;; return indention
+        ;; return indentation
         ;;
         indent)))))
 
@@ -909,7 +909,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
                    ((eq (following-char) ?\;)
                     (if (zerop parlevel)
                         (throw 'simula-out nil)
-                      (error "Parethesis mismatch or misplaced ';'")))
+                      (error "Parenthesis mismatch or misplaced ';'")))
                    ((eq (following-char) ?\()
                     (if (zerop parlevel)
                         (throw 'simula-out (1+ (current-column)))
@@ -947,7 +947,7 @@ If COUNT is negative, move forward instead (simula-next-statement)"
   "Expand SIMULA keyword. If it starts the line, reindent."
   ;; redisplay
   (let ((show-char (eq this-command 'self-insert-command)))
-    ;; If the abbrev expansion results in reindention, the user may have
+    ;; If the abbrev expansion results in reindentation, the user may have
     ;; to wait some time before the character he typed is displayed
     ;; (the char causing the expansion is inserted AFTER the hook function
     ;; is called). This is annoying in case of normal characters.
diff --git a/lisp/sc.el b/lisp/sc.el
index 313cbe2449d..172c3c425b3 100644
--- a/lisp/sc.el
+++ b/lisp/sc.el
@@ -15,7 +15,7 @@
 ;; massages raw reply buffers set up by the reply/forward functions in
 ;; the news/mail subsystems. Therefore, such useful operations as
 ;; yanking and citing portions of the original article (instead of the
-;; whole article) are not within the ability or responsiblity of
+;; whole article) are not within the ability or responsibility of
 ;; supercite.
 
 ;; ========== Disclaimer ==========
@@ -389,7 +389,7 @@ Runs after sc-cite-original executes.")
 
 
 ;; ======================================================================
-;; global variables, not user accessable
+;; global variables, not user accessible
 
 (defconst sc-version-number "2.3"
   "Supercite's version number.")
@@ -574,7 +574,7 @@ If FIELD is not a valid key, return sc-mumble-string."
   ())
 
 (defun sc-no-blank-line-or-header()
-  "Similar to sc-no-header except it removes the preceeding blank line."
+  "Similar to sc-no-header except it removes the preceding blank line."
   (if (not (bobp))
       (if (and (eolp)
                (progn (forward-line -1)
@@ -1000,7 +1000,7 @@ Return the list of name symbols."
                                    (run-hooks 'sc-fill-paragraph-hook)))
                (setq fstart (point)
                      fend (point)))
-              ;; not end of line so perhap cite it
+              ;; not end of line so perhaps cite it
               ((not (looking-at sc-cite-regexp))
                (insert (aget sc-gal-information "sc-citation")))
               (sc-nested-citation-p
@@ -1551,7 +1551,7 @@ original message but it does require a few things:
 ;;
 (defun sc-describe ()
   "Supercite version 2.3 is now described in a texinfo manual which
-makes the documenation available both for online perusal via emacs'
+makes the documentation available both for online perusal via emacs'
 info system, or for hard-copy printing using the TeX facility.
 
 To view the online document hit \\[info], then \"mSupercite <RET>\"."
diff --git a/lisp/simple.el b/lisp/simple.el
index fac25878b38..339afef7104 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -301,7 +301,7 @@ that uses or sets the mark."
   (goto-char (point-min)))
 
 (defun count-lines-region (start end)
-  "Print number of lines and charcters in the region."
+  "Print number of lines and characters in the region."
   (interactive "r")
   (message "Region has %d lines, %d characters"
            (count-lines start end) (- end start)))
diff --git a/lisp/sort.el b/lisp/sort.el
index 93c8f2171be..c0135917687 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -331,7 +331,7 @@ FIELD, BEG and END.  BEG and END specify region to sort."
 
 ;;;###autoload
 (defun sort-regexp-fields (reverse record-regexp key-regexp beg end)
-  "Sort the region lexicographically as specifed by RECORD-REGEXP and KEY.
+  "Sort the region lexicographically as specified by RECORD-REGEXP and KEY.
 RECORD-REGEXP specifies the textual units which should be sorted.
   For example, to sort lines RECORD-REGEXP would be \"^.*$\"
 KEY specifies the part of each record (ie each match for RECORD-REGEXP)
diff --git a/lisp/subr.el b/lisp/subr.el
index c652c8893bc..22662dd0687 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -382,7 +382,7 @@ Please convert your programs to use the variable `baud-rate' directly."
 (defalias 'not 'null)
 (defalias 'rplaca 'setcar)
 (defalias 'rplacd 'setcdr)
-(defalias 'beep 'ding) ;preserve lingual purtity
+(defalias 'beep 'ding) ;preserve lingual purity
 (defalias 'indent-to-column 'indent-to)
 (defalias 'backward-delete-char 'delete-backward-char)
 (defalias 'search-forward-regexp (symbol-function 're-search-forward))
diff --git a/lisp/sun-fns.el b/lisp/sun-fns.el
index 340009580f3..dd4371cd6ec 100644
--- a/lisp/sun-fns.el
+++ b/lisp/sun-fns.el
@@ -32,7 +32,7 @@
 ;;;
 ;;;
 ;;; Functions for manipulating via the mouse and mouse-map definitions
-;;; for accessing them.  Also definitons of mouse menus.
+;;; for accessing them.  Also definitions of mouse menus.
 ;;; This file you should freely modify to reflect you personal tastes.
 ;;;
 ;;; First half of file defines functions to implement mouse commands,
@@ -43,7 +43,7 @@
 ;;;         Mouse Functions.
 ;;;
 ;;; These functions follow the sun-mouse-handler convention of being called
-;;; with three arguements: (window x-pos y-pos)
+;;; with three arguments: (window x-pos y-pos)
 ;;; This makes it easy for a mouse executed command to know where the mouse is.
 ;;; Use the macro "eval-in-window" to execute a function 
 ;;; in a temporarily selected window.
@@ -138,7 +138,7 @@ and put the region in the stuff buffer."
     (mouse-select-window window x y)))
 
 ;;;
-;;; esoteria:
+;;; esoterica:
 ;;;
 (defun mouse-exch-pt-and-mark (window x y)
   "Exchange point and mark."
@@ -321,7 +321,7 @@ relative X divided by window width."
     (if (>= x (1- (window-width)))
         ;; When x is maximun (equal to or 1 less than window width),
         ;; goto end of buffer.  We check for this special case
-        ;; becuase the calculated goto-char often goes short of the
+        ;; because the calculated goto-char often goes short of the
         ;; end due to roundoff error, and we often really want to go
         ;; to the end.
         (goto-char (point-max))
@@ -418,7 +418,7 @@ relative X divided by window width."
 ;;; minibuffer menu
 ;;;
 (defmenu minibuffer-menu 
-  ("Minibuffer" message "Just some miscellanous minibuffer commands")
+  ("Minibuffer" message "Just some miscellaneous minibuffer commands")
   ("Stuff" sun-yank-selection)
   ("Do-It" exit-minibuffer)
   ("Abort" abort-recursive-edit)
diff --git a/lisp/term/README b/lisp/term/README
index 7307634c75c..e672b15dcf7 100644
--- a/lisp/term/README
+++ b/lisp/term/README
@@ -162,7 +162,7 @@ key_f64		k1			function key 64
 
 (4) The uses of the "k0" capability are inconsistent; sometimes it
     describes F10, whereas othertimes it describes F0 and "k;" describes F10.
-    Emacs attempts to politely accomodate both systems by testing for
+    Emacs attempts to politely accommodate both systems by testing for
     "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
 -----------------------------------------------------------------------------
 
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 2356c65917a..b34c3833dd5 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -65,7 +65,7 @@ Setting to nil limits the scrollbar to the edge or vertical dividing bar.")
 
 (defun define-mouse (mousemap mouse-list def)
   "Args MOUSEMAP, MOUSE-LIST, DEF.  Define MOUSE-LIST in MOUSEMAP as DEF.
-MOUSE-LIST is a list of atoms specifing a mouse hit according to these rules:
+MOUSE-LIST is a list of atoms specifying a mouse hit according to these rules:
   * One of these atoms specifies the active region of the definition.
         text, scrollbar, modeline, minibuffer
   * One or two or these atoms specify the button or button combination.
@@ -151,7 +151,7 @@ Just like the Common Lisp function of the same name."
 (defmacro sm::hit-x (hit) (list 'nth 1 hit))
 ;;; Screen y position.
 (defmacro sm::hit-y (hit) (list 'nth 2 hit))
-;;; Millisconds since last hit.
+;;; Milliseconds since last hit.
 (defmacro sm::hit-delta (hit) (list 'nth 3 hit))
 
 (defmacro sm::hit-up-p (hit)            ; A predicate.
@@ -374,7 +374,7 @@ Returns one of (text scrollbar modeline minibuffer)"
       (cond ((minibuffer-window-p w) 'minibuffer)
             ((>= y bottom) 'modeline)
             ((>= x right) 'scrollbar)
-            ;; far right column (window seperator) is always a scrollbar
+            ;; far right column (window separator) is always a scrollbar
             ((and scrollbar-width
                   ;; mouse within scrollbar-width of edge.
                   (>= x (- right scrollbar-width))
@@ -596,7 +596,7 @@ evaluated for their side-effects rather than their values.
   If the selected form is a menu or a symbol whose value is a menu, 
 then it is displayed and evaluated as a pullright menu item.
   If the the FORM of the first ITEM is nil, the STRING of the item
-is used as a label for the menu, i.e. it's inverted and not selectible."
+is used as a label for the menu, i.e. it's inverted and not selectable."
 
   (if (symbolp menu) (setq menu (symbol-value menu)))
   (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu)))
@@ -641,7 +641,7 @@ CODE values: 13 = Tool-Position, 14 = Size-in-Pixels, 18 = Size-in-Chars."
 
 ;;;
 ;;;  Function interface to selection/region
-;;;  primative functions are defined in sunfns.c
+;;;  primitive functions are defined in sunfns.c
 ;;;
 (defun sun-yank-selection ()
   "Set mark and yank the contents of the current sunwindows selection.
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el
index 9cc7ff991c6..64bd9532de4 100644
--- a/lisp/term/wyse50.el
+++ b/lisp/term/wyse50.el
@@ -26,7 +26,7 @@
 
 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
 ;; Rewritten for Emacs 19 by jimb,  January 1992
-;; Cleaned up for new terminal package cinventions by esr, March 1993
+;; Cleaned up for new terminal package conventions by esr, March 1993
 ;; Should work well for Televideo TVI 925 although it's overkill.
 ;;
 ;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks
diff --git a/lisp/terminal.el b/lisp/terminal.el
index 31e22f4d10d..195fc6321c1 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -394,7 +394,7 @@ all pending output has been dealt with.")
 
 (defun te-more-break-flush-pending-output ()
   "Discard any output which has been received by the terminal emulator but
-not yet proceesed and then proceed from the more break."
+not yet processed and then proceed from the more break."
   (interactive)
   (te-more-break-unwind)
   (te-flush-pending-output))
@@ -1167,9 +1167,9 @@ work with `terminfo' we will try to use it."
 
 (put 'terminal-mode 'mode-class 'special)
 ;; This is only separated out from function terminal-emulator
-;; to keep the latter a little more managable.
+;; to keep the latter a little more manageable.
 (defun terminal-mode ()
-  "Set up variables for use f the terminal-emualtor.
+  "Set up variables for use with the terminal-emulator.
 One should not call this -- it is an internal function
 of the terminal-emulator"
   (kill-all-local-variables)
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 8e8e85590c7..b6c13fb8605 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -144,11 +144,11 @@
 ;;;     M-C-e  end-of-bibtex-entry
 ;;; Mike Newton (newton@gumby.cs.caltech.edu) 90.11.17
 ;;;  * Handle items like
-;;;          title = poft # "Fifth Tri-quaterly" # random-conf,
+;;;          title = poft # "Fifth Tri-quarterly" # random-conf,
 ;;;    and   title = {This title is inside curlies}
 ;;;  * added user settable, always present, optional fields
 ;;;  * fixed 'bibtex-find-it's doc string's location
-;;;  * bibtex-field-text made more general (it wouldnt handle the # construct)
+;;;  * bibtex-field-text made more general (it wouldn't handle the # construct)
 ;;;             and it now handles a small subset of the {} cases
 
 ;;; Bengt Martensson, March 6
@@ -553,7 +553,7 @@ Chosen on aesthetic grounds only.")
 Equal to the space needed for the longest name part.")
 
 (defun bibtex-current-entry-label (&optional include-cite kill)
-  "Return the label of the bibtex entry containing, or preceeding point.
+  "Return the label of the bibtex entry containing, or preceding point.
 Optional argument INCLUDE-CITE, if true means put a '\\cite{}' around the
 returned value.  Second optional argument KILL, if true, means place the
 returned value in the kill buffer.  Interactively; providing prefix
@@ -563,7 +563,7 @@ Rationale:
 The intention is that someone will write a function that can be bound to
 a mouse key so that people entering TeX can just mouse on the bibtex entry
 and have the citation key inserted at the current point (which will almost
-certainly be in some other bufer).  In the interim this function is 
+certainly be in some other buffer).  In the interim this function is 
 marginally useful for keyboard binding and is not bound by default.  
 Suggested binding is ^C-k."
   (interactive (list current-prefix-arg t))
@@ -689,7 +689,7 @@ non-nil."
   (setq local-abbrev-table bibtex-mode-abbrev-table)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start "^[ \f\n\t]*$")
-  (auto-fill-mode 1)                    ; nice alignements
+  (auto-fill-mode 1)                    ; nice alignments
   (setq left-margin (+ bibtex-text-alignment 1))
 
   (run-hooks 'bibtex-mode-hook))
@@ -813,7 +813,7 @@ If bibtex-sort-ignore-string-entries is true, @string entries will be ignored.
 
 Bugs:
   1. Text between the closing brace ending one bibtex entry, and the @ starting 
-     the next, is considered part of the PRECEEDING entry.  Perhaps it should be
+     the next, is considered part of the PRECEDING entry.  Perhaps it should be
      part of the following entry."
   (interactive)
   (save-restriction
@@ -825,7 +825,7 @@ Bugs:
                         (end-of-bibtex-entry)
                         (point)))
     (sort-subr nil                      ; reversep
-               ;; begining of record function
+               ;; beginning of record function
                'forward-line
                ;; end of record function
                (function (lambda () (and (re-search-forward "}\\s-*\n[\n \t]*@" nil 'move)
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index 08aed07b4e3..ff37d27ce4d 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -69,7 +69,7 @@ to look for the next message from the ISPELL program.")
 
 (defun kill-ispell ()
   "Kill the ispell process.
-Any changes the your private dictionay
+Any changes in your private dictionary
 that have not already been dumped will be lost."
   (interactive)
   (if ispell-process
@@ -141,7 +141,7 @@ WORD		Check spelling of WORD.  Result is
 :file FILENAME  scan the named file, and print the file offsets of
                 any misspelled words
 
-:insert WORD    put word in private dictonary
+:insert WORD    put word in private dictionary
 
 :accept WORD    don't complain about word any more this session
 
@@ -209,10 +209,10 @@ DIGIT	Near miss selector.  If the misspelled word is close to
         some words in the dictionary, they are offered as near misses.
 r       Replace.  Replace the word with a string you type.  Each word
         of your new string is also checked.
-i       Insert.  Insert this word in your private dictonary (kept in
+i       Insert.  Insert this word in your private dictionary (kept in
         `$HOME/ispell.words').
 a       Accept.  Accept this word for the rest of this editing session,
-        but don't put it in your private dictonary.
+        but don't put it in your private dictionary.
 l       Lookup.  Look for a word in the dictionary by fast binary
         search, or search for a regular expression in the dictionary
         using grep.
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el
index 847d0b674e2..8537e59450b 100644
--- a/lisp/textmodes/page-ext.el
+++ b/lisp/textmodes/page-ext.el
@@ -77,7 +77,7 @@
 ;;; `pages-directory-address-mode' now sets local variables and enables
 ;;; `describe-mode' to describe Addresses Directory mode.
 ;;;
-;;; `pages-directory-for-addresses' now sets the buffer-modifed flag
+;;; `pages-directory-for-addresses' now sets the buffer-modified flag
 ;;; for the Addresses Directory to nil.
 ;;;
 ;;; The documentation string for both `pages-directory-mode' and
@@ -223,7 +223,7 @@
 ;     Washington, DC  20515
 ;     
 ;     Congressional committee concerned with permitting or preventing
-;     monopolistic restictions on the use of software technology
+;     monopolistic restrictions on the use of software technology
 ; 
 ;     
 ;     George Lakoff
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 8435376a8b7..7c0490b6d2e 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -44,7 +44,7 @@ if necessary to attain exactly the specified column."
             (delete-char -1)
             (indent-to col)
             (move-to-column column))))
-    ;; This call will go away when Emacs gets real horizonal autoscrolling
+    ;; This call will go away when Emacs gets real horizontal autoscrolling
     (hscroll-point-visible)))
 
 
@@ -57,7 +57,7 @@ If scan reaches end of buffer, stop there without error."
   (interactive "P")
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-end-of-line (&optional arg)
@@ -68,7 +68,7 @@ If scan reaches end of buffer, stop there without error."
   (if arg (forward-line (1- (prefix-numeric-value arg))))
   (beginning-of-line)
   (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-forward-column (arg)
@@ -238,7 +238,7 @@ always moves to the beginning of a line."
       (end-of-line)
       (if (eobp) (newline) (forward-char 1))
       (setq arg (1- arg))))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-open-line (arg)
@@ -248,7 +248,7 @@ With positive argument insert that many lines."
   (save-excursion
    (end-of-line)
    (open-line arg))
-  ;; This call will go away when Emacs gets real horizonal autoscrolling
+  ;; This call will go away when Emacs gets real horizontal autoscrolling
   (hscroll-point-visible))
 
 (defun picture-duplicate-line ()
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el
index e1ed847ca79..6ebbe35654b 100644
--- a/lisp/textmodes/spell.el
+++ b/lisp/textmodes/spell.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; This mode orovides an Emacs interface to the UNIX spell(1) program.
+;; This mode provides an Emacs interface to the UNIX spell(1) program.
 ;; Entry points are `spell-buffer', `spell-word', `spell-region' and
 ;; `spell-string'.  These facilities are documented in the Emacs user's
 ;; manual.
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 199fc58bea9..e6db1dafcdf 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -520,7 +520,7 @@ and the location is displayed for a few seconds."
             (or (tex-validate-region (point) end)
                 (progn
                   (push-mark (point))
-                  (message "Mismatch found in pararaph starting here")
+                  (message "Mismatch found in paragraph starting here")
                   (sit-for 4)))))
       (goto-char opoint))))
 
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 20bbefcdb60..c45662132f2 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -431,7 +431,7 @@ converted to Info is stored in a temporary buffer."
 
 
 ; 19 October 1990
-; @setfilename modifed to work with include files; see @include
+; @setfilename modified to work with include files; see @include
 ; (defun texinfo-format-setfilename ()
 ;   (let ((arg (texinfo-parse-arg-discard)))
 ;     (setq texinfo-format-filename
@@ -1653,7 +1653,7 @@ If used within a line, follow `@minus' with braces."
 ;; In the original version, include files were ignored by Info but
 ;; incorporated in to the printed manual.  To make references to the
 ;; included file, the Texinfo source file has to refer to the included
-;; files using the `(filename)nodename' format for refering to other
+;; files using the `(filename)nodename' format for referring to other
 ;; Info files.  Also, the included files had to be formatted on their
 ;; own.  It was just like they were another file.
 
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index a739826c4f2..dae1d6aa8c7 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -570,7 +570,7 @@ menus in the buffer (incorporating descriptions from pre-existing
 menus) before it constructs the master menu.
 
 The function removes the detailed part of an already existing master
-menu.  This action depends on the pre-exisitng master menu using the
+menu.  This action depends on the pre-existing master menu using the
 standard `texinfo-master-menu-header'.
 
 The master menu has the following format, which is adapted from the
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index b4b543f9a47..c4724687c2b 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -80,7 +80,7 @@ All the commands defined in Text mode are inherited unless overridden.")
 
 (if indented-text-mode-map
     ()
-  ;; Make different definintion for TAB before the one in text-mode-map, but
+  ;; Make different definition for TAB before the one in text-mode-map, but
   ;; share the rest.
   (let ((newmap (make-sparse-keymap)))
     (define-key newmap "\t" 'indent-relative)
diff --git a/lisp/timer.el b/lisp/timer.el
index 609224a66e5..c069e13159e 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -23,7 +23,7 @@
 ;;; Commentary:
 
 ;; This package gives you the capability to run Emacs Lisp commands at
-;; specified simes in the future, either as one-shots or periodically.
+;; specified times in the future, either as one-shots or periodically.
 ;; The single entry point is `run-at-time'.
 
 ;;; Code: