Apply typo patches from Paul Eggert.

151 files changed, 388 insertions, 388 deletions

diff --git a/PROBLEMS b/PROBLEMS
index 85de361e24c..7172c0b99dc 100644
--- a/PROBLEMS
+++ b/PROBLEMS
@@ -41,7 +41,7 @@ the names work properly with other programs on the same system.
 This typically happens on Suns and other systems that use shared
 libraries.  The cause is that the site has installed a version of the
 shared library which uses a name server--but has not installed a
-similiar version of the unshared library which Emacs uses.
+similar version of the unshared library which Emacs uses.
 
 The result is that most programs, using the shared library, work with
 the nameserver, but Emacs does not.
@@ -65,7 +65,7 @@ corresponding pair of files should fix the problem.
 
 * Trouble using ptys on AIX.
 
-People often instll the pty devices on AIX incorrectly.
+People often install the pty devices on AIX incorrectly.
 Use `smit pty' to reinstall them properly.
 
 * Shell mode on HP/UX gives the message, "`tty`: Ambiguous".
@@ -458,7 +458,7 @@ in sysV.)  You can use keyboard-translate-table, as shown above,
 to map two other input characters (such as C-^ and C-\) into C-s and
 C-q, so that you can still search and quote.
 
-I have no intention of ever redisigning the Emacs command set for
+I have no intention of ever redesigning the Emacs command set for
 the assumption that terminals use C-s/C-q flow control.  This
 flow control technique is a bad design, and terminals that need
 it are bad merchandise and should not be purchased.  If you can
diff --git a/configure1.in b/configure1.in
index 141e3f67fc0..feb108a6cd1 100755
--- a/configure1.in
+++ b/configure1.in
@@ -228,7 +228,7 @@ Set it to either \`yes' or \`no'."
           inst_paths='#disabled# '
         ;;
 
-        ## Has the user specifiec an installation prefix?
+        ## Has the user specified an installation prefix?
         "prefix" )
           ## If the value was omitted, get it from the next argument.
           if [ "${valomitted}" = "yes" ]; then
@@ -245,7 +245,7 @@ Set it to either \`yes' or \`no'."
           prefix="${val}"
         ;;
 
-        ## Has the user specifiec an installation prefix?
+        ## Has the user specified an installation prefix?
         "exec_prefix" )
           ## If the value was omitted, get it from the next argument.
           if [ "${valomitted}" = "yes" ]; then
diff --git a/etc/FAQ b/etc/FAQ
index d5d137363b8..1d594cbf565 100644
--- a/etc/FAQ
+++ b/etc/FAQ
@@ -434,7 +434,7 @@ General Questions
   
   The real legal meaning of the GNU General Public Licence (copyleft) is
   however it is interpreted by a judge.  There has never been a copyright
-  infringment case involving the GPL to set any precedents.  Please take any
+  infringement case involving the GPL to set any precedents.  Please take any
   discussion regarding this issue to the newsgroup gnu.misc.discuss, which
   was created to hold the extensive flame wars on the subject.
   
@@ -525,7 +525,7 @@ General Questions
   If you are receiving a GNU mailing list named `XXX', you might be able
   to unsubscribe to it by sending a request to the address
   `XXX-request@prep.ai.mit.edu'.  However, this will not work if you are
-  not listed on the main mailing list, but instead recieve the mail from a
+  not listed on the main mailing list, but instead receive the mail from a
   distribution point.  In that case, you will have to track down at which
   distribution point you are listed.  Inspecting the `Received:' headers
   on the mail messages may help, along with liberal use of the `EXPN' or
@@ -2087,7 +2087,7 @@ Bugs/Problems
     Cliff Stoll in his book `The Cuckoo's Egg' describes this in chapter 4.
     The site at LBL had installed the `etc/movemail' program setuid root.
     Since `movemail' had not been designed for this situation, a security
-    hole was created and users could get root priveleges.
+    hole was created and users could get root privileges.
   
     `movemail' has since been changed so that even if it is installed setuid
     root this security hole will not be a result.
@@ -2132,8 +2132,8 @@ Bugs/Problems
     Emacs accepts synthetic X events generated by the SendEvent request as
     though they were regular events.  As a result, if you are using the
     trivial host-based authentication, other users who can open X
-    connections to your X workstatation can make your Emacs process do
-    anything, including run other processes with your priveleges.
+    connections to your X workstation can make your Emacs process do
+    anything, including run other processes with your privileges.
   
     The only fix for this is to prevent other users from being able to open
     X connections.  The standard way to prevent this is to use a real
@@ -2328,7 +2328,7 @@ Finding/Getting Emacs and Related Packages
     ;; LCD Archive Entry:
     ;; tex-complete|Sebastian Kremer|sk@thp.Uni-Koeln.DE
     ;; |Minibuffer name completion for editing [La]TeX.
-    ;; |91-03-26|$Revision: 20.5 $|~/packages/tex-complete.el.Z              !
+    ;; |91-03-26|$Revision: 1.4 $|~/packages/tex-complete.el.Z              !
   
   Dave Brennan has software which automatically looks for data in this
   format.  The format is fairly flexible.  The entry ends when a line is
@@ -3198,7 +3198,7 @@ Changing Key Bindings and Handling Key Binding Problems
           X keysyms Up, Left, Right, and Down.)
        Break (the `Alternate' key is given this keysym)
   
-     These keys work like Sun function keys.  When Emacs recieves the
+     These keys work like Sun function keys.  When Emacs receives the
      keysym, it will internally use character sequences that look like "ESC
      [ ### z", where ### is replaced by a number.  The character sequences
      are identical to those generated by Sun's keyboard under SunView.  Any
@@ -3881,7 +3881,7 @@ Using Emacs with Alternate Character Sets
 
     With these patches, Emacs becomes fully 8-bit operational.  There is
     support for displaying 8-bit characters, as well as for entering such
-    characters from the keyboard.  In addition, upcase/lowcase tranlatsion
+    characters from the keyboard.  In addition, upcase/lowcase translation
     is supported, accented characters are recognized as "letters" (important
     when doing 'forward-word', for example), and text with 8-bit characters
     can be sorted correctly.
diff --git a/etc/termcap.dat b/etc/termcap.dat
index a9d0ef02e0a..b86869c1fa7 100644
--- a/etc/termcap.dat
+++ b/etc/termcap.dat
@@ -79,7 +79,7 @@ N0|aa|annarbor|4080|ann arbor 4080:\
 #       Briefly, the settings are for the following modes:
 #          (values are for bit set/clear with * indicating our preference
 #           and the value used to test these termcaps)
-#       Note that many of these settings are irelevent to the termcap
+#       Note that many of these settings are irrelevant to the termcap
 #       and are just set to the default mode of the terminal as shipped
 #       by the factory.
 #
@@ -120,7 +120,7 @@ N0|aa|annarbor|4080|ann arbor 4080:\
 #       transmit all characters/transmit only selected characters*
 #       transmit all selected areas/transmit only 1 selected area*
 #
-#       transmit/do not transmit line seperators to host*
+#       transmit/do not transmit line separators to host*
 #       transmit/do not transmit page tab stops tabs to host*
 #       transmit/do not transmit column tab stop tabs to host*
 #       transmit/do not transmit graphics control (underline,inverse..)*
@@ -159,7 +159,7 @@ N0|aa|annarbor|4080|ann arbor 4080:\
 #
 # D menu: 0110 1001   1   0
 #       LF is newline/LF is down one line, same column*
-#       wrap to preceeding line if move left from col 1*/don't wrap
+#       wrap to preceding line if move left from col 1*/don't wrap
 #       wrap to next line if move right from col 80*/don't wrap
 #       backspace is/is not destructive*
 #
@@ -804,7 +804,7 @@ MS|soroc|Soroc 120:\
         :kl=^H:ku=^K:kr=^L:kd=^J:tc=adm3a:
 # Needs function keys added.  Also can't use 60 line mode because it needs
 # too much nl delay - can fix for nl but not out of vi.
-# The cl delay is sufficent, but a smaller one could do.
+# The cl delay is sufficient, but a smaller one could do.
 # This entry is merged from Mike O'Brien@Rand and Howard Katseff at
 # Bell Labs, and is untested.
 Mb|aaa|ambas|ambassador|ann arbor ambassador/48 lines:\
diff --git a/lib-src/aixcc.lex b/lib-src/aixcc.lex
index 784d68d82b9..b7b44701b18 100644
--- a/lib-src/aixcc.lex
+++ b/lib-src/aixcc.lex
@@ -157,7 +157,7 @@ yywrap ()
 
 ^([a-z]\ -)?\ *{EC}:    {
     /* 
-     * error message (which we print immediately) preceeded by an
+     * error message (which we print immediately) preceded by an
      * error code (which we ignore)
      */
 
diff --git a/lib-src/emacstool.c b/lib-src/emacstool.c
index 1312dd912fc..80381643c2a 100644
--- a/lib-src/emacstool.c
+++ b/lib-src/emacstool.c
@@ -65,7 +65,7 @@
 /* define WANT_CAPS_LOCK to make f-key T1 (aka F1) behave as CapsLock */
 #define WANT_CAPS_LOCK
 #ifdef WANT_CAPS_LOCK
-int caps_lock;          /* toggle indicater for f-key T1 caps lock */
+int caps_lock;          /* toggle indicator for f-key T1 caps lock */
 static char *Caps = "[CAPS] ";          /* Caps Lock prefix string */
 #define CAPS_LEN 7                      /* strlen (Caps) */
 #endif
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 24b6da53d5e..5d0389f911f 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -834,7 +834,7 @@ process_file (file)
 }
 
 /*
- * This routine sets up the boolean psuedo-functions which work
+ * This routine sets up the boolean pseudo-functions which work
  * by setting boolean flags dependent upon the corresponding character
  * Every char which is NOT in that string is not a white char.  Therefore,
  * all of the array "_wht" is set to FALSE, and then the elements
@@ -2845,7 +2845,7 @@ readline (linebuffer, stream)
   register char *pend;
   int newline;                  /* 1 if ended with newline, 0 if ended with EOF */
 
-  pend = p + linebuffer->size;  /* Separate to avoind 386/IX compiler bug.  */
+  pend = p + linebuffer->size;  /* Separate to avoid 386/IX compiler bug.  */
 
   while (1)
     {
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index ee149b503ed..2fb9af0849f 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -407,7 +407,7 @@ scan_c_file (filename)
  starting in column zero.
  (quote NAME) may appear as 'NAME as well.
  For defun, defmacro, and autoload, we know how to skip over the arglist.
- For defvar, defconst, and fset we skip to the docstring with a klugey 
+ For defvar, defconst, and fset we skip to the docstring with a kludgy 
  formatting convention: all docstrings must appear on the same line as the
  initial open-paren (the one in column zero) and must contain a backslash 
  and a double-quote immediately after the initial double-quote.  No newlines
diff --git a/lib-src/timer.c b/lib-src/timer.c
index ef46b29f126..d6419ef4cc8 100644
--- a/lib-src/timer.c
+++ b/lib-src/timer.c
@@ -52,7 +52,7 @@ struct event *events;		/* events[0 .. num_events-1] are the
 
 char *pname;      /* programme name for error messages */
 
-/* Accepts a string of two fields seperated by FS.
+/* Accepts a string of two fields separated by FS.
    First field is string for get_date, saying when to wake-up.
    Second field is a token to identify the request.  */
 void
diff --git a/lib-src/yow.c b/lib-src/yow.c
index d01429d829d..7bfde3322e4 100644
--- a/lib-src/yow.c
+++ b/lib-src/yow.c
@@ -101,7 +101,7 @@ yow (fp)
   }
 
   /* Read until SEP, read next line, print it.
-     (Note that we will never print anything before the first seperator.)
+     (Note that we will never print anything before the first separator.)
      If we hit EOF looking for the first SEP, just recurse. */
   while ((c = getc(fp)) != SEP)
     if (c == EOF) {
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:
diff --git a/src/alloc.c b/src/alloc.c
index 56b59f5006d..f47287d4b01 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -359,7 +359,7 @@ mark_interval_tree (tree)
   { if (!NULL_INTERVAL_P (i)) mark_interval_tree (i); }
 
 /* The oddity in the call to XUNMARK is necessary because XUNMARK
-   expands to an assigment to its argument, and most C compilers don't
+   expands to an assignment to its argument, and most C compilers don't
    support casts on the left operand of `='.  */
 #define UNMARK_BALANCE_INTERVALS(i)                             \
 {                                                               \
@@ -1444,7 +1444,7 @@ clear_marks ()
   If the object referred to has not been seen yet, recursively mark
   all the references contained in it.
 
-   If the object referenced is a short string, the referrencing slot
+   If the object referenced is a short string, the referencing slot
    is threaded into a chain of such slots, pointed to from
    the `size' field of the string.  The actual string size
    lives in the last slot in the chain.  We recognize the end
diff --git a/src/buffer.c b/src/buffer.c
index 8a611fc7409..c08135b2e00 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1709,7 +1709,7 @@ OVERLAY.")
 
 
 DEFUN ("overlays-at", Foverlays_at, Soverlays_at, 1, 1, 0,
-  "Return a list of the overays that contain position POS.")
+  "Return a list of the overlays that contain position POS.")
   (pos)
      Lisp_Object pos;
 {
diff --git a/src/cmds.c b/src/cmds.c
index f0dbf72cfcd..df8cd6d0645 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -244,7 +244,7 @@ In Auto Fill mode, if no numeric arg, break the preceding line if it's long.")
     Fbarf_if_buffer_read_only ();
 
   /* Inserting a newline at the end of a line produces better
-     redisplay in try_window_id than inserting at the ebginning fo a
+     redisplay in try_window_id than inserting at the beginning of a
      line, and the textual result is the same.  So, if we're at
      beginning of line, pretend to be at the end of the previous line.  
 
diff --git a/src/config.in b/src/config.in
index 89858d31daf..9fad42a74cc 100644
--- a/src/config.in
+++ b/src/config.in
@@ -201,7 +201,7 @@ and this notice must be preserved on all copies.  */
    programs assume that if you have a config.h file, you must declare
    the type of getenv.
 
-   This declaration shouldn't appear when alloca.s or ymakfile
+   This declaration shouldn't appear when alloca.s or ymakefile
    includes config.h.  */
 #ifndef NOT_C_CODE
 extern char *getenv ();
diff --git a/src/data.c b/src/data.c
index bdbead64df0..d9c905a6b0e 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1215,9 +1215,9 @@ Lisp_Object
 indirect_function (object)
   register Lisp_Object object;
 {
-  Lisp_Object tortise, hare;
+  Lisp_Object tortoise, hare;
 
-  hare = tortise = object;
+  hare = tortoise = object;
 
   for (;;)
     {
@@ -1228,9 +1228,9 @@ indirect_function (object)
         break;
       hare = XSYMBOL (hare)->function;
 
-      tortise = XSYMBOL (tortise)->function;
+      tortoise = XSYMBOL (tortoise)->function;
 
-      if (EQ (hare, tortise))
+      if (EQ (hare, tortoise))
         Fsignal (Qcyclic_function_indirection, Fcons (object, Qnil));
     }
 
diff --git a/src/dired.c b/src/dired.c
index ee0ae07b970..4a529bc7503 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -551,7 +551,7 @@ If file does not exist, returns nil.")
   filemodestring (&s, modes);
   values[8] = make_string (modes, 10);
 #ifdef BSD4_3 /* Gross kludge to avoid lack of "#if defined(...)" in VMS */
-#define BSD4_2 /* A new meaning to the term `backwards compatability' */
+#define BSD4_2 /* A new meaning to the term `backwards compatibility' */
 #endif
 #ifdef BSD4_2                   /* file gid will be dir gid */
   dirname = Ffile_name_directory (filename);
diff --git a/src/dispnew.c b/src/dispnew.c
index 7bcd8015b2f..ed392e0eddf 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -116,7 +116,7 @@ FRAME_PTR last_nonminibuf_frame;
    exist inside frame objects lives in the following structure instead.
 
    NOTE: the_only_frame is not checked for garbage collection; don't
-   store collectable objects in any of its fields!
+   store collectible objects in any of its fields!
 
    You're not/The only frame in town/...  */
 
diff --git a/src/editfns.c b/src/editfns.c
index e8b2a08c79f..a68696ce9ec 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -795,7 +795,7 @@ Both arguments are required.")
 
 /* Return a Lisp_String containing the text of the current buffer from
    START to END.  If text properties are in use and the current buffer
-   has properties in the range specifed, the resulting string will also
+   has properties in the range specified, the resulting string will also
    have them.
 
    We don't want to use plain old make_string here, because it calls
@@ -1365,7 +1365,7 @@ Use %% to put a single % into the output.")
         else if (XTYPE (args[n]) == Lisp_Int && *format != 's')
           {
 #ifdef LISP_FLOAT_TYPE
-            /* The following loop issumes the Lisp type indicates
+            /* The following loop assumes the Lisp type indicates
                the proper way to pass the argument.
                So make sure we have a flonum if the argument should
                be a double.  */
diff --git a/src/floatfns.c b/src/floatfns.c
index abc873688e4..ca50a920f3c 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -405,8 +405,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
   if ((XTYPE (arg1) == Lisp_Int) && /* common lisp spec */
       (XTYPE (arg2) == Lisp_Int)) /* don't promote, if both are ints */
     {                           /* this can be improved by pre-calculating */
-      int acc, x, y;            /* some binary powers of x then acumulating */
-      /* these, therby saving some time. -wsr */
+      int acc, x, y;            /* some binary powers of x then accumulating */
+      /* these, thereby saving some time. -wsr */
       x = XINT (arg1);
       y = XINT (arg2);
       acc = 1;
diff --git a/src/frame.c b/src/frame.c
index 952cc65f7ff..290fb18ee6b 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -326,7 +326,7 @@ make_terminal_frame ()
 
 DEFUN ("select-frame", Fselect_frame, Sselect_frame, 1, 2, "e",
   "Select the frame FRAME.\n\
-Subseqent editing commands apply to its selected window.\n\
+Subsequent editing commands apply to its selected window.\n\
 The selection of FRAME lasts until the next time the user does\n\
 something to select a different frame, or until the next time this\n\
 function is called.")
@@ -394,7 +394,7 @@ to that frame.")
   choose_minibuf_frame ();
 
   /* We want to make sure that the next event generates a frame-switch
-     event to the appropriate frame.  This seems kludgey to me, but
+     event to the appropriate frame.  This seems kludgy to me, but
      before you take it out, make sure that evaluating something like
      (select-window (frame-root-window (new-frame))) doesn't end up
      with your typing being interpreted in the new frame instead of
diff --git a/src/frame.h b/src/frame.h
index e658cdc9286..e56e7d27e68 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -87,7 +87,7 @@ struct frame
   /* Name of this frame: a Lisp string.  See also `explicit_name'.  */
   Lisp_Object name;
 
-  /* The frame which should recieve keystrokes that occur in this
+  /* The frame which should receive keystrokes that occur in this
      frame, or nil if they should go to the frame itself.  This is
      usually nil, but if the frame is minibufferless, we can use this
      to redirect keystrokes to a surrogate minibuffer frame when
diff --git a/src/hftctl.c b/src/hftctl.c
index 7f6cc919495..5891b25cd2e 100644
--- a/src/hftctl.c
+++ b/src/hftctl.c
@@ -20,7 +20,7 @@
 /*      2. places fildes into raw mode                         */
 /*      3. converts ioctl arguments to datastream              */
 /*      4. waits for 2 secs for acknowledgement before         */
-/*         timimg out.                                         */
+/*         timing out.                                         */
 /*      5. places response in callers buffer ( just like       */
 /*         ioctl.                                              */
 /*      6. returns fildes to its original mode                 */
diff --git a/src/insdel.c b/src/insdel.c
index 9d2572bfe62..f53d6a76c6a 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -546,7 +546,7 @@ after_change_function_restore (value)
   Vafter_change_function = value;
 }
 
-/* Signal a change to the buffer immediatly before it happens.
+/* Signal a change to the buffer immediately before it happens.
    START and END are the bounds of the text to be changed,
    as Lisp objects.  */
 
@@ -578,7 +578,7 @@ signal_before_change (start, end)
     }
 }
 
-/* Signal a change immediatly after it happens.
+/* Signal a change immediately after it happens.
    POS is the address of the start of the changed text.
    LENDEL is the number of characters of the text before the change.
    (Not the whole buffer; just the part that was changed.)
diff --git a/src/intervals.c b/src/intervals.c
index c4bb4c381db..7809c37505b 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -837,7 +837,7 @@ interval_deletion_adjustment (tree, from, amount)
   /* Never reach here */
 }
 
-/* Effect the adjustments neccessary to the interval tree of BUFFER
+/* Effect the adjustments necessary to the interval tree of BUFFER
    to correspond to the deletion of LENGTH characters from that buffer
    text.  The deletion is effected at position START (relative to the
    buffer). */
@@ -881,7 +881,7 @@ adjust_intervals_for_deletion (buffer, start, length)
     }
 }
 
-/* Make the adjustments neccessary to the interval tree of BUFFER to
+/* Make the adjustments necessary to the interval tree of BUFFER to
    represent an addition or deletion of LENGTH characters starting
    at position START.  Addition or deletion is indicated by the sign
    of LENGTH. */
@@ -1096,7 +1096,7 @@ make_new_interval (intervals, start, length)
    had its appropriate sticky property set (front_sticky, rear_sticky),
    the new text has only its properties.  If one of the sticky properties
    is set, then the new text "sticks" to that region and its properties
-   depend on merging as above.  If both the preceding and succeding
+   depend on merging as above.  If both the preceding and succeeding
    intervals to the new text are "sticky", then the new text retains
    only its properties, as if neither sticky property were set.  Perhaps
    we should consider merging all three sets of properties onto the new
diff --git a/src/keyboard.c b/src/keyboard.c
index fb935e7bb8f..c192b2070bd 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -903,7 +903,7 @@ command_loop_1 ()
       Vdeactivate_mark = Qnil;
 
       /* If minibuffer on and echo area in use,
-         wait 2 sec and redraw minibufer.  */
+         wait 2 sec and redraw minibuffer.  */
 
       if (minibuf_level && echo_area_glyphs)
         {
@@ -1175,7 +1175,7 @@ command_loop_1 ()
 /* Number of seconds between polling for input.  */
 int polling_period;
 
-/* Nonzero means polling for input is temporarily suppresed.  */
+/* Nonzero means polling for input is temporarily suppressed.  */
 int poll_suppress_count;
 
 #ifdef POLL_FOR_INPUT
@@ -1333,7 +1333,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
          remain unchanged.
 
          Since this event came from a macro, it would be misleading to
-         leave internal_last_event_frame set to whereever the last
+         leave internal_last_event_frame set to wherever the last
          real event came from.  Normally, a switch-frame event selects
          internal_last_event_frame after each command is read, but
          events read from a macro should never cause a new frame to be
@@ -2753,7 +2753,7 @@ reorder_modifiers (symbol)
    the returned symbol. 
 
    The symbols we create are supposed to have an
-   `event-symbol-elements' propery, which lists the modifiers present
+   `event-symbol-elements' property, which lists the modifiers present
    in the symbol's name.  */
 
 static Lisp_Object
@@ -3801,7 +3801,7 @@ read_key_sequence (keybuf, bufsize, prompt)
                          use save_excursion_{save,restore} here, because they
                          save point as well as the current buffer; we don't
                          want to save point, because redisplay may change it,
-                         to accomodate a Fset_window_start or something.  We
+                         to accommodate a Fset_window_start or something.  We
                          don't want to do this at the top of the function,
                          because we may get input from a subprocess which
                          wants to change the selected window and stuff (say,
@@ -4417,7 +4417,7 @@ On such systems, Emacs starts a subshell instead of suspending.")
 }
 
 /* If STUFFSTRING is a string, stuff its contents as pending terminal input.
-   Then in any case stuff anthing Emacs has read ahead and not used.  */
+   Then in any case stuff anything Emacs has read ahead and not used.  */
 
 stuff_buffered_input (stuffstring)
      Lisp_Object stuffstring;
diff --git a/src/keyboard.h b/src/keyboard.h
index ccb05ce3071..fb9f8b64de6 100644
--- a/src/keyboard.h
+++ b/src/keyboard.h
@@ -23,7 +23,7 @@ extern int num_input_chars;
 /* Total number of times read_char has returned, outside of macros.  */
 extern int num_nonmacro_input_chars;
 
-/* Nonzero means polling for input is temporarily suppresed.  */
+/* Nonzero means polling for input is temporarily suppressed.  */
 extern int poll_suppress_count;
 
 /* Keymap mapping ASCII function key sequences onto their preferred forms.
diff --git a/src/lisp.h b/src/lisp.h
index 66b85c7679d..b7f5e0e20b2 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -474,7 +474,7 @@ typedef struct interval *INTERVAL;
    structures.  See, e.g., struct Lisp_String below. */
 #define DECLARE_INTERVALS INTERVAL intervals;
 
-/* Macro used to condionally compile interval initialization into
+/* Macro used to conditionally compile interval initialization into
    certain code.  See, e.g., alloc.c. */
 #define INITIALIZE_INTERVAL(ptr,val) ptr->intervals = val
 
diff --git a/src/m/att3b.h b/src/m/att3b.h
index 53fc26780af..838a5b867b3 100644
--- a/src/m/att3b.h
+++ b/src/m/att3b.h
@@ -129,7 +129,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
                  ? (sign_extend_temp | 0xFF000000) \
                  : (sign_extend_temp & 0x00FFFFFF))
 
-#ifdef emacs /* Don't do this when makeing xmakefile! */
+#ifdef emacs /* Don't do this when making xmakefile! */
 extern int sign_extend_temp;
 #endif
 
diff --git a/src/m/hp9000s300.h b/src/m/hp9000s300.h
index 6d247d34806..eaf7436a545 100644
--- a/src/m/hp9000s300.h
+++ b/src/m/hp9000s300.h
@@ -119,7 +119,7 @@ NOTE-END */
 
 /* #define VIRT_ADDR_VARIES */
 
-/* For University of Utah 4.3bsd implemetation on HP300s.
+/* For University of Utah 4.3bsd implementation on HP300s.
    The #ifndef __GNUC__ definitions are required for the "standard" cc,
    a very old, brain-dead version of PCC. */
 
diff --git a/src/m/ns32000.h b/src/m/ns32000.h
index 0520b678d75..f41e457dbe2 100644
--- a/src/m/ns32000.h
+++ b/src/m/ns32000.h
@@ -1,4 +1,4 @@
-/* machine description file for Netional Semiconductor 32000, running Genix.
+/* machine description file for National Semiconductor 32000, running Genix.
    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
diff --git a/src/m/sps7.h b/src/m/sps7.h
index 5e838592cc6..0408ed0e02e 100644
--- a/src/m/sps7.h
+++ b/src/m/sps7.h
@@ -52,7 +52,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define EXPLICIT_SIGN_EXTEND
 
 /* Data type of load average, as read out of kmem.  */
-/* Suspect there is something wierd about this machine, so turn it off.  */
+/* Suspect there is something weird about this machine, so turn it off.  */
 
 /* #define LOAD_AVE_TYPE long */
 
diff --git a/src/m/sun1.h b/src/m/sun1.h
index 085834ccb57..f4dca832daf 100644
--- a/src/m/sun1.h
+++ b/src/m/sun1.h
@@ -59,7 +59,7 @@ NOTE-END  */
 
 #define NO_UNION_TYPE
 
-/* Sun can't write competant compilers */
+/* Sun can't write competent compilers */
 #define COMPILER_REGISTER_BUG
 
 /* XINT must explicitly sign-extend */
diff --git a/src/print.c b/src/print.c
index 6075ea22210..3336a565b1d 100644
--- a/src/print.c
+++ b/src/print.c
@@ -128,7 +128,7 @@ glyph_to_str_cpy (glyphs, str)
 }
 #endif
 
-/* Low level output routines for charaters and strings */
+/* Low level output routines for characters and strings */
 
 /* Lisp functions to do output using a stream
  must have the stream in a variable called printcharfun
diff --git a/src/process.c b/src/process.c
index 91e411eff65..d0beafe6ad9 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1683,7 +1683,7 @@ static int waiting_for_user_input_p;
    If read_kbd is a pointer to a struct Lisp_Process, then the
      function returns true iff we received input from that process
      before the timeout elapsed.
-   Otherwise, return true iff we recieved input from any process.  */
+   Otherwise, return true iff we received input from any process.  */
 
 wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
      int time_limit, microsecs;
@@ -3121,7 +3121,7 @@ extern int frame_garbaged;
    do_display != 0 means redisplay should be done to show subprocess
    output that arrives.  This version of the function ignores it.
 
-   Return true iff we recieved input from any process.  */
+   Return true iff we received input from any process.  */
 
 int
 wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
diff --git a/src/ralloc.c b/src/ralloc.c
index b33e329753d..6c52b83958e 100644
--- a/src/ralloc.c
+++ b/src/ralloc.c
@@ -19,7 +19,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 /* NOTES:
 
-   Only relocate the blocs neccessary for SIZE in r_alloc_sbrk,
+   Only relocate the blocs necessary for SIZE in r_alloc_sbrk,
    rather than all of them.  This means allowing for a possible
    hole between the first bloc and the end of malloc storage. */
 
@@ -485,7 +485,7 @@ r_re_alloc (ptr, size)
    from the system.  */
 extern POINTER (*__morecore) ();
 
-/* Intialize various things for memory allocation. */
+/* Initialize various things for memory allocation. */
 
 static void
 r_alloc_init ()
diff --git a/src/s/aix3-1.h b/src/s/aix3-1.h
index f75518675d6..d7e20a4eaf2 100644
--- a/src/s/aix3-1.h
+++ b/src/s/aix3-1.h
@@ -180,7 +180,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/dgux.h b/src/s/dgux.h
index 65530877c43..2e6ac7a08a0 100644
--- a/src/s/dgux.h
+++ b/src/s/dgux.h
@@ -52,7 +52,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
diff --git a/src/s/gnu-linux.h b/src/s/gnu-linux.h
index ddedcc3cb0b..1499d819466 100644
--- a/src/s/gnu-linux.h
+++ b/src/s/gnu-linux.h
@@ -42,7 +42,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
diff --git a/src/s/hpux.h b/src/s/hpux.h
index cd15e1ce13d..03dd1836187 100644
--- a/src/s/hpux.h
+++ b/src/s/hpux.h
@@ -98,7 +98,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 /* #define NONSYSTEM_DIR_LIBRARY */
 
 /* Define this symbol if your system has the functions bcopy, etc.
- * s800 and later versions of s300 (s200) kernels have equivilents
+ * s800 and later versions of s300 (s200) kernels have equivalents
  * of the BSTRING functions of BSD.  If your s200 kernel doesn't have
  * em comment out this section.
  */
@@ -176,7 +176,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _longjmp longjmp
 */
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/iris3-5.h b/src/s/iris3-5.h
index 20a36caa32a..3b175fa5506 100644
--- a/src/s/iris3-5.h
+++ b/src/s/iris3-5.h
@@ -154,7 +154,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/iris3-6.h b/src/s/iris3-6.h
index 2944a70725b..a385d8623f8 100644
--- a/src/s/iris3-6.h
+++ b/src/s/iris3-6.h
@@ -155,7 +155,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/irix3-3.h b/src/s/irix3-3.h
index 86a555e9e8c..252fc3a7b19 100644
--- a/src/s/irix3-3.h
+++ b/src/s/irix3-3.h
@@ -141,7 +141,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/osf1.h b/src/s/osf1.h
index 491b8978a6f..10b8f078906 100644
--- a/src/s/osf1.h
+++ b/src/s/osf1.h
@@ -4,7 +4,7 @@
 
 #define OSF1
 
-/* Define _BSD to tell the inlcude files we're running under
+/* Define _BSD to tell the include files we're running under
    the BSD universe and not the SYSV universe.  */
 
 #define C_SWITCH_SYSTEM -D_BSD
diff --git a/src/s/rtu.h b/src/s/rtu.h
index b90ad6dd91d..f2ef555d1f1 100644
--- a/src/s/rtu.h
+++ b/src/s/rtu.h
@@ -44,7 +44,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
@@ -139,7 +139,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 /* Special hacks needed to make Emacs run on this system.  */
 
-/* On RTU systems (like USG) the system calls are interruptable by signals
+/* On RTU systems (like USG) the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/sunos4-1.h b/src/s/sunos4-1.h
index 8e038a8c60d..61885d747c6 100644
--- a/src/s/sunos4-1.h
+++ b/src/s/sunos4-1.h
@@ -1,6 +1,6 @@
 #include "sunos4-0.h"
 
-/* 4.1.1 makes these system calls interruptable.  */
+/* 4.1.1 makes these system calls interruptible.  */
 
 #define read sys_read
 #define write sys_write
diff --git a/src/s/template.h b/src/s/template.h
index 62eb065dc36..3cee20afff6 100644
--- a/src/s/template.h
+++ b/src/s/template.h
@@ -58,7 +58,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    INTERRUPT_INPUT to decide whether to use it by default.
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
@@ -83,7 +83,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  *      Define HAVE_TERMIO if the system provides sysV-style ioctls
  *      for terminal control.
  *
- *      Do not define both.  HAVE_TERMIOS is prefered, if it is
+ *      Do not define both.  HAVE_TERMIOS is preferred, if it is
  *      supported on your system.
  */
 
diff --git a/src/s/umax.h b/src/s/umax.h
index a67f15c22e1..2bbd333d7d0 100644
--- a/src/s/umax.h
+++ b/src/s/umax.h
@@ -51,7 +51,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
diff --git a/src/s/unipl5-0.h b/src/s/unipl5-0.h
index 3df79561fb4..9cf3652fb94 100644
--- a/src/s/unipl5-0.h
+++ b/src/s/unipl5-0.h
@@ -160,7 +160,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/unipl5-2.h b/src/s/unipl5-2.h
index 6850f8d55c9..f9e3979b92a 100644
--- a/src/s/unipl5-2.h
+++ b/src/s/unipl5-2.h
@@ -154,7 +154,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/usg5-0.h b/src/s/usg5-0.h
index 16271c8a4f3..a6eeb26342d 100644
--- a/src/s/usg5-0.h
+++ b/src/s/usg5-0.h
@@ -149,7 +149,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/usg5-2-2.h b/src/s/usg5-2-2.h
index 982f3e32107..3227700c100 100644
--- a/src/s/usg5-2-2.h
+++ b/src/s/usg5-2-2.h
@@ -148,7 +148,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/usg5-2.h b/src/s/usg5-2.h
index 46346005dfb..d4a82ab6d0c 100644
--- a/src/s/usg5-2.h
+++ b/src/s/usg5-2.h
@@ -148,7 +148,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/s/xenix.h b/src/s/xenix.h
index 83d48a1b56e..3560e172c62 100644
--- a/src/s/xenix.h
+++ b/src/s/xenix.h
@@ -51,7 +51,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
    Define INTERRUPT_INPUT to make interrupt_input = 1 the default (use SIGIO)
 
    SIGIO can be used only on systems that implement it (4.2 and 4.3).
-   CBREAK mode has two disadvatages
+   CBREAK mode has two disadvantages:
      1) At least in 4.2, it is impossible to handle the Meta key properly.
         I hear that in system V this problem does not exist.
      2) Control-G causes output to be discarded.
@@ -180,7 +180,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define _setjmp setjmp
 #define _longjmp longjmp
 
-/* On USG systems the system calls are interruptable by signals
+/* On USG systems the system calls are interruptible by signals
  that the user program has elected to catch.  Thus the system call
  must be retried in these cases.  To handle this without massive
  changes in the source code, we remap the standard system call names
diff --git a/src/search.c b/src/search.c
index 99e3c40f58a..d9c4554cb92 100644
--- a/src/search.c
+++ b/src/search.c
@@ -943,7 +943,7 @@ search_buffer (string, pos, lim, n, RE, trt, inverse_trt)
                   while ((limit - pos) * direction >= 0)
                     pos += BM_tab[FETCH_CHAR(pos)];
                   /* now run the same tests to distinguish going off the */
-                  /* end, a match or a phoney match. */
+                  /* end, a match or a phony match. */
                   if ((pos - limit) * direction <= len)
                     break;      /* ran off the end */
                   /* Found what might be a match.
diff --git a/src/sunfns.c b/src/sunfns.c
index 5fcf6f6cf0b..45c0d6deb90 100644
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -85,7 +85,7 @@ static mpr_static(ArrowCursorMpr, 16, 16, 1, ArrowCursorData);
 struct cursor DefaultCursor = {15, 0, PIX_SRC ^ PIX_DST, &ArrowCursorMpr};
 
 #else
-/* The default left-arror cursor, with XOR drawing. */
+/* The default left-arrow cursor, with XOR drawing. */
 static short ArrowCursorData[16] = {
         0x8000,0xC000,0xE000,0xF000,0xF800,0xFC00,0xFE00,0xF000,
         0xD800,0x9800,0x0C00,0x0C00,0x0600,0x0600,0x0300,0x0300};
@@ -291,7 +291,7 @@ sel_read (sel, file)
     return(-1);
   }
   /*
-   * The shelltool select saves newlines as carrige returns,
+   * The shelltool select saves newlines as carriage returns,
    * but emacs wants newlines.
    */
   for (i = 0; i < n; i++) 
diff --git a/src/syntax.c b/src/syntax.c
index 9b711327448..db60b8f09f5 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -774,7 +774,7 @@ between them, return t; otherwise return nil.")
                       }
 
                     /* If we find another earlier comment-ender,
-                       any comment-starts earier than that don't count
+                       any comment-starts earlier than that don't count
                        (because they go with the earlier comment-ender).  */
                     if (code == Sendcomment
                         && SYNTAX_COMMENT_STYLE (FETCH_CHAR (from)) == comstyle)
@@ -1161,7 +1161,7 @@ scan_lists (from, count, depth, sexpflag)
                       }
 
                     /* If we find another earlier comment-ender,
-                       any comment-starts earier than that don't count
+                       any comment-starts earlier than that don't count
                        (because they go with the earlier comment-ender).  */
                     if (code == Sendcomment
                         && SYNTAX_COMMENT_STYLE (FETCH_CHAR (from)) == comstyle)
diff --git a/src/sysdep.c b/src/sysdep.c
index 982d361ae2a..b7aa5d4bf0e 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -437,7 +437,7 @@ child_setup_tty (out)
   s.main.c_oflag &= ~OLCUC;     /* Disable map of lower case to upper on
                                    output */
 #if 0
-  /* Said to be unnecesary:  */
+  /* Said to be unnecessary:  */
   s.main.c_cc[VMIN] = 1;        /* minimum number of characters to accept  */
   s.main.c_cc[VTIME] = 0;       /* wait forever for at least 1 character  */
 #endif
@@ -697,7 +697,7 @@ reset_sigio ()
   unrequest_sigio ();
 }
 
-#ifdef FASYNC           /* F_SETFL does not imply existance of FASYNC */
+#ifdef FASYNC           /* F_SETFL does not imply existence of FASYNC */
 
 request_sigio ()
 {
@@ -830,7 +830,7 @@ emacs_set_tty (fd, settings, waitp)
      of the requested actions could not be performed.
      We must read settings back to ensure tty setup properly.
      AIX requires this to keep tty from hanging occasionally."  */
-  /* This make sure that we dont loop indefinetly in here.  */
+  /* This make sure that we don't loop indefinitely in here.  */
   for (i = 0 ; i < 10 ; i++)
     if (tcsetattr (fd, waitp ? TCSAFLUSH : TCSADRAIN, &settings->main) < 0)
       {
@@ -1162,7 +1162,7 @@ init_sys_modes ()
     }
 
 #ifdef F_SETFL
-#ifdef F_GETOWN         /* F_SETFL does not imply existance of F_GETOWN */
+#ifdef F_GETOWN         /* F_SETFL does not imply existence of F_GETOWN */
   if (interrupt_input)
     {
       old_fcntl_owner = fcntl (0, F_GETOWN, 0);
@@ -1311,7 +1311,7 @@ reset_sys_modes ()
 #endif
 
 #ifdef F_SETFL
-#ifdef F_SETOWN         /* F_SETFL does not imply existance of F_SETOWN */
+#ifdef F_SETOWN         /* F_SETFL does not imply existence of F_SETOWN */
   if (interrupt_input)
     {
       reset_sigio ();
@@ -2395,7 +2395,7 @@ sys_abort ()
 #ifdef VMS
 #ifdef LINK_CRTL_SHARE
 #ifdef SHAREABLE_LIB_BUG
-/* Variables declared noshare and initialized in shareable libraries
+/* Variables declared noshare and initialized in sharable libraries
    cannot be shared.  The VMS linker incorrectly forces you to use a private
    version which is uninitialized... If not for this "feature", we
    could use the C library definition of sys_nerr and sys_errlist. */
@@ -2516,7 +2516,7 @@ sys_write (fildes, buf, nbyte)
  *      to names for our own functions in sysdep.c that do the system call
  *      with retries.  Actually, for portability reasons, it is good
  *      programming practice, as this example shows, to limit all actual
- *      system calls to a single occurance in the source.  Sure, this
+ *      system calls to a single occurrence in the source.  Sure, this
  *      adds an extra level of function call overhead but it is almost
  *      always negligible.   Fred Fish, Unisoft Systems Inc.
  */
@@ -2802,7 +2802,7 @@ char *sys_siglist[NSIG + 1] =
   "power-fail restart",                  /* 19 SIGPWR    */
   "window size changed",                 /* 20 SIGWINCH  */
   "undefined",                           /* 21           */
-  "pollable event occured",              /* 22 SIGPOLL   */
+  "pollable event occurred",             /* 22 SIGPOLL   */
   "sendable stop signal not from tty",   /* 23 SIGSTOP   */
   "stop signal from tty",                /* 24 SIGSTP    */
   "continue a stopped process",          /* 25 SIGCONT   */
@@ -3574,7 +3574,7 @@ creat_copy_attrs (old, new)
 sys_creat (va_alist)
      va_dcl
 {
-  va_list list_incrementor;
+  va_list list_incrementer;
   char *name;
   int mode;
   int rfd;                      /* related file descriptor */
@@ -3588,12 +3588,12 @@ sys_creat (va_alist)
   extern int vms_stmlf_recfm;
 
   va_count (count);
-  va_start (list_incrementor);
-  name = va_arg (list_incrementor, char *);
-  mode = va_arg (list_incrementor, int);
+  va_start (list_incrementer);
+  name = va_arg (list_incrementer, char *);
+  mode = va_arg (list_incrementer, int);
   if (count > 2)
-    rfd = va_arg (list_incrementor, int);
-  va_end (list_incrementor);
+    rfd = va_arg (list_incrementer, int);
+  va_end (list_incrementer);
   if (count > 2)
     {
       /* Use information from the related file descriptor to set record
@@ -4102,7 +4102,7 @@ rename (from, to)
    are renaming.
 
    We could use the chmod function, but Eunichs uses 3 bits per user category
-   to describe the protection, and VMS uses 4 (write and delete are seperate
+   to describe the protection, and VMS uses 4 (write and delete are separate
    bits).  To maintain portability, the VMS implementation of `chmod' wires
    the W and D bits together.  */
 
diff --git a/src/systty.h b/src/systty.h
index 1324286c7fb..b07bfa27860 100644
--- a/src/systty.h
+++ b/src/systty.h
@@ -164,7 +164,7 @@ static struct sensemode {
 #undef ASYNC
 #endif
 
-/* Interupt input is not used if there is no FIONREAD.  */
+/* Interrupt input is not used if there is no FIONREAD.  */
 #ifndef FIONREAD
 #undef SIGIO
 #endif
diff --git a/src/term.c b/src/term.c
index 911f9f1feee..e84ab1c3c9e 100644
--- a/src/term.c
+++ b/src/term.c
@@ -40,7 +40,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define OUTPUT_IF(a) { if (a) tputs (a, FRAME_HEIGHT (selected_frame) - curY, cmputc); }
 #define OUTPUT1_IF(a) { if (a) tputs (a, 1, cmputc); }
 
-/* Terminal charateristics that higher levels want to look at.
+/* Terminal characteristics that higher levels want to look at.
    These are all extern'd in termchar.h */
 
 int must_write_spaces;          /* Nonzero means spaces in the text
@@ -1255,7 +1255,7 @@ term_get_fkeys (address)
 
   /* The uses of the "k0" capability are inconsistent; sometimes it
      describes F10, whereas othertimes it describes F0 and "k;" describes F10.
-     We will attempt to politely accomodate both systems by testing for
+     We will attempt to politely accommodate both systems by testing for
      "k;", and if it is present, assuming that "k0" denotes F0, otherwise F10.
      */
   {
diff --git a/src/termopts.h b/src/termopts.h
index 489b786b248..d462ca6215f 100644
--- a/src/termopts.h
+++ b/src/termopts.h
@@ -1,4 +1,4 @@
-/* Flags and paramaters describing user options for handling the terminal.
+/* Flags and parameters describing user options for handling the terminal.
    Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
diff --git a/src/textprop.c b/src/textprop.c
index 89b882b511d..865f35c5fed 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -32,7 +32,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
   It is assumed that for any interval plist, a property appears
   only once on the list.  Although some code i.e., remove_properties,
   handles the more general case, the uniqueness of properties is
-  neccessary for the system to remain consistent.  This requirement
+  necessary for the system to remain consistent.  This requirement
   is enforced by the subrs installing properties onto the intervals. */
 
 /* The rest of the file is within this conditional */
diff --git a/src/unexaix.c b/src/unexaix.c
index 3deca01b665..9fa10e3a912 100644
--- a/src/unexaix.c
+++ b/src/unexaix.c
@@ -669,7 +669,7 @@ copy_sym (new, a_out, a_name, new_name)
 /* ****************************************************************
  * mark_x
  *
- * After succesfully building the new a.out, mark it executable
+ * After successfully building the new a.out, mark it executable
  */
 static void
 mark_x (name)
diff --git a/src/unexconvex.c b/src/unexconvex.c
index 09a7dfff400..3be4b86f1ff 100644
--- a/src/unexconvex.c
+++ b/src/unexconvex.c
@@ -438,7 +438,7 @@ make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name)
 
     for( scns = 0; scns < f_hdr.h_nscns; scns++ ) {
 
-        /* This is a cheesey little loop to write out the section headers
+        /* This is a cheesy little loop to write out the section headers
          * in order of increasing virtual address. Dull but effective.
          */
 
@@ -561,7 +561,7 @@ copy_sym (new, a_out, a_name, new_name)
 /* ****************************************************************
  * mark_x
  *
- * After succesfully building the new a.out, mark it executable
+ * After successfully building the new a.out, mark it executable
  */
 static
 mark_x (name)
diff --git a/src/unexec.c b/src/unexec.c
index e8906fe68ad..c07bc1a4be2 100644
--- a/src/unexec.c
+++ b/src/unexec.c
@@ -603,7 +603,7 @@ make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name)
    * .lib), adjust the address of where the section data is in the
    * file, and write out the header.
    *
-   * If any section preceeds .text or .data in the file, this code
+   * If any section precedes .text or .data in the file, this code
    * will not adjust the file pointer for that section correctly.
    */
 
@@ -946,7 +946,7 @@ copy_sym (new, a_out, a_name, new_name)
 /* ****************************************************************
  * mark_x
  *
- * After succesfully building the new a.out, mark it executable
+ * After successfully building the new a.out, mark it executable
  */
 static void
 mark_x (name)
diff --git a/src/unexenix.c b/src/unexenix.c
index ea6cd7d5c20..f20e7cc502f 100644
--- a/src/unexenix.c
+++ b/src/unexenix.c
@@ -228,7 +228,7 @@ copyrec (infd, outfd, len, in_name, out_name)
 /*
  * mark_x
  *
- * After succesfully building the new a.out, mark it executable
+ * After successfully building the new a.out, mark it executable
  */
 static
 mark_x (name)
diff --git a/src/unexmips.c b/src/unexmips.c
index 4eeee03f736..292f0210c53 100644
--- a/src/unexmips.c
+++ b/src/unexmips.c
@@ -281,7 +281,7 @@ unexec (new_name, a_name, data_start, bss_start, entry_address)
 /*
  * mark_x
  *
- * After succesfully building the new a.out, mark it executable
+ * After successfully building the new a.out, mark it executable
  */
 
 static void
diff --git a/src/unexsunos4.c b/src/unexsunos4.c
index b5d80829dc5..c8dff3482dd 100644
--- a/src/unexsunos4.c
+++ b/src/unexsunos4.c
@@ -106,8 +106,8 @@ unexec (new_name, a_name, bndry, bss_start, entry)
 
 
   /*
-   * Remeber a magic cookie so we know we've got the right binary
-   * when remaping.
+   * Remember a magic cookie so we know we've got the right binary
+   * when remapping.
    */
   cookie = time (0);
 
diff --git a/src/xfns.c b/src/xfns.c
index bb505e7962d..e46053ba163 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -584,7 +584,7 @@ x_set_mouse_color (f, arg, oldval)
   BLOCK_INPUT;
 #ifdef HAVE_X11
 
-  /* It's not okay to crash if the user selects a screwey cursor.  */
+  /* It's not okay to crash if the user selects a screwy cursor.  */
   x_catch_errors ();
 
   if (!EQ (Qnil, Vx_pointer_shape))
@@ -1856,7 +1856,7 @@ be shared by the new frame.")
   f->display.x = (struct x_display *) xmalloc (sizeof (struct x_display));
   bzero (f->display.x, sizeof (struct x_display));
 
-  /* Some temprorary default values for height and width. */
+  /* Some temporary default values for height and width. */
   width = 80;
   height = 40;
   f->display.x->left_pos = -1;
@@ -2821,7 +2821,7 @@ clip_contour_top (y_pos, x_pos)
     }
 }
 
-/* Erase the top horzontal lines of the contour, and then extend
+/* Erase the top horizontal lines of the contour, and then extend
    the contour upwards. */
 
 static void
diff --git a/src/xselect.c b/src/xselect.c
index 73394f18a7d..31113acd38e 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -1614,7 +1614,7 @@ Disowning it means there is no such selection.")
   XSetSelectionOwner (display, selection_atom, None, timestamp);
   UNBLOCK_INPUT;
 
-  /* It doesn't seem to be guarenteed that a SelectionClear event will be
+  /* It doesn't seem to be guaranteed that a SelectionClear event will be
      generated for a window which owns the selection when that window sets
      the selection owner to None.  The NCD server does, the MIT Sun4 server
      doesn't.  So we synthesize one; this means we might get two, but
diff --git a/src/xterm.c b/src/xterm.c
index f07c12483ca..9900ab08884 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -703,7 +703,7 @@ XTclear_frame ()
 /* Invert the middle quarter of the frame for .15 sec.  */
 
 /* We use the select system call to do the waiting, so we have to make sure
-   it's avaliable.  If it isn't, we just won't do visual bells.  */
+   it's available.  If it isn't, we just won't do visual bells.  */
 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT)
 
 /* Subtract the `struct timeval' values X and Y,
@@ -1288,7 +1288,7 @@ static void XTframe_rehighlight ();
 /* The focus has changed.  Update the frames as necessary to reflect
    the new situation.  Note that we can't change the selected frame
    here, because the lisp code we are interrupting might become confused.
-   Each event gets marked with the frame in which it occured, so the
+   Each event gets marked with the frame in which it occurred, so the
    lisp code can tell when the switch took place by examining the events.  */
 
 static void
@@ -1629,7 +1629,7 @@ static XRectangle last_mouse_glyph;
 
 /* The scroll bar in which the last X motion event occurred.
 
-   If the last X motion event occured in a scroll bar, we set this
+   If the last X motion event occurred in a scroll bar, we set this
    so XTmouse_position can know whether to report a scroll bar motion or
    an ordinary motion.
 
@@ -2027,7 +2027,7 @@ x_scroll_bar_set_handle (bar, start, end, rebuild)
   UNBLOCK_INPUT;
 }
 
-/* Move a scroll bar around on the screen, to accomodate changing
+/* Move a scroll bar around on the screen, to accommodate changing
    window configurations.  */
 static void
 x_scroll_bar_move (bar, top, left, width, height)
@@ -2335,7 +2335,7 @@ x_scroll_bar_handle_click (bar, event, emacs_event)
 
     /* Same deal here as the other #if 0.  */
 #if 0
-    /* Clicks on the handle are always reported as occuring at the top of 
+    /* Clicks on the handle are always reported as occurring at the top of 
        the handle.  */
     if (emacs_event->part == scroll_bar_handle)
       emacs_event->x = bar->start;
@@ -4314,7 +4314,7 @@ x_make_frame_invisible (f)
                          DefaultScreen (x_current_display)))
     {
       UNBLOCK_INPUT_RESIGNAL;
-      error ("can't notify window manager of window withdrawl");
+      error ("can't notify window manager of window withdrawal");
     }
 
 #else /* ! defined (HAVE_X11R4) */
diff --git a/src/xterm.h b/src/xterm.h
index 9608a543cf6..2e3247d61d9 100644
--- a/src/xterm.h
+++ b/src/xterm.h
@@ -488,7 +488,7 @@ struct scroll_bar {
    (used when relating to the rest of the screen) and inside width
    (used when sizing and drawing the scroll bar window itself).
 
-   The handle moves up and down/back and forth in a rectange inset
+   The handle moves up and down/back and forth in a rectangle inset
    from the edges of the scroll bar.  These are widths by which we
    inset the handle boundaries from the scroll bar edges.  */
 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (2)