Spelling fixes.

63 files changed, 77 insertions, 78 deletions

diff --git a/admin/grammars/c.by b/admin/grammars/c.by
index b49f8ce76c7..8c9da9a901b 100644
--- a/admin/grammars/c.by
+++ b/admin/grammars/c.by
@@ -261,7 +261,7 @@ define
   ;
 
 ;; In C++, structures can have the same things as classes.
-;; So delete this somday in the figure.
+;; So delete this some day in the figure.
 ;;
 ;;structparts : semantic-list
 ;;            (EXPANDFULL $1 structsubparts)
diff --git a/doc/emacs/ack.texi b/doc/emacs/ack.texi
index ae6338ce5a6..e6d1f8979d7 100644
--- a/doc/emacs/ack.texi
+++ b/doc/emacs/ack.texi
@@ -1183,7 +1183,7 @@ Martin Stjernholm co-authored CC Mode, a major editing mode for C,
 C@t{++}, Objective-C, Java, Pike, CORBA IDL, and AWK code.
 
 @item
-Steve Strassman did not write @file{spook.el}, and even if he did, he
+Steve Strassmann did not write @file{spook.el}, and even if he did, he
 really didn't mean for you to use it in an anarchistic way.
 
 @item
diff --git a/doc/emacs/emacs.texi b/doc/emacs/emacs.texi
index f5f0ffe8ef4..ca6162ff824 100644
--- a/doc/emacs/emacs.texi
+++ b/doc/emacs/emacs.texi
@@ -1371,7 +1371,7 @@ Shapiro, Richard Sharman, Olin Shivers, Espen Skoglund, Rick Sladkey,
 Lynn Slater, Chris Smith, David Smith, Paul D.@: Smith, William
 Sommerfeld, Andre Spiegel, Michael Staats, Ulf Stegemann, Reiner Steib,
 Sam Steingold, Ake Stenhoff, Peter Stephenson, Ken Stevens, Andy Stewart,
-Jonathan Stigelman, Martin Stjernholm, Kim F.@: Storm, Steve Strassman,
+Jonathan Stigelman, Martin Stjernholm, Kim F.@: Storm, Steve Strassmann,
 Olaf Sylvester, Naoto Takahashi, Steven Tamm, Jean-Philippe Theberge,
 Jens T.@: Berger Thielemann, Spencer Thomas, Jim Thompson, Luc
 Teirlinck, David O'Toole, Tom Tromey, Enami Tsugutomo, Eli Tziperman,
diff --git a/doc/emacs/modes.texi b/doc/emacs/modes.texi
index 4d574242c8d..40a36bd95ed 100644
--- a/doc/emacs/modes.texi
+++ b/doc/emacs/modes.texi
@@ -96,7 +96,7 @@ the rules of the language (@pxref{Indentation}).  The keys that are
 commonly changed are @key{TAB}, @key{DEL}, and @kbd{C-j}.  Many modes
 also define special commands of their own, usually bound in the prefix
 key @kbd{C-c}.  Major modes can also alter user options and variables;
-for instance, programming language modes typicaly set a buffer-local
+for instance, programming language modes typically set a buffer-local
 value for the variable @code{comment-start}, which determines how
 source code comments are delimited (@pxref{Comments}).
 
diff --git a/doc/misc/eieio.texi b/doc/misc/eieio.texi
index d65c7a15f7b..17f064406f9 100644
--- a/doc/misc/eieio.texi
+++ b/doc/misc/eieio.texi
@@ -1893,7 +1893,7 @@ better in the Emacs environment.
 
 @enumerate
 @item
-Allow subclasing of Emacs built-in types, such as faces, markers, and
+Allow subclassing of Emacs built-in types, such as faces, markers, and
 buffers.
 @item
 Allow method overloading of method-like functions in Emacs.
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 86aaadf8ae8..76bfbc4bb52 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -1328,7 +1328,7 @@ variable to @code{nil}.
 
 @vindex gnus-auto-subscribed-categories
 As if that wasn't enough, @code{gnus-auto-subscribed-categories} also
-allows you to specify that new groups should be subcribed based on the
+allows you to specify that new groups should be subscribed based on the
 category their select methods belong to.  The default is @samp{(mail
 post-mail)}, meaning that all new groups from mail-like backends
 should be subscribed automatically.
@@ -20043,7 +20043,7 @@ matches will use the @code{Message-ID}s of these matching articles.)
 This will ensure that you can raise/lower the score of an entire thread,
 even though some articles in the thread may not have complete
 @code{References} headers.  Note that using this may lead to
-undeterministic scores of the articles in the thread.  (Using this match
+nondeterministic scores of the articles in the thread.  (Using this match
 key will lead to creation of @file{ADAPT} files.)
 @end table
 @end enumerate
diff --git a/doc/misc/semantic.texi b/doc/misc/semantic.texi
index 8c56d2dc9f8..3d74ebf042c 100644
--- a/doc/misc/semantic.texi
+++ b/doc/misc/semantic.texi
@@ -536,7 +536,7 @@ the buffer.
 
 @item bovine parser
 A parser using the bovine parser generator.  It is an LL parser
-suitible for small simple languages.
+suitable for small simple languages.
 
 @item context
 
diff --git a/etc/AUTHORS b/etc/AUTHORS
index b7929dbf453..0c86e2b199a 100644
--- a/etc/AUTHORS
+++ b/etc/AUTHORS
@@ -3429,7 +3429,7 @@ Steve Nygard: changed unexnext.c
 
 Steve Purcell: changed nnimap.el
 
-Steve Strassman: wrote spook.el
+Steve Strassmann: wrote spook.el
 
 Steve Youngs: changed mh-utils.el mh-xemacs-compat.el mh-customize.el
   mh-e.el mh-comp.el mh-mime.el dns.el gnus-art.el browse-url.el
diff --git a/etc/NEWS.21 b/etc/NEWS.21
index c018567c40d..60392b384fe 100644
--- a/etc/NEWS.21
+++ b/etc/NEWS.21
@@ -4639,7 +4639,7 @@ simpler form STRING as property value.
 *** Variable width and height spaces
 
 To display a space of fractional width or height, use a display
-specification of the form `(LOCATION STRECH)'.  If LOCATION is
+specification of the form `(LOCATION STRETCH)'.  If LOCATION is
 `(margin left-margin)', the space is displayed in the left marginal
 area, if it is `(margin right-margin)', it is displayed in the right
 marginal area, and if LOCATION is `(margin nil)' the space is
diff --git a/etc/TODO b/etc/TODO
index 2470747bfb5..c58fd6dda78 100644
--- a/etc/TODO
+++ b/etc/TODO
@@ -79,7 +79,7 @@ understand.  I find it quite hard to figure out what compilation
 command it will use.
 
 I suggest totally rewriting that part of Flymake, using the simplest
-mechanism that sufficies for the specific needs.  That will be easy
+mechanism that suffices for the specific needs.  That will be easy
 for users to customize.
 
 ** Compute the list of active keymaps *after* reading the first event.
diff --git a/etc/themes/manoj-dark-theme.el b/etc/themes/manoj-dark-theme.el
index b06678636c7..ed3e6e334d0 100644
--- a/etc/themes/manoj-dark-theme.el
+++ b/etc/themes/manoj-dark-theme.el
@@ -20,7 +20,7 @@
 
 ;;; Commentary:
 
-;; I spend a lot of time workin in front of a screen (many hours in a
+;; I spend a lot of time working in front of a screen (many hours in a
 ;; dimly lit room) and eye fatigue is an issue. This is a dark color
 ;; theme for emacs, which is easier on the eyes than light themes.
 
diff --git a/leim/quail/hebrew.el b/leim/quail/hebrew.el
index 7c7f6c6a8b5..aed9910000a 100644
--- a/leim/quail/hebrew.el
+++ b/leim/quail/hebrew.el
@@ -333,7 +333,7 @@ Additional mappings for Rafe and Yiddish ligatures.
 (quail-define-package
  "hebrew-full" "Hebrew" ",Hr$,1,T,K(B" nil "Hebrew Full method.
 
-Provides access to all Hebrew characters suiltable to Modern Hebrew.
+Provides access to all Hebrew characters suitable to Modern Hebrew.
 " nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
@@ -456,7 +456,7 @@ Provides access to all Hebrew characters suiltable to Modern Hebrew.
 "Biblical Hebrew Tiro input method.
 
 Based on Society of Biblical Literature's Tiro keyboard layout.
-Not suiltable for modern Hebrew input.
+Not suitable for modern Hebrew input.
  'q' is used to switch levels instead of Alt-Gr.
  Combining dot above (Called Masora dot) ($,1%G(B) is mapped to 'q1'.
 " nil t t t t nil nil nil nil nil t)
@@ -602,7 +602,7 @@ Not suiltable for modern Hebrew input.
 "Biblical Hebrew SIL input method.
 
 Based on Society of Biblical Literature's SIL keyboard layout.
-Phonetic and not suiltable for modern Hebrew input.
+Phonetic and not suitable for modern Hebrew input.
  '`' is used to switch levels instead of Alt-Gr.
  Euro Sign (,F$(B) is mapped to 'Z'.
 " nil t t t t nil nil nil nil nil t)
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index ba47155524f..2bc50ace840 100644
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -159,7 +159,7 @@
  nil nil nil nil nil nil nil nil
  'quail-tibetan-update-translation)
 
-;; Here we build up a Quail map for a Tibtan sequence the whole of
+;; Here we build up a Quail map for a Tibetan sequence the whole of
 ;; which can be one composition.
 ;;
 ;; A Tibetan syllable is typically structured as follows:
@@ -224,7 +224,7 @@
     ("F" . "M")                         ; anusvara
     ("g" . "u")                         ; zhabs kyu
     ("G" . "i")                         ; gi gu
-    ("H" . ",")                         ; viraama
+    ("H" . ",")                         ; virama
     ("j" . "o")                         ; naro
     ("J" . "e")                         ; 'greng bu
     ("k" . "ts")                        ; tsa
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 1ec365f3446..89737f04357 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -541,7 +541,7 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs)
           maxargs--;
 
           /* In C code, `default' is a reserved word, so we spell it
-             `defalt'; unmangle that here.  */
+             `defalt'; demangle that here.  */
           if (ident_length == 6 && strncmp (ident_start, "defalt", 6) == 0)
             fprintf (out, "DEFAULT");
           else
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index 558718a5a5f..a2d274fbcc0 100644
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -1121,10 +1121,10 @@
         * international/titdic-cnv.el (tit-process-header): Fix embedded
         coding tag.
         (titdic-convert): Bind coding-system-for-write to the coding
-        system specfied in the map file.  Remove `charset' property after
+        system specified in the map file.  Remove `charset' property after
         decoding.
         (miscdic-convert): Bind coding-system-for-write to the coding
-        system specfied for the map file.  Fix LANGUAGE arg to
+        system specified for the map file.  Fix LANGUAGE arg to
         quail-define-package.
         (batch-miscdic-convert): Check if a file is directory or not.
 
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index 6e13c1156ce..8d369f2e2f0 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -17621,7 +17621,7 @@
         (batch-update-autoloads): Handle autoload-excludes on windows-nt.
 
         * mail/rmailedit.el (rmail-cease-edit): Give an error if the end of
-        the headers cannot be located.  Simplify, subtracting superflous
+        the headers cannot be located.  Simplify, subtracting superfluous
         save-excursions.
 
 2009-10-15  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 252b3854f7a..ba90274edf0 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -13936,7 +13936,7 @@
 
         * international/mule-cmds.el (help-xref-mule-regexp-template): New
         variable.
-        (describe-input-method): Temporarily activate the specfied input
+        (describe-input-method): Temporarily activate the specified input
         method to display the information.
         (describe-language-environment): Hyperlinks to mule related items.
 
diff --git a/lisp/cedet/semantic/mru-bookmark.el b/lisp/cedet/semantic/mru-bookmark.el
index 47915e8ad58..6f2b2a8b9c8 100644
--- a/lisp/cedet/semantic/mru-bookmark.el
+++ b/lisp/cedet/semantic/mru-bookmark.el
@@ -363,7 +363,7 @@ Argument PROMPT is the prompt to use when reading."
       (setq ans (assoc ans alist))
       (if ans
           (cdr ans)
-        ;; no match.  Custom word.  Look it up somwhere?
+        ;; no match.  Custom word.  Look it up somewhere?
         nil)
       )))
 
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index e25905ead83..038719fbcff 100644
--- a/lisp/cedet/srecode/document.el
+++ b/lisp/cedet/srecode/document.el
@@ -167,7 +167,7 @@ doesn't always work correctly."
     ("str\\(ing\\)?" . "string")
     ("use?r" . "user")
     ("num\\(ber\\)?" . "number")
-    ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common sylable
+    ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common syllable
     )
   "List of common English abbreviations or full words.
 These are nouns (as opposed to verbs) for use in creating expanded
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 596b32f24c3..f5330b3b65f 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -452,7 +452,7 @@ Changes to files in this list are not listed.")
     ("William Sommerfeld" :wrote "emacsclient.c" "scribe.el")
     ;; No longer distributed: emacsserver.c.
     ("Leigh Stoller" :changed "emacsclient.c" "server.el")
-    ("Steve Strassman" :wrote "spook.el")
+    ("Steve Strassmann" :wrote "spook.el")
     ("Shinichirou Sugou" :changed "etags.c")
     ;; No longer distributed: emacsserver.c.
     ("Sun Microsystems, Inc" :changed "emacsclient.c" "server.el"
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 3848ab7e6ea..d76490f37b8 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -143,7 +143,7 @@ nil if none.
 
 The value of FLAG is used to specify the type of completion operation.
 A value of nil specifies `try-completion'.  A value of t specifies
-`all-completions'.  A value of lambda specifes a test for an exact match.
+`all-completions'.  A value of lambda specifies a test for an exact match.
 
 For more information on STRING, PREDICATE, and FLAG, see the Elisp
 Reference sections on 'Programmed Completion' and 'Basic Completion
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 6931ce75cb5..7709b59d137 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -685,7 +685,7 @@ Otherwise, it defers to REST which is a list of branches of the form
       (pcase--if `(,(if (stringp qpat) #'equal #'eq) ,sym ',qpat)
                  (pcase--u1 matches code vars then-rest)
                  (pcase--u else-rest))))
-   (t (error "Unkown QPattern %s" qpat))))
+   (t (error "Unknown QPattern %s" qpat))))
 
 
 (provide 'pcase)
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index b17fa6b1471..5e107da15fc 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -84,7 +84,7 @@
 
 ;; If you have just replaced a highlighted region with typed text,
 ;; you can repeat the replace with M-v.  This will search forward
-;; for a streach of text identical to the previous contents of the
+;; for a stretch of text identical to the previous contents of the
 ;; region (i.e. the contents of register 0) and replace it with the
 ;; text you typed to replace the original region.  Repeating M-v will
 ;; replace the next matching region and so on.
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index b6d487704f4..4c728b5de71 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -4397,7 +4397,7 @@ cursor move past the beginning of line."
 
 (defun viper-query-replace ()
   "Query replace.
-If a null string is suplied as the string to be replaced,
+If a null string is supplied as the string to be replaced,
 the query replace mode will toggle between string replace
 and regexp replace."
   (interactive)
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02
index d20b6ca35a7..85914a72ae9 100644
--- a/lisp/erc/ChangeLog.02
+++ b/lisp/erc/ChangeLog.02
@@ -51,7 +51,7 @@
 2002-12-29  Damien Elmes  <erc@repose.cx>
 
         * erc-track.el:
-        * (erc-track-get-active-buffer): remove superflous (+ arg 0)
+        * (erc-track-get-active-buffer): remove superfluous (+ arg 0)
 
 2002-12-29  Alex Schroeder  <alex@gnu.org>
 
diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04
index ff47372b8e3..97d2f01a22d 100644
--- a/lisp/erc/ChangeLog.04
+++ b/lisp/erc/ChangeLog.04
@@ -1926,7 +1926,7 @@
 
         * erc.el: erc-send-whitespace-lines: New variable.
         (erc-send-current-line): Use erc-send-whitespace-lines.  Also,
-        removed superflous test for empty line in the mapc, since the
+        removed superfluous test for empty line in the mapc, since the
         blank line test should find all.  I do like to be able to send an
         empty line when i want to!
         (erc-send-current-line): Check for point being in input line
@@ -2092,4 +2092,3 @@ See ChangeLog.03 for earlier changes.
 ;; Local Variables:
 ;; coding: utf-8
 ;; End:
-
diff --git a/lisp/fringe.el b/lisp/fringe.el
index fa5ebb6f0c6..aac7e3ba5c7 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -30,7 +30,7 @@
 
 ;; The code is influenced by scroll-bar.el and avoid.el.  The author
 ;; gratefully acknowledge comments and suggestions made by Miles
-;; Bader, Eli Zaretski, Richard Stallman, Pavel Janík and others which
+;; Bader, Eli Zaretskii, Richard Stallman, Pavel Janík and others which
 ;; improved this package.
 
 ;;; Code:
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2
index 64b15ce31b3..e47af13275e 100644
--- a/lisp/gnus/ChangeLog.2
+++ b/lisp/gnus/ChangeLog.2
@@ -970,9 +970,9 @@
         * pgg-gpg.el (pgg-gpg-possibly-cache-passphrase): New optional
         parameter key, overrides the key id used to store passphrase
         under (uses true key id from gpg output if nil).
-        (pgg-gpg-encrypt-region): Search for passphrase using user suplied
+        (pgg-gpg-encrypt-region): Search for passphrase using user supplied
         string STR, instead of (pgg-lookup-key STR t).
-        (pgg-gpg-encrypt-region): Store passphrase under user suplied
+        (pgg-gpg-encrypt-region): Store passphrase under user supplied
         string, instead of real key id taken from gpg output.
         (pgg-gpg-decrypt-region): Likewise.
         (pgg-gpg-sign-region): Likewise.
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 98f04263571..0721445b592 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -922,7 +922,7 @@ will add a new `thread' match for each article that has X in its
 `Message-ID's of these matching articles.)  This will ensure that you
 can raise/lower the score of an entire thread, even though some
 articles in the thread may not have complete `References' headers.
-Note that using this may lead to undeterministic scores of the
+Note that using this may lead to nondeterministic scores of the
 articles in the thread.
 ")
                                      ,@types)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index d8db300efbd..52c814528a5 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -4257,7 +4257,7 @@ If NO-DISPLAY, don't generate a summary buffer."
     result))
 
 (defun gnus-sort-gathered-threads (threads)
-  "Sort subtreads inside each gathered thread by `gnus-sort-gathered-threads-function'."
+  "Sort subthreads inside each gathered thread by `gnus-sort-gathered-threads-function'."
   (let ((result threads))
     (while threads
       (when (stringp (caar threads))
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5198618c2c3..01fc02cd130 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6169,7 +6169,7 @@ If the current line has `message-yank-prefix', insert it on the new line."
 When sending via news, also check that the REFERENCES are less
 than 988 characters long, and if they are not, trim them until
 they are."
-  ;; 21 is the number suggested by USEAGE.
+  ;; 21 is the number suggested by USAGE.
   (let ((maxcount 21)
         (count 0)
         (cut 2)
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index 4ad9d11f906..771e192c188 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -483,7 +483,7 @@ Other back ends might or might not work.")
                mfolder query threads)))
       ;; Check return value
       (cond
-       ((zerop rval)                    ; call was succesful
+       ((zerop rval)                    ; call was successful
         (nnmairix-call-backend
          "open-server" nnmairix-backend-server)
         ;; If we're dealing with nnml, rename files
diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index bd661083406..adb25c7e2e8 100644
--- a/lisp/language/hanja-util.el
+++ b/lisp/language/hanja-util.el
@@ -6438,7 +6438,7 @@ character.  This variable is initialized by `hanja-init-load'.")
 
 ;; List of current conversion status.
 ;; The first element is the strating position of shown list.
-;; It is a group number each splited by `hanja-list-width'.
+;; It is a group number each split by `hanja-list-width'.
 ;; The second element is the position of selected element.
 ;; The third element is a list of suitable Hanja candidate.
 (defvar hanja-conversions
diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el
index 8652e67d3e1..e2630b5102c 100644
--- a/lisp/mail/uudecode.el
+++ b/lisp/mail/uudecode.el
@@ -197,10 +197,10 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
           (cond
            (done)
            ((> 0 remain)
-            (error "uucode line ends unexpectly")
+            (error "uucode line ends unexpectedly")
             (setq done t))
            ((and (= (point) end) (not done))
-            ;;(error "uucode ends unexpectly")
+            ;;(error "uucode ends unexpectedly")
             (setq done t))
            ((= counter 3)
             (setq result (cons
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 9d0ece0f505..ffcc3488664 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -2508,7 +2508,7 @@ of citations entirely, choose \"None\"."
     "Seal-Send-Time:"
     "See-Also:"                         ; H. Spencer: News Article Format and Transmission, June 1994
     "Sensitivity:"                      ; RFC 2156, 2421
-    "Speach-Act:"                       ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+    "Speech-Act:"                       ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
     "Status:"                           ; sendmail
     "Supersedes:"                       ; H. Spencer: News Article Format and Transmission, June 1994
     "Telefax:"                          ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el
index f269faf3a51..b526df25cc7 100644
--- a/lisp/mh-e/mh-letter.el
+++ b/lisp/mh-e/mh-letter.el
@@ -909,7 +909,7 @@ Any match found replaces the text from BEGIN to END."
                (with-output-to-temp-buffer completions-buffer
                  (mh-display-completion-list
                   (all-completions word choices)
-                  ;; The `common-subtring' arg only works if it's a prefix.
+                  ;; The `common-substring' arg only works if it's a prefix.
                   (unless (and (functionp choices)
                                (let ((bounds
                                       (funcall choices
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 615062dc031..d1aba96ff16 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -62,7 +62,7 @@ typically sets point where you click the mouse).
 If value is an integer, the time elapsed between pressing and
 releasing the mouse button determines whether to follow the link
 or perform the normal Mouse-1 action (typically set point).
-The absolute numeric value specifices the maximum duration of a
+The absolute numeric value specifies the maximum duration of a
 \"short click\" in milliseconds.  A positive value means that a
 short click follows the link, and a longer click performs the
 normal action.  A negative value gives the opposite behavior.
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 224131623f4..617ec8bd80d 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -2412,7 +2412,7 @@ This is used so that they can be compared with `eq', which is needed for
     (let* (songid       ;The ID of the currently ffwd/rewinding song.
            songduration ;The duration of that song.
            songtime     ;The time of the song last time we ran.
-           oldtime      ;The timeoftheday last time we ran.
+           oldtime      ;The time of day last time we ran.
            prevsongid)  ;The song we're in the process leaving.
       (let ((fun
              (lambda ()
diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index d792077d861..ac8ec15929b 100644
--- a/lisp/net/socks.el
+++ b/lisp/net/socks.el
@@ -414,7 +414,7 @@ version.")
                ((= atype socks-address-type-name)
                 (format "%c%s" (length address) address))
                (t
-                (error "Unkown address type: %d" atype))))
+                (error "Unknown address type: %d" atype))))
         (info (gethash proc socks-connections))
         request version)
     (or info (error "socks-send-command called on non-SOCKS connection %S"
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 27dff3aa8d9..abebed6115f 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1209,7 +1209,7 @@ connection if a previous connection has died for some reason."
               (format "Opening connection for %s using %s" host method)
             (format "Opening connection for %s@%s using %s" user host method))
 
-        ;; Enable auth-sorce and password-cache.
+        ;; Enable auth-source and password-cache.
         (tramp-set-connection-property vec "first-password-request" t)
 
         ;; There will be a callback of "askPassword" when a password is
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 73b9339e25a..c062ebbbfd2 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -973,7 +973,7 @@ If VEC has no cifs capabilities, exchange \"/\" by \"\\\\\"."
       (setq
        localname
        (if (string-match "^/?[^/]+\\(/.*\\)" localname)
-           ;; There is a share, sparated by "/".
+           ;; There is a share, separated by "/".
            (if (not (tramp-smb-get-cifs-capabilities vec))
                (mapconcat
                 (lambda (x) (if (equal x ?/) "\\" (char-to-string x)))
diff --git a/lisp/org/ob-screen.el b/lisp/org/ob-screen.el
index 084beffd229..367d73f787a 100644
--- a/lisp/org/ob-screen.el
+++ b/lisp/org/ob-screen.el
@@ -38,7 +38,7 @@
 (require 'ob-ref)
 
 (defvar org-babel-screen-location "screen"
-  "The command location for screen. 
+  "The command location for screen.
 In case you want to use a different screen than one selected by your $PATH")
 
 (defvar org-babel-default-header-args:screen
@@ -112,7 +112,7 @@ In case you want to use a different screen than one selected by your $PATH")
     (with-temp-file tmpfile
       (insert body)
 
-      ;; org-babel has superflous spaces
+      ;; org-babel has superfluous spaces
       (goto-char (point-min))
       (delete-matching-lines "^ +$"))
     tmpfile))
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 76e4eae4b45..cf28a5e80ae 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2989,7 +2989,7 @@ them to individual field equations for each field."
 So @< and $< will always be replaced with @1 and $1, respectively.
 The advantage of these special markers are that structure editing of
 the table will not change them, while @1 and $1 will be modified
-when a line/row is swaped out of that privileged position.  So for
+when a line/row is swapped out of that privileged position.  So for
 formulas that use a range of rows or columns, it may often be better
 to anchor the formula with \"I\" row markers, or to offset from the
 borders of the table using the @< @> $< $> makers."
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 837213665fc..acd3aa8c2cb 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -46,7 +46,7 @@
 ;; In order to achieve total compatibility with strfile(1), cookie files
 ;; should start with two consecutive delimiters (and no comment).
 ;;
-;; This code derives from Steve Strassman's 1987 spook.el package, but
+;; This code derives from Steve Strassmann's 1987 spook.el package, but
 ;; has been generalized so that it supports multiple simultaneous
 ;; cookie databases and fortune files.  It is intended to be called
 ;; from other packages such as yow.el and spook.el.
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index f30457992a3..9c53b1a9e23 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1533,7 +1533,7 @@ the project file."
   ;;      .ali file for a spec file.  If we are, go to step 3.
   ;;   3- If the file is not found or step 2 failed:
   ;;      find the name of the "other file", ie the body, and look
-  ;;      for its associated .ali file by subtituing the extension
+  ;;      for its associated .ali file by subtituting the extension
   ;;
   ;; We must also handle the case of separate packages and subprograms:
   ;;   4- If no ali file was found, we try to modify the file name by removing
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 57ee3943bbe..2d18498d6f4 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -2594,7 +2594,7 @@ comment at the start of cc-engine.el for more info."
         mstart)               ; start of a macro.
 
     (save-excursion
-      ;; Each time round the following loop, we enter a succesively deeper
+      ;; Each time round the following loop, we enter a successively deeper
       ;; level of brace/paren nesting.  (Except sometimes we "continue at
       ;; the existing level".)  `pa+1' is a pos inside an opening
       ;; brace/paren/bracket, usually just after it.
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index f0c86265232..808d17dff54 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -369,7 +369,8 @@ Match group 1 is the name of the macro.")
 ;; must be h-end.
 ;;
 ;; js--pitem instances are never modified (with the exception
-;; of the b-end field). Instead, modified copies are added at subseqnce parse points.
+;; of the b-end field). Instead, modified copies are added at
+;; subsequence parse points.
 ;; (The exception for b-end and its caveats is described below.)
 ;;
 
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index d0a34179cc8..53ae22b9908 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -384,7 +384,7 @@ Each entry is a list with the following elements:
 1. Regexp matching the preceding text.
 2. A number indicating the subgroup in the regexp containing the text.
 3. A function returning an alist of possible completions.
-4. Text to append after a succesful completion (if any).
+4. Text to append after a successful completion (if any).
 
 Or alternatively:
 1. Regexp matching the preceding text.
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 52e7b6e2429..f68398c6459 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -1423,7 +1423,7 @@ If set will become buffer local.")
       ["AUTOSENSE"                      (describe-function 'verilog-auto-sense)
        :help            "Help on AUTOSENSE - sensitivity lists for always blocks"]
       ["AUTOTIEOFF"                     (describe-function 'verilog-auto-tieoff)
-       :help            "Help on AUTOTIEOFF - tieing off unused outputs"]
+       :help            "Help on AUTOTIEOFF - tying off unused outputs"]
       ["AUTOUNUSED"                     (describe-function 'verilog-auto-unused)
        :help            "Help on AUTOUNUSED - terminating unused inputs"]
       ["AUTOWIRE"                       (describe-function 'verilog-auto-wire)
@@ -1667,7 +1667,7 @@ This speeds up complicated regexp matches."
   ;; Similar to `delete-trailing-whitespace' but that's not present in XEmacs
   (save-excursion
     (goto-char (point-min))
-    (while (re-search-forward "[ \t]+$" nil t)  ;; Not syntatic WS as no formfeed
+    (while (re-search-forward "[ \t]+$" nil t)  ;; Not syntactic WS as no formfeed
       (replace-match "" nil nil))))
 
 (defvar compile-command)
@@ -11725,7 +11725,7 @@ this is a recent change.  To control this behavior, see
 `verilog-auto-reset-widths'.
 
 AUTORESET ties signals to deasserted, which is presumed to be zero.
-Signals that match `verilog-active-low-regexp' will be deasserted by tieing
+Signals that match `verilog-active-low-regexp' will be deasserted by tying
 them to a one.
 
 An example:
@@ -11816,7 +11816,7 @@ finds all outputs in the module, and if that input is not otherwise declared
 as a register or wire, creates a tieoff.
 
 AUTORESET ties signals to deasserted, which is presumed to be zero.
-Signals that match `verilog-active-low-regexp' will be deasserted by tieing
+Signals that match `verilog-active-low-regexp' will be deasserted by tying
 them to a one.
 
 You can add signals you do not want included in AUTOTIEOFF with
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index db5b57f8585..acf341e8879 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1141,7 +1141,7 @@ It checks if all multi-byte characters in the region are printable or not."
                            (aref ps-mule-font-spec-tables font-type) 0)))
     (ps-output-prologue
      (list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
-               ;; We ignore a font specfied in ps-font-info-database.
+               ;; We ignore a font specified in ps-font-info-database.
                (format "/V%s VTOP%d def\n" fonttag font-type)
              (format "/V%s [ VTOP%d aload pop ] def\n
 V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
diff --git a/lisp/select.el b/lisp/select.el
index 10c8f0b1efd..521d119792f 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -106,7 +106,7 @@ in `selection-converter-alist', which see."
                              ((eq data-type 'STRING)
                               'iso-8859-1)
                              (t
-                              (error "Unknow selection data type: %S" type))))
+                              (error "Unknown selection data type: %S" type))))
             data (if coding (decode-coding-string data coding)
                    (string-to-multibyte data)))
       (setq next-selection-coding-system nil)
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 69d68a76d4b..df5f41eb925 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -41,7 +41,7 @@
 ;;
 ;; Important note: We do NOT recommend use of these commands to update
 ;; the `Next', `Previous' and `Up' pointers on @node lines.  Most
-;; manuals, including those whose Texinfo files adhere to the strucure
+;; manuals, including those whose Texinfo files adhere to the structure
 ;; described below, don't need these pointers, because makeinfo will
 ;; generate them automatically (see the node "makeinfo Pointer
 ;; Creation" in the Texinfo manual).  By contrast, due to known bugs
diff --git a/lisp/url/url-methods.el b/lisp/url/url-methods.el
index 3b86ed45565..2f184dfca19 100644
--- a/lisp/url/url-methods.el
+++ b/lisp/url/url-methods.el
@@ -62,7 +62,7 @@
 
 (defun url-scheme-default-loader (url &optional callback cbargs)
   "Signal an error for an unknown URL scheme."
-  (error "Unkown URL scheme: %s" (url-type url)))
+  (error "Unknown URL scheme: %s" (url-type url)))
 
 (defvar url-scheme--registering-proxy nil)
 
diff --git a/lisp/vc/pcvs-parse.el b/lisp/vc/pcvs-parse.el
index 43292ed14e4..6d2724a1172 100644
--- a/lisp/vc/pcvs-parse.el
+++ b/lisp/vc/pcvs-parse.el
@@ -423,7 +423,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
         (cvs-match "restoring \\(.*\\) from backup file .*$" (path 1))))
       t)
 
-     ;; Is it a succesful merge?
+     ;; Is it a successful merge?
      ;; Figure out result of merging (ie, was there a conflict?)
      (let ((qfile (regexp-quote path)))
        (cvs-or
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 07eccaff4fb..c576cc0a4a6 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1687,7 +1687,7 @@ The value of the :type attribute should be an unconverted widget type."
   (eval-minibuffer prompt))
 
 (defun widget-docstring (widget)
-  "Return the documentation string specificied by WIDGET, or nil if none.
+  "Return the documentation string specified by WIDGET, or nil if none.
 If WIDGET has a `:doc' property, that specifies the documentation string.
 Otherwise, try the `:documentation-property' property.  If this
 is a function, call it with the widget's value as an argument; if
diff --git a/lisp/window.el b/lisp/window.el
index 0014d85a816..fffeb5f5e4e 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -4814,7 +4814,7 @@ return the window used; otherwise return nil."
   "Display BUFFER by popping up a new window.
 The new window is created on the selected frame, or in
 `last-nonminibuffer-frame' if no windows can be created there.
-If sucessful, return the new window; otherwise return nil."
+If successful, return the new window; otherwise return nil."
   (let ((frame (or (window--frame-usable-p (selected-frame))
                    (window--frame-usable-p (last-nonminibuffer-frame))))
         window)
diff --git a/src/coding.h b/src/coding.h
index b694e6c6b6e..ff2a69027e0 100644
--- a/src/coding.h
+++ b/src/coding.h
@@ -485,7 +485,7 @@ struct coding_system
      element.  The following elements are OFFSET, ANNOTATION-TYPE, and
      a sequence of actual data for the annotation.  OFFSET is a
      character position offset from dst_pos or src_pos,
-     ANNOTATION-TYPE specfies the meaning of the annotation and how to
+     ANNOTATION-TYPE specifies the meaning of the annotation and how to
      handle the following data..  */
   int *charbuf;
   int charbuf_size, charbuf_used;
diff --git a/src/gtkutil.c b/src/gtkutil.c
index bc71685819e..a52bd26235f 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -3052,7 +3052,7 @@ xg_update_submenu (GtkWidget *submenu,
       }
   }
 
-  /* Remove widgets from first structual change.  */
+  /* Remove widgets from first structural change.  */
   if (iter)
     {
       /* If we are adding new menu items below, we must remove from
diff --git a/src/nsfns.m b/src/nsfns.m
index e41b77e242a..ecefd716eb1 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -1286,7 +1286,7 @@ This function is an internal primitive--use `make-frame' instead.  */)
                       "foreground", "Foreground", RES_TYPE_STRING);
   x_default_parameter (f, parms, Qbackground_color, build_string ("White"),
                       "background", "Background", RES_TYPE_STRING);
-  /* FIXME: not suppported yet in Nextstep */
+  /* FIXME: not supported yet in Nextstep */
   x_default_parameter (f, parms, Qline_spacing, Qnil,
                        "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
   x_default_parameter (f, parms, Qleft_fringe, Qnil,
diff --git a/src/term.c b/src/term.c
index ae505f020f2..86b928ad9e3 100644
--- a/src/term.c
+++ b/src/term.c
@@ -1809,7 +1809,7 @@ append_glyphless_glyph (struct it *it, int face_id, const char *str)
    glyphless_display_method in dispextern.h for the details.
 
    FOR_NO_FONT is nonzero if and only if this is for a character that
-   is not supproted by the coding system of the terminal.  ACRONYM, if
+   is not supported by the coding system of the terminal.  ACRONYM, if
    non-nil, is an acronym string for the character.
 
    The glyphs actually produced are of type CHAR_GLYPH.  */
diff --git a/src/textprop.c b/src/textprop.c
index a1c7593f568..8c63a58cf83 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -2227,7 +2227,7 @@ This also inhibits the use of the `intangible' text property.  */);
 
   DEFVAR_LISP ("text-property-default-nonsticky",
                Vtext_property_default_nonsticky,
-               doc: /* Alist of properties vs the corresponding non-stickinesses.
+               doc: /* Alist of properties vs the corresponding non-stickiness.
 Each element has the form (PROPERTY . NONSTICKINESS).
 
 If a character in a buffer has PROPERTY, new text inserted adjacent to
diff --git a/src/xdisp.c b/src/xdisp.c
index 0ddf9555bc0..39b6813e774 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -4339,7 +4339,7 @@ handle_display_spec (struct it *it, Lisp_Object spec, Lisp_Object object,
   int rv;
 
   if (CONSP (spec)
-      /* Simple specerties.  */
+      /* Simple specifications.  */
       && !EQ (XCAR (spec), Qimage)
       && !EQ (XCAR (spec), Qspace)
       && !EQ (XCAR (spec), Qwhen)
diff --git a/test/cedet/tests/testvarnames.c b/test/cedet/tests/testvarnames.c
index 51d8285730f..20d8133e8a0 100644
--- a/test/cedet/tests/testvarnames.c
+++ b/test/cedet/tests/testvarnames.c
@@ -31,7 +31,7 @@ struct independent var_indep_struct;
 struct {
   int unnamed_1;
   int unnamed_2;
-} var_unamed_struct;
+} var_unnamed_struct;
 
 struct {
   int unnamed_3;
@@ -59,12 +59,12 @@ struct inline2struct in_var2;
 int test_1(int var_arg1) {
 
   var_// -1-
-    ; // #1# ("var_arg1" "var_indep_struct" "var_n_2" "var_n_3" "var_named_struct" "var_un_2" "var_un_3" "var_unamed_struct")
+    ; // #1# ("var_arg1" "var_indep_struct" "var_n_2" "var_n_3" "var_named_struct" "var_un_2" "var_un_3" "var_unnamed_struct")
 
   var_indep_struct.// -2-
     ; // #2# ( "indep_1" "indep_2" )
 
-  var_unamed_struct.// -3-
+  var_unnamed_struct.// -3-
     ; // #3# ( "unnamed_1" "unnamed_2" )
 
   var_named_struct.// -4-
@@ -88,4 +88,3 @@ int test_1(int var_arg1) {
   in_var2.// -11-
     ; // #11# ( "named_3" "named_4")
 }
-