Spelling fixes.

84 files changed, 193 insertions, 195 deletions

diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 244d95d6937..7d1a1186c0a 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -1401,7 +1401,7 @@ This is a harmless activity; and indeed, we will often try to generate
 error messages intentionally.  Once you understand the jargon, error
 messages can be informative.  Instead of being called ``error''
 messages, they should be called ``help'' messages.  They are like
-signposts to a traveller in a strange country; deciphering them can be
+signposts to a traveler in a strange country; deciphering them can be
 hard, but once understood, they can point the way.
 
 The error message is generated by a built-in GNU Emacs debugger.  We
diff --git a/doc/lispref/spellfile b/doc/lispref/spellfile
index 5c0a6d0f5ea..1f4a6905505 100644
--- a/doc/lispref/spellfile
+++ b/doc/lispref/spellfile
@@ -660,7 +660,7 @@ the'
 tildes
 time's
 to'
-towars
+towards
 transportable
 txt
 types'
@@ -674,7 +674,6 @@ undefine
 undefines
 underfull
 undo's
-undodata
 unevaluated'
 unexec
 unexpand
diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt
index 53a9f58cd01..6eb11a92f47 100644
--- a/doc/lispref/two-volume-cross-refs.txt
+++ b/doc/lispref/two-volume-cross-refs.txt
@@ -34,7 +34,7 @@ where each volume starts with a higher page number since I find it
 harder to go to the right place in the volume.)
 
 References to the same volume are just the page number; references to
-the other volume are a volumne number (in Roman numerals) preceding
+the other volume are a volume number (in Roman numerals) preceding
 the page number.
 
 For example, in Volume I:
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi
index 290b120ea80..b84212afa74 100644
--- a/doc/misc/calc.texi
+++ b/doc/misc/calc.texi
@@ -34631,7 +34631,7 @@ the derivative is evaluated at the value of @var{var}; otherwise, the
 derivative is left in terms of @var{var}.  If the expression contains
 functions for which no derivative formula is known, new derivative
 functions are invented by adding primes to the names; @pxref{Calculus}.
-However, if @var{symb} is non-@code{nil}, the presence of undifferentiable
+However, if @var{symb} is non-@code{nil}, the presence of nondifferentiable
 functions in @var{expr} instead cancels the whole differentiation, and
 @code{deriv} returns @code{nil} instead.
 
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index f8d757c2d87..cc566086f44 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -268,7 +268,7 @@ projects.
 
 Some project modes do not have a project file, but directly read a
 Makefile or other existing file.  Instead of directly editing the
-object, you can edit the file by typine @kbd{C-c . e}
+object, you can edit the file by typing @kbd{C-c . e}
 (@code{ede-edit-file-target}).  You should ``rescan'' the project
 afterwards (@pxref{Miscellaneous commands}).
 
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index f099dfd36d0..f048e6f9742 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -22047,7 +22047,7 @@ an example server definition:
 (nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil))
 @end lisp
 
-(The @code{nnmaildir} back end also has a server variabe
+(The @code{nnmaildir} back end also has a server variable
 @code{get-new-mail}, but its default value is @code{nil}, so you don't
 have to explicitly set it if you use a @code{nnmaildir} server just for
 mairix.)
diff --git a/doc/misc/pcl-cvs.texi b/doc/misc/pcl-cvs.texi
index f12942da2d3..d4f82b6b3a7 100644
--- a/doc/misc/pcl-cvs.texi
+++ b/doc/misc/pcl-cvs.texi
@@ -70,7 +70,7 @@ customize-group RET pcl-cvs @key{RET}} and to look at the documentation strings
 of the various commands and major modes for further information.
 @c This manual is updated to release 2.5 of PCL-CVS.
 
-@insertcopying 
+@insertcopying
 
 @end ifnottex
 
@@ -1275,7 +1275,7 @@ will be called as @samp{cvs -d @var{cvs-cvsroot}@dots{}}.  This can be
 useful if your site has several repositories.
 
 @item log-edit-require-final-newline
-@c wordy to avoid unhderfull hbox
+@c wordy to avoid underfull hbox
 When you enter a log message by typing into the
 @samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically
 inserts a trailing newline, unless there already is one.  This behavior
diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi
index 28d1cdb6eb8..e1631bcacc8 100644
--- a/doc/misc/sem-user.texi
+++ b/doc/misc/sem-user.texi
@@ -547,7 +547,7 @@ reparsed regardless of their size.
 @end deffn
 
 @deffn Option semantic-idle-scheduler-no-working-message
-If non-@code{nil}, disable display of working messages whie reparsing.
+If non-@code{nil}, disable display of working messages while reparsing.
 @end deffn
 
 @deffn Option semantic-idle-scheduler-working-in-modeline-flag
diff --git a/etc/NEWS.1-17 b/etc/NEWS.1-17
index dc9922ed989..8db283b5374 100644
--- a/etc/NEWS.1-17
+++ b/etc/NEWS.1-17
@@ -1630,7 +1630,7 @@ Changes in Emacs 1.12
  read-char now returns a value in the range 128-255 if
  a Meta character is typed.  When interpreted as command
  input, a Meta character is equivalent to a two character
- sequence, the meta prefix character followed by the un-metized
+ sequence, the meta prefix character followed by the unmetized
  character (Meta-G unmetized is G).
 
  The meta prefix character
diff --git a/etc/NEWS.22 b/etc/NEWS.22
index 5e95e40b04c..b96cdba98d3 100644
--- a/etc/NEWS.22
+++ b/etc/NEWS.22
@@ -163,7 +163,7 @@ delimiters will appear to be fontified (in the new face
 customize `font-lock-comment-face'. Another alternative is to use a
 newer terminal emulator that supports more colors (256 is now common).
 For example, for xterm compatible emulators that support 256 colors,
-you can run emacs like this: 
+you can run emacs like this:
 env TERM=xterm-256color emacs -nw
 (This was new in Emacs 22.1, but was not described.  In Emacs 22.1
 this also happened for terminals with a light background, that is not
@@ -280,13 +280,13 @@ the files mac/README and mac/INSTALL for build instructions.
 ** Support for FreeBSD/Alpha has been added.
 
 ** New translations of the Emacs Tutorial are available in the
-following languages: Brasilian Portuguese, Bulgarian, Chinese (both
+following languages: Brazilian Portuguese, Bulgarian, Chinese (both
 with simplified and traditional characters), French, Russian, and
 Italian.  Type `C-u C-h t' to choose one of them in case your language
 setup doesn't automatically select the right one.
 
 ** New translations of the Emacs reference card are available in the
-Brasilian Portuguese and Russian.  The corresponding PostScript files
+Brazilian Portuguese and Russian.  The corresponding PostScript files
 are also included.
 
 ** A French translation of the `Emacs Survival Guide' is available.
diff --git a/etc/refcards/gnus-refcard.tex b/etc/refcards/gnus-refcard.tex
index b164a28842e..9f13974584d 100644
--- a/etc/refcards/gnus-refcard.tex
+++ b/etc/refcards/gnus-refcard.tex
@@ -13,7 +13,7 @@
 %
 %   latex gnus-refcard.tex &&
 %   dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps
-%   
+%
 %   latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' &&
 %   mv gnus-refcard.dvi gnus-booklet.dvi &&
 %   dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps
@@ -35,16 +35,16 @@
 
 \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   % Reference Card
-  
+
   \def\Guide{Card}\def\guide{card}
   \def\logoscale{0.25}
-  
+
   % Page setup for the refcard:
-  
+
   % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in}
   % \setlength{\topmargin}{-1.0in}
   % % the same settings work for A4, although there is a bit of space at the
-  % % top and bottom of the page. 
+  % % top and bottom of the page.
   % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in}
 
   \ifthenelse{\isundefined{\letterpapertrue}}{
@@ -52,19 +52,19 @@
   }{
     \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm}
   }
-  
+
 }{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   % Reference Booklet
-  
+
   \def\Guide{Booklet}\def\guide{booklet}
   \def\logoscale{0.5}% FIXME: too large for 2up printing?  --rsteib
-  
+
   \ifthenelse{\isundefined{\letterpapertrue}}{
     \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm}
   }{
     \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm}
   }
-  
+
   \def\sec{\section}
   \def\subsec{\subsection}
   \def\subsubsec{\subsubsection}
@@ -73,7 +73,7 @@
   \par\vspace*{\fill}\pagebreak}
 }%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
-% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %  
+% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
 %% include file for the Gnus refcard and booklet
 
 \def\progver{5.11} % program version
@@ -218,7 +218,7 @@
       \hline
       \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.}
         All these marks appear in the first column of the summary line, and so
-        are mutually exclusive.}\\ 
+        are mutually exclusive.}\\
       \hline
       ` ' & (M-u, M SPC, M c) Not read.\\
       !   & (!, M !, M t) Ticked (interesting).\\
@@ -284,7 +284,7 @@
               [Prefix: use group under point to find posting-style].\\
     b       & Find {\bf bogus} groups and delete them.\\
     c       & Mark all unticked articles in group as read ({\bf catch-up}).
-    [p/p]\\ 
+    [p/p]\\
     g       & Check the server for new articles ({\bf get}). [level]\\
     M-g     & Check the server for new articles in this group ({\bf get}). [p/p]\\
     j       & {\bf Jump} to a group.\\
@@ -292,14 +292,14 @@
               [Prefix: use group under point to find posting-style].\\
     n       & Go to the {\bf next} group with unread articles. [distance]\\
     M-n     & Go to the {\bf next} group on the same or lower level.
-    [distance]\\ 
+    [distance]\\
     p       & (DEL) Go to the {\bf previous} group with unread articles.
-    [distance]\\ 
-    M-p     & Go to the {\bf previous} group on the same or lower level. [distance]\\ 
+    [distance]\\
+    M-p     & Go to the {\bf previous} group on the same or lower level. [distance]\\
     q       & {\bf Quit} Gnus.\\
     r       & Re-read the init file ({\bf reset}).\\
     s       & {\bf Save} `.newsrc.eld' file (and `.newsrc' if
-    `gnus-save-newsrc-file').\\ 
+    `gnus-save-newsrc-file').\\
     z       & Suspend (kill all buffers of) Gnus.\\
     B       & {\bf Browse} a foreign server.\\
     C       & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\
@@ -312,7 +312,7 @@
     M-c     & Clear data from group (marks and list of read articles). \\
     C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level
     (depending on `gnus-group-sort-function').\\
-    C-c C-x & Run all expirable articles in group through the {\bf expiry} 
+    C-c C-x & Run all expirable articles in group through the {\bf expiry}
     process.\\
     C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\
     C-c M-g & Activate all {\bf groups}.\\
@@ -324,7 +324,7 @@
     ange-ftp). [Prefix: query for group]\\
     H v     & (V) Display the Gnus {\bf version} number.\\
     H d     & (C-c C-d) Show the {\bf description} of this group
-    [Prefix: re-read from server].\\ 
+    [Prefix: re-read from server].\\
     M-d     & {\bf Describe} all groups. [Prefix: re-read from server]\\
     D g     & Regenerate a Sieve script from group parameters.\\
     D u     & Regenerate Sieve script and {\bf upload} to server.\\
@@ -334,17 +334,17 @@
 \newcommand{\ListGroups}{%
   {\esamepage
     \begin{keys}{A M}
-      A d     & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ 
+      A d     & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\
       A k     & (C-c C-l) List all {\bf killed} groups.
       [Prefix: look at active-file from server]\\
       A l     & List all groups on a specific level.
       [Prefix: also list groups with no unread articles]\\
       A a     & (C-c C-a) List all groups whose names match a regexp
-      ({\bf apropos}).\\ 
+      ({\bf apropos}).\\
       A A     & List the server's active-file.\\
       A M     & List groups that {\bf match} a regexp.\\
-      A m     & List groups that {\bf match} a regexp and have unread articles. 
-      [level]\\ 
+      A m     & List groups that {\bf match} a regexp and have unread articles.
+      [level]\\
       A s     & (l) List all {\bf subscribed} groups with unread articles.
       [level; 5 and lower is the default]\\
       A u     & (L) List all groups (including read and {\bf unsubscribed}).
@@ -354,7 +354,7 @@
       A ?     & List all groups with dormant articles. [level]\\
     \end{keys}
   }
-  
+
   \newcommand{\CreateEditGroups}{%
     {\esamepage
       The select methods are indicated in parentheses.\\*
@@ -404,8 +404,8 @@
       M m     & (\#) Set the process {\bf mark} on this group. [scope]\\
       M r     & Mark all groups matching regular expression.\\
       M u     & (M-\#) Remove process mark from this group ({\bf unmark}).
-      [scope]\\ 
-      M U     & Remove the process mark from all groups (\textbf{umark all}).\\
+      [scope]\\
+      M U     & Remove the process mark from all groups (\textbf{unmark all}).\\
       M w     & Mark all groups in the current region. [prefix: unmark]\\
       M b     & Mark all groups in the {\bf buffer}. [prefix: unmark]\\
     \end{keys}}
@@ -427,7 +427,7 @@
         T DEL   & Delete an empty topic.\\
         T \#    & Mark all groups in the current topic with the process-mark.\\
         T M-\#  & Remove the process-mark from all groups in the current topic.\\
-        T TAB   & (TAB) Indent current topic [Prefix: unindent].\\ 
+        T TAB   & (TAB) Indent current topic [Prefix: unindent].\\
         M-TAB   & Unindent the current topic.\\
         RET     & (SPC) Either unfold topic or enter group [level].\\
         T s     & {\bf Show} the current topic. [Prefix: show permanently]\\
@@ -478,7 +478,7 @@
     {\esamepage
       \begin{keys}{M-RET}
         SPC     & (A SPC, A n) Select an article, scroll it one page, move to the
-        next one.\\ 
+        next one.\\
         DEL     & (A DEL, A p, b) Scroll this article one page back. [distance]\\
         RET     & (A RET) Scroll this article one line forward. [distance]\\
         M-RET   & (A M-RET) Scroll this article one line backward. [distance]\\
@@ -490,9 +490,9 @@
         M-\&    & Execute a command on all articles having the process mark.\\
                                 %
         M-n     & (G M-n) Go to {\bf next} summary line of unread article.
-        [distance]\\ 
-        M-p     & (G M-p) Go to {\bf previous} summary line of an unread article. 
-        [distance]\\ 
+        [distance]\\
+        M-p     & (G M-p) Go to {\bf previous} summary line of an unread article.
+        [distance]\\
         M-s     & {\bf Search} through all subsequent articles for a regexp.\\
         M-r     & Search through all previous articles for a regexp.\\
                                 %
@@ -519,7 +519,7 @@
         M-C-d   & Like C-d, but open several documents in nndoc-groups, wrapped
         in an nnvirtual group [p/p]\\
                                 %
-        A g     & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ 
+        A g     & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\
         A r     & (\^{}, A \^{}) Fetch the parent(s) of this article.
         [Prefix: if positive fetch \textit{n} ancestors;
         negative: fetch only the \textit{n}th ancestor]\\
@@ -541,7 +541,7 @@
       prefix selects which part to operate on. If the point is placed over a
       MIME button in the article buffer, use the corresponding bindings for the
       article buffer instead.
-      
+
       \begin{keys}{W M w}
         K v      & (b, W M b) {\bf View} the MIME-part.\\
         K o      & {\bf Save} the MIME part.\\
@@ -597,7 +597,7 @@
         B t     & {\bf Trace} the fancy splitting patterns applied to this article.\\
         B w     & (e) Edit this article.\\
         B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group
-        (!). [p/p]\\ 
+        (!). [p/p]\\
         K E     & {\bf Encrypt} article body. [p/p]\\
       \end{keys}
       }
@@ -665,7 +665,7 @@
         W 6     & Translate a base64 article.\\
         W a     & Strip certain {\bf headers} from body.\\
         W b     & Make Message-IDs and URLs in the article mouse-clickable
-        {\bf buttons}.\\  
+        {\bf buttons}.\\
         W c     & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\
         W d     & Treat {\bf dumbquotes}.\\
         W e     & Treat {\bf emphasized} text.\\
@@ -698,7 +698,7 @@
       }
     }
 
-  \newcommand{\BlankAndWhitespace}{% 
+  \newcommand{\BlankAndWhitespace}{%
     {\esamepage
       \begin{keys}{W E w}
         W E l   & Strip blank {\bf lines} from the beginning of the article.\\
@@ -715,7 +715,7 @@
       }
     }
 
-  \newcommand{\Picons}{% 
+  \newcommand{\Picons}{%
     {\esamepage
       \begin{keys}{W D D}
         W D s   & (W g) Display {\bf smilies}.\\
@@ -729,7 +729,7 @@
       }
     }
 
-  \newcommand{\TimeAndDate}{% 
+  \newcommand{\TimeAndDate}{%
     {\esamepage
       \begin{keys}{W T u}
         W T u   & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\
@@ -739,7 +739,7 @@
         W T e   & Display the time {\bf elapsed} since it was sent.\\
         W T o   & Display the {\bf original} timestamp.\\
         W T p   & Display the date in format that's {\bf
-          pronounceable} in English.\\        
+          pronounceable} in English.\\
       \end{keys}
       }
     }
@@ -793,26 +793,26 @@
     {\esamepage
       \begin{keys}{M M-C-r}
         d       & (M d, M r) Mark this article as read and move to the next one.
-        [scope]\\ 
+        [scope]\\
         D       & Mark this article as read and move to previous one. [scope]\\
         !       & (u, M !, M t) Tick this article (mark it as interesting) and move
         to the next one. [scope]\\
-        U       & Tick this article and move to the previous one. [scope]\\ 
+        U       & Tick this article and move to the previous one. [scope]\\
         M ?     & (?) Mark this article as dormant (only followups are
-        interesting). [scope]\\ 
+        interesting). [scope]\\
         M D     & Show all {\bf dormant} articles (normally they are hidden unless they
         have any followups).\\
         M M-D   & Hide all {\bf dormant} articles.\\
         C-w     & Mark all articles between point and mark as read.\\
         M-u     & (M SPC, M c) Clear all marks from this article and move to the next
-        one. [scope]\\ 
+        one. [scope]\\
         M-U     & Clear all marks from this article and move to the previous one.
         [scope]\\
                                 %
         M e     & (E, M x) Mark this article as {\bf expirable}. [scope]\\
                                 %
         M k     & (k) {\bf Kill} all articles with same subject, select
-        next unread one.\\ 
+        next unread one.\\
         M K     & (C-k) {\bf Kill} all articles with the same subject as this one.\\
                                 %
         M C     & {\bf Catch-up} the articles that are not ticked and not dormant.\\
@@ -842,7 +842,7 @@
   }
 
 \newcommand{\ProcessMark}{%
-  {\esamepage 
+  {\esamepage
     These commands set and remove the process mark (\#). You only need to use
     it if the set of articles you want to operate on is non-contiguous. Else
     use a numeric prefix.\\*
@@ -929,7 +929,7 @@
                                 %After
                                 %editing the article, send it by pressing C-c C-c.  If you are in a
                                 %foreign group and want to post the article using the foreign server, give
-                                %a prefix to C-c C-c.\\* 
+                                %a prefix to C-c C-c.\\*
     \begin{keys}{S O m}
       S p     & (a) {\bf Post} an article to this group.\\
       S f     & (f) Post a {\bf followup} to this article.\\
@@ -965,7 +965,7 @@
                                 %
       S O m   & Digest these series and forward by {\bf mail}. [p/p]\\
       S O p   & Digest these series and forward as a {\bf post} to a newsgroup.
-      [p/p]\\ 
+      [p/p]\\
                                 %
       S u     & {\bf Uuencode} a file and post it as a series.\\
     \end{keys}
@@ -1036,8 +1036,8 @@
     \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate.
 
     If you type the second letter in uppercase, the remaining two are assumed
-    to be s)ubstring and t)emporary. 
-    If you type the third letter in uppercase, the last one is assumed to be 
+    to be s)ubstring and t)emporary.
+    If you type the third letter in uppercase, the last one is assumed to be
     t)emporary.
 
     \quad Extra keys for manual editing of a score file:\\*
@@ -1057,7 +1057,7 @@
     archives, they are expanded and gathered in a new group.\\*
     \begin{keys}{X p}
       X b     & Un-{\bf binhex} these series. [p/p]\\
-      X o     & Simply {\bf output} these series (no decoding). [p/p]\\ 
+      X o     & Simply {\bf output} these series (no decoding). [p/p]\\
       X p     & Unpack these {\bf postscript} series. [p/p]\\
       X s     & Un-{\bf shar} these series. [p/p]\\
       X u     & {\bf Uudecode} these series. [p/p]\\
@@ -1259,7 +1259,7 @@
     }
   }
 
-% end   {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %  
+% end   {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
 
 
 % o some things might not be updated: scoring and server modes, maybe more
@@ -1333,7 +1333,7 @@
     \SortSummary
     \subsection*{Score (Value) Commands}
     \Scoring
-    
+
 \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   \subsection*{Output Articles}
   \OutputArticles
@@ -1343,7 +1343,7 @@
 
     \subsection*{MIME operations from the Summary-Buffer}
     \MIMESummary
-    
+
 \ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   \subsection*{Extract Series (Uudecode etc)}
   \ExtractSeries
@@ -1354,7 +1354,7 @@
 %
     \subsection*{Post, Followup, Reply, Forward, Cancel}
     \PostReplyetc
-    
+
 \ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard
 
       \subsection*{Message Composition}
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el
index 86919128011..947f54c76fa 100644
--- a/leim/quail/py-punct.el
+++ b/leim/quail/py-punct.el
@@ -8,7 +8,7 @@
 
 ;; Author: Ken'ichi HANDA <handa@etl.go.jp>
 
-;; Keywords: multilingual, input method, Chienese
+;; Keywords: multilingual, input method, Chinese
 
 ;; This file is part of GNU Emacs.
 
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el
index cc1f4f535e6..37c12659cc3 100644
--- a/leim/quail/pypunct-b5.el
+++ b/leim/quail/pypunct-b5.el
@@ -7,7 +7,7 @@
 
 ;; Author: Ken'ichi HANDA <handa@etl.go.jp>
 
-;; Keywords: multilingual, input method, Chienese
+;; Keywords: multilingual, input method, Chinese
 
 ;; This file is part of GNU Emacs.
 
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index 04133f17364..e9bd06afae8 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -2818,7 +2818,7 @@
 
         * tool-bar.el (tool-bar-setup): Remove :enable conditions, which
         are handled by the menu-bar entries.  As before, don't use
-        :visibile to avoid changing the tool-bar.
+        :visible to avoid changing the tool-bar.
 
 2010-12-27  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6
index 42c9df84876..fb6090b3583 100644
--- a/lisp/ChangeLog.6
+++ b/lisp/ChangeLog.6
@@ -5716,7 +5716,7 @@
         (vip-read-string-with-history, vip-search): Won't pause inside
         macros any more.
         * viper-mous.el (vip-surrounding-word): Modified to understand
-        tripple clicks.
+        triple clicks.
         * viper-util.el (vip-leave-region-active): New function.
         * viper-ex.el (ex-write): Uses better defaults.
         * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and
@@ -6689,7 +6689,7 @@
         Harnessed view-minor-mode.
         Added (vip-leave-region-active) to all simple movement commands.
         * viper-mous.el (vip-surrounding-word): Modified to understand
-        tripple clicks.
+        triple clicks.
         * viper-util.el (vip-leave-region-active): New function.
 
 1995-08-19  Richard Stallman  <rms@mole.gnu.ai.mit.edu>
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index cb606cd0847..a59f1abb2a2 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -1230,7 +1230,7 @@
         indicator regex, Fix line positioning.
         (speedbar-add-indicator): Handles obj indicators now.
         (speedbar-check-objects, speedbar-check-obj-this-line): New functions.
-        (speedbar-double-click): Fix tripple click error.
+        (speedbar-double-click): Fix triple click error.
         (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex.
         (speedbar-line-path): Only try to get a file when in "files" display.
         (speedbar-line-depth): Handle indicator regex.
@@ -2018,7 +2018,7 @@
 1998-06-19  Karl Heuer  <kwzh@gnu.org>
 
         * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix.
-        (checkdoc-continue, checkdoc-tripple-semi-comment-check-flag): Ditto.
+        (checkdoc-continue, checkdoc-triple-semi-comment-check-flag): Ditto.
         (checkdoc-common-verbs-wrong-voice): Use dotted pairs.
 
 1998-06-19  Richard Stallman  <rms@gnu.org>
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 538f3f1d401..7419ccc1241 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -8319,7 +8319,7 @@
         * frame.el (show-cursor-in-non-selected-windows): Doc fix.
 
         * hi-lock.el (hi-lock-refontify): Don't call non-existent
-        jit-lock-fontify-buffer; it should anyway be unneccessary to
+        jit-lock-fontify-buffer; it should anyway be unnecessary to
         do anything special when jit-lock is active.
         (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs.
 
diff --git a/lisp/allout.el b/lisp/allout.el
index e701d9685a1..e699c85c7b8 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -3100,7 +3100,7 @@ Return the start point of the new topic if successful, nil otherwise.
 
 Costs more than regular `allout-next-sibling' for short traversals:
 
- - we have to check the prior (next, if travelling backwards)
+ - we have to check the prior (next, if traveling backwards)
    item to confirm connectivity with the prior topic, and
  - if confirmed, we have to reestablish the allout-recent-* settings with
    some extra navigation
diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el
index 37e6f66c1b1..bd162866c31 100644
--- a/lisp/calc/calc-nlfit.el
+++ b/lisp/calc/calc-nlfit.el
@@ -22,7 +22,7 @@
 ;;; Commentary:
 
 ;; This code uses the Levenberg-Marquardt method, as described in
-;; _Numerical Analysis_ by H. R. Schwarz, to fit data to 
+;; _Numerical Analysis_ by H. R. Schwarz, to fit data to
 ;; nonlinear curves.  Currently, the only the following curves are
 ;; supported:
 ;; The logistic S curve, y=a/(1+exp(b*(t-c)))
@@ -33,14 +33,14 @@
 
 ;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2
 ;;   Note that this is the derivative of the formula for the S curve.
-;;   We get A=-a*b, B=b and C=c.  Here, y is interpreted as the rate 
-;;   of growth of a population at time t.  So we will think of the 
-;;   data as consisting of rates p0, p1, ..., pn and their 
+;;   We get A=-a*b, B=b and C=c.  Here, y is interpreted as the rate
+;;   of growth of a population at time t.  So we will think of the
+;;   data as consisting of rates p0, p1, ..., pn and their
 ;;   respective times t0, t1, ..., tn.
 
 ;; The Hubbert Linearization, y/x=A*(1-x/B)
 ;;   Here, y is thought of as the rate of growth of a population
-;;   and x represents the actual population.  This is essentially 
+;;   and x represents the actual population.  This is essentially
 ;;   the differential equation describing the actual population.
 
 ;; The Levenberg-Marquardt method is an iterative process: it takes
@@ -53,7 +53,7 @@
 ;; approximations for b and c are found using least squares on the
 ;; linearization log((a/y)-1) = log(bb) + cc*t of
 ;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve
-;; formula, and then tranlating it to b and c.  From this, we can
+;; formula, and then translating it to b and c.  From this, we can
 ;; also get approximations for the bell curve parameters.
 
 ;;; Code:
@@ -68,7 +68,7 @@
 (defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas)
   "Return the parameters A and B for the best least squares fit y=a+bx."
   (let* ((n (length xdata))
-         (s2data (if sdata 
+         (s2data (if sdata
                      (mapcar 'calcFunc-sqr sdata)
                   (make-list n 1)))
          (S (if sdata 0 n))
@@ -109,11 +109,11 @@
 ;;; The methods described by de Sousa require the cumulative data qdata
 ;;; and the rates pdata.  We will assume that we are given either
 ;;; qdata and the corresponding times tdata, or pdata and the corresponding
-;;; tdata.  The following two functions will find pdata or qdata, 
+;;; tdata.  The following two functions will find pdata or qdata,
 ;;; given the other..
 
-;;; First, given two lists; one of values q0, q1, ..., qn and one of 
-;;; corresponding times t0, t1, ..., tn; return a list 
+;;; First, given two lists; one of values q0, q1, ..., qn and one of
+;;; corresponding times t0, t1, ..., tn; return a list
 ;;; p0, p1, ..., pn of the rates of  change of the qi with respect to t.
 ;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0).
 ;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)).
@@ -122,7 +122,7 @@
 
 (defun math-nlfit-get-rates-from-cumul (tdata qdata)
   (let ((pdata (list
-                (math-div 
+                (math-div
                  (math-sub (nth 1 qdata)
                            (nth 0 qdata))
                  (math-sub (nth 1 tdata)
@@ -155,7 +155,7 @@
            pdata))
     (reverse pdata)))
 
-;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of 
+;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of
 ;;; corresponding times t0, t1, ..., tn -- and an initial values q0,
 ;;;  return a list q0, q1, ..., qn of the cumulative values.
 ;;; q0 is the initial value given.
@@ -169,7 +169,7 @@
             (cons
              (math-add (car qdata)
                        (math-mul
-                        (math-mul 
+                        (math-mul
                          '(float 5 -1)
                          (math-add (nth 1 pdata) (nth 0 pdata)))
                         (math-sub (nth 1 tdata)
@@ -181,13 +181,13 @@
 
 ;;; Given the qdata, pdata and tdata, find the parameters
 ;;; a, b and c that fit q = a/(1+b*exp(c*t)).
-;;; a is found using the method described by de Sousa.  
+;;; a is found using the method described by de Sousa.
 ;;; b and c are found using least squares on the linearization
 ;;; log((a/q)-1) = log(b) + c*t
 ;;; In some cases (where the logistic curve may well be the wrong
 ;;; model), the computed a will be less than or equal to the maximum
 ;;; value of q in qdata; in which case the above linearization won't work.
-;;; In this case, a will be replaced by a number slightly above 
+;;; In this case, a will be replaced by a number slightly above
 ;;; the maximum value of q.
 
 (defun math-nlfit-find-qmax (qdata pdata tdata)
@@ -224,7 +224,7 @@
       (setq qmh
             (math-add qmh
                       (math-mul
-                       (math-mul 
+                       (math-mul
                         '(float 5 -1)
                         (math-add (nth 1 pdata) (nth 0 pdata)))
                        (math-sub (nth 1 tdata)
@@ -239,7 +239,7 @@
   (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata))
          (q0 (math-mul 2 qhalf))
          (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0)))
-    (while (math-lessp (math-nlfit-find-qmax 
+    (while (math-lessp (math-nlfit-find-qmax
                         (mapcar
                          (lambda (q) (math-add q0 q))
                          qdata)
@@ -260,7 +260,7 @@
            (i 0))
       (while (< i 10)
         (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax)))
-        (if (math-lessp 
+        (if (math-lessp
              (math-nlfit-find-qmax
               (mapcar
                (lambda (q) (math-add q0 q))
@@ -272,7 +272,7 @@
         (setq i (1+ i)))
       (math-mul '(float 5 -1) (math-add qmin qmax)))))
 
-;;; To improve the approximations to the parameters, we can use 
+;;; To improve the approximations to the parameters, we can use
 ;;; Marquardt method as described in Schwarz's book.
 
 ;;; Small numbers used in the Givens algorithm
@@ -329,7 +329,7 @@
           (let ((cij (math-nlfit-get-matx-elt C i j))
                 (cjj (math-nlfit-get-matx-elt C j j)))
             (when (not (math-equal 0 cij))
-                (if (math-lessp (calcFunc-abs cjj) 
+                (if (math-lessp (calcFunc-abs cjj)
                                 (math-mul math-nlfit-delta (calcFunc-abs cij)))
                     (setq w (math-neg cij)
                           gamma 0
@@ -337,7 +337,7 @@
                           rho 1)
                   (setq w (math-mul
                            (calcFunc-sign cjj)
-                           (calcFunc-sqrt 
+                           (calcFunc-sqrt
                             (math-add
                              (math-mul cjj cjj)
                              (math-mul cij cij))))
@@ -351,10 +351,10 @@
               (math-nlfit-set-matx-elt C j j w)
               (math-nlfit-set-matx-elt C i j rho)
               (let ((k (1+ j)))
-                (while (<= k n)       
+                (while (<= k n)
                   (let* ((cjk (math-nlfit-get-matx-elt C j k))
                          (cik (math-nlfit-get-matx-elt C i k))
-                         (h (math-sub 
+                         (h (math-sub
                              (math-mul gamma cjk) (math-mul sigma cik))))
                     (setq cik (math-add
                                (math-mul sigma cjk)
@@ -386,9 +386,9 @@
             (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k)
                             (math-nlfit-get-elt x k))))
             (setq k (1+ k))))
-        (math-nlfit-set-elt x i 
-                            (math-neg 
-                             (math-div s 
+        (math-nlfit-set-elt x i
+                            (math-neg
+                             (math-div s
                                        (math-nlfit-get-matx-elt C i i))))
         (setq i (1- i))))
     (let ((i (1+ n)))
@@ -405,7 +405,7 @@
                       sigma 1)
               (if (math-lessp (calcFunc-abs rho) 1)
                   (setq sigma rho
-                        gamma (calcFunc-sqrt 
+                        gamma (calcFunc-sqrt
                                (math-sub 1 (math-mul sigma sigma))))
                 (setq gamma (math-div 1 (calcFunc-abs rho))
                       sigma (math-mul (calcFunc-sign rho)
@@ -429,7 +429,7 @@
 
 (defun math-nlfit-jacobian (grad xlist parms &optional slist)
   (let ((j nil))
-    (while xlist 
+    (while xlist
       (let ((row (apply grad (car xlist) parms)))
         (setq j
               (cons
@@ -495,7 +495,7 @@
       (setq ydata (cdr ydata))
       (setq sdata (cdr sdata)))
     (reverse d)))
-    
+
 (defun math-nlfit-make-dtilda (d n)
   (append d (make-list n 0)))
 
@@ -520,8 +520,8 @@
                  (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist)))
             (if (math-lessp newchisq chisq)
                 (progn
-                  (if (math-lessp 
-                       (math-div 
+                  (if (math-lessp
+                       (math-div
                         (math-sub chisq newchisq) newchisq) math-nlfit-epsilon)
                       (setq really-done t))
                   (setq lambda (math-div lambda 10))
@@ -551,7 +551,7 @@
   (let ((ex (calcFunc-exp (math-mul c (math-sub x d)))))
     (math-div
      (math-mul a ex)
-     (math-sqr 
+     (math-sqr
       (math-add
        1 ex)))))
 
@@ -582,7 +582,7 @@
 
 (defun math-nlfit-find-covar (grad xlist pparms)
   (let ((j nil))
-    (while xlist 
+    (while xlist
       (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j))
       (setq xlist (cdr xlist)))
     (setq j (cons 'vec (reverse j)))
@@ -603,7 +603,7 @@
         (setq i (1+ i)))
       (setq sgs (reverse sgs)))
     (list sgs covar)))
-   
+
 ;;; Now the Calc functions
 
 (defun math-nlfit-s-logistic-params (xdata ydata)
@@ -687,15 +687,15 @@
            (funcall initparms xdata ydata))
           (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata))
           (finalparms (nth 1 fit))
-          (sigmacovar 
+          (sigmacovar
            (if sdevv
                (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit))))
-          (sigmas 
+          (sigmas
            (if sdevv
                (nth 0 sigmacovar)))
-          (finalparms 
+          (finalparms
            (if sigmas
-               (math-map-binop 
+               (math-map-binop
                 (lambda (x y) (list 'sdev x y)) finalparms sigmas)
              finalparms))
           (soln (funcall solnexpr finalparms var)))
@@ -712,8 +712,8 @@
              ((eq sdv 'calcFunc-xfit)
               (let (sln)
                 (setq sln
-                      (list 'vec 
-                            soln 
+                      (list 'vec
+                            soln
                             traillist
                             (nth 1 sigmacovar)
                             '(vec)
@@ -721,7 +721,7 @@
                             (let ((n (length xdata))
                                   (m (length finalparms)))
                               (if (and sdata (> n m))
-                                  (calcFunc-utpc (nth 0 fit) 
+                                  (calcFunc-utpc (nth 0 fit)
                                                  (- n m))
                                 '(var nan var-nan)))))
                 (math-nlfit-enter-result 1 "xfit" sln)))
@@ -787,14 +787,14 @@
                       (list (nth 1 (nth 0 finalparms))
                             (nth 1 (nth 1 finalparms)))
                       (lambda (x a b)
-                        (math-mul a 
+                        (math-mul a
                                   (math-sub
                                    1
                                    (math-div x b))))
                       sdata)))
                 (setq sln
-                      (list 'vec 
-                            soln 
+                      (list 'vec
+                            soln
                             traillist
                             (nth 2 parmvals)
                             (list
@@ -807,7 +807,7 @@
                             chisq
                             (let ((n (length qdata)))
                               (if (and sdata (> n 2))
-                                  (calcFunc-utpc 
+                                  (calcFunc-utpc
                                    chisq
                                    (- n 2))
                                 '(var nan var-nan)))))
@@ -817,4 +817,3 @@
        (calc-record traillist "parm")))))
 
 (provide 'calc-nlfit)
-
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 626d2462b4f..23f955afe7c 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1003,7 +1003,7 @@ Used by `calc-user-invocation'.")
 (defvar calc-quick-prev-results nil
   "Previous results from Quick Calc.")
 (defvar calc-said-hello nil
-  "Non-nil if the welcomd message has been displayed.")
+  "Non-nil if the welcome message has been displayed.")
 (defvar calc-executing-macro nil
   "Non-nil if a keyboard macro is executing from the \"K\" key.")
 (defvar calc-any-selections nil
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 3ffb6baee9f..3355ed83a91 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -437,7 +437,7 @@ RETURNONERROR specifies that parsing should stop on the first
 unmatched syntax encountered.  When nil, parsing skips the syntax,
 adding it to the unmatched syntax cache.
 
-Must return a list of semantic tags wich have been cooked
+Must return a list of semantic tags which have been cooked
 \(repositioned properly) but which DO NOT HAVE OVERLAYS associated
 with them.  When overloading this function, use `semantic--tag-expand'
 to cook raw tags.")
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index ae199703c80..c275ba96ee4 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -254,7 +254,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
         (fname nil)
         (miniscope (when scope (clone scope)))
         )
-    ;; First order check.  Is this wholely contained in the typecache?
+    ;; First order check.  Is this wholly contained in the typecache?
     (setq tmp (semanticdb-typecache-find sequence))
 
     (if tmp
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el
index eae6d013400..967e5c59cda 100644
--- a/lisp/cedet/semantic/analyze/fcn.el
+++ b/lisp/cedet/semantic/analyze/fcn.el
@@ -157,7 +157,7 @@ Almost all searches use the same arguments."
 ;;
 
 (define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration)
-  ;; todo - move into typecahe!!
+  ;; todo - move into typecache!!
   "Return a concrete type tag based on input TYPE tag.
 A concrete type is an actual declaration of a memory description,
 such as a structure, or class.  A meta type is an alias,
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index aaec4cb30ff..7e01b88f60b 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1023,7 +1023,7 @@ Output must be in semanticdb Find result format."
 
 (defmethod semantic-collector-try-completion-whitespace
   ((obj semantic-collector-abstract) prefix)
-  "For OBJ, do whatepsace completion based on PREFIX.
+  "For OBJ, do whitespace completion based on PREFIX.
 This implies that if there are two completions, one matching
 the test \"prefix\\>\", and one not, the one matching the full
 word version of PREFIX will be chosen, and that text returned.
diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el
index 95a68673b8c..edd62cc5ca5 100644
--- a/lisp/cedet/semantic/ia-sb.el
+++ b/lisp/cedet/semantic/ia-sb.el
@@ -348,7 +348,7 @@ TEXT TAG and INDENT are the details."
           (insert (semantic-tag-name tag))
           (if movepoint (setq movepoint (point)))
           ;; I'd like to use this to add fancy () or what not at the end
-          ;; but we need the parent file whih requires an upgrade to the
+          ;; but we need the parent file which requires an upgrade to the
           ;; analysis tool.
           ;;(semantic-insert-foreign-tag tag ??))
           )
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 03a3f1b0cb1..9cbea4430e0 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -452,7 +452,7 @@ continue processing recursively."
          ;; If val is nil, that's probably wrong.
          ;; Found a system header case where this was true.
          ((null val) "")
-         ;; Debug wierd stuff.
+         ;; Debug weird stuff.
          (t (debug)))
         ))
      ((stringp txt)
diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el
index c3d8b26810c..a4126e1384b 100644
--- a/lisp/cedet/semantic/sort.el
+++ b/lisp/cedet/semantic/sort.el
@@ -229,7 +229,7 @@ unmodified as components of their parent tags."
     (mapc (lambda (tag)
             (let ((components (semantic-tag-components tag)))
               (if (and components
-                       ;; unpositined tags can be hazardous to
+                       ;; unpositioned tags can be hazardous to
                        ;; completion.  Do we need any type of tag
                        ;; here?  - EL
                        (semantic-tag-with-position-p (car components)))
diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el
index 61006802c0d..cbae9f85573 100644
--- a/lisp/cedet/semantic/symref.el
+++ b/lisp/cedet/semantic/symref.el
@@ -324,7 +324,7 @@ Use the  `semantic-symref-hit-tags' method to get this list.")
       (setq ans (list (car files))
             files (cdr files))
       (dolist (F files)
-        ;; This algorithm for uniqing the file list depends on the
+        ;; This algorithm for uniquifying the file list depends on the
         ;; tool in question providing all the hits in the same file
         ;; grouped together.
         (when (not (string= F (car ans)))
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el
index ce3500f83e1..53422541c47 100644
--- a/lisp/cedet/semantic/symref/list.el
+++ b/lisp/cedet/semantic/symref/list.el
@@ -401,7 +401,7 @@ BUTTON is the button that was clicked."
 
 ;;; UTILS
 ;;
-;; List mode utils for understadning the current line
+;; List mode utils for understanding the current line
 
 (defun semantic-symref-list-on-hit-p ()
   "Return the line number if the cursor is on a buffer line with a hit.
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el
index acfc2486711..df90f6c464f 100644
--- a/lisp/cedet/srecode/texi.el
+++ b/lisp/cedet/srecode/texi.el
@@ -244,7 +244,7 @@ that class.
  `function' => @dfn{function}
  `variable' => @code{variable}
  `class'    => @code{class} @xref{class}
- `unknown'  => @code{unknonwn}
+ `unknown'  => @code{unknown}
  \"text\"     => ``text''
  'quoteme   => @code{quoteme}
  non-nil    => non-@code{nil}
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index d16d8c6f62d..7e4329234e3 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -124,7 +124,7 @@
 ;; (except the tooltip) if the next match is on the same page.
 
 ;; And it's much slower than the current search facility, because
-;; isearch really searches for each step forward or backward wheras
+;; isearch really searches for each step forward or backward whereas
 ;; the current approach searches once and then it knows to which
 ;; pages to jump.
 
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 5e29a85d386..db3236afc1a 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -992,7 +992,7 @@ if default value is nil."
               ;; EML - Note: the only reason to override a class bound slot
               ;;       is to change the default, so allow unbound in.
 
-              ;; If we have a repeat, only update the vlaue...
+              ;; If we have a repeat, only update the value...
               (eieio-perform-slot-validation-for-default a tp value skipnil)
               (setcar dp value))
 
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index ba04a27021e..ce6f8348a6b 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -1098,7 +1098,7 @@ optional prefix argument REINIT is non-nil."
 ;; This includes all the built-in and dumped things with documentation.
 (defun elint-scan-doc-file ()
   "Scan the DOC file for function and variables.
-Marks the function wih their arguments, and returns a list of variables."
+Marks the function with their arguments, and returns a list of variables."
   ;; Cribbed from help-fns.el.
   (let ((docbuf " *DOC*")
         vars sym args)
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 8f991575eda..a5a6f71d79e 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -220,7 +220,7 @@ non-nil, byte-compiles each function after instrumenting."
 (defun testcover-reinstrument (form)
   "Reinstruments FORM to use testcover instead of edebug.  This
 function modifies the list that FORM points to.  Result is nil if
-FORM should return multiple vlues, t if should always return same
+FORM should return multiple values, t if should always return same
 value, 'maybe if either is acceptable."
   (let ((fun (car-safe form))
         id val)
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index df37157f7a9..ce3cc3c9a22 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -3715,7 +3715,7 @@ Although this function is bound to \\[viper-toggle-search-style], the most
 convenient way to use it is to bind `//' to the macro
 `1 M-x viper-toggle-search-style' and `///' to
 `2 M-x viper-toggle-search-style'.  In this way, hitting `//' quickly will
-toggle case-fold-search and hitting `/' three times witth toggle regexp
+toggle case-fold-search and hitting `/' three times with toggle regexp
 search.  Macros are more convenient in this case because they don't affect
 the Emacs binding of `/'."
   (interactive "P")
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index b0c37ed28e4..2d221d5fa05 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -593,7 +593,7 @@ to a new place after repeating previous Vi command."
 ;; The reason this is needed is because dabbrev-expand (and possibly
 ;; others) may jump to before the insertion point, delete something and
 ;; then reinsert a bigger piece.  For instance:  bla^blo
-;; If dabbrev-expand is called after `blo' and ^ undicates viper-insert-point,
+;; If dabbrev-expand is called after `blo' and ^ indicates viper-insert-point,
 ;; then point jumps to the beginning of `blo'.  If expansion is found, `blablo'
 ;; is deleted, and we have |^, where | denotes point.  Next, dabbrev-expand
 ;; will insert the expansion, and we get: blablo^
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index a2e289df5e8..a99ffdea558 100644
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -66,7 +66,7 @@
   "*Function that determines what constitutes a word for clicking events.
 Takes two parameters: a COUNT, indicating how many words to return,
 and CLICK-COUNT, telling whether this is the first click, a double-click,
-or a tripple-click."
+or a triple-click."
   :type 'symbol
   :group 'viper-mouse)
 
diff --git a/lisp/epg.el b/lisp/epg.el
index 00c00f9c9d3..133e76da96c 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -82,7 +82,7 @@
 (defconst epg-invalid-recipients-reason-alist
   '((0 . "No specific reason given")
     (1 . "Not Found")
-    (2 . "Ambigious specification")
+    (2 . "Ambiguous specification")
     (3 . "Wrong key usage")
     (4 . "Key revoked")
     (5 . "Key expired")
@@ -95,7 +95,7 @@
 (defconst epg-delete-problem-reason-alist
   '((1 . "No such key")
     (2 . "Must delete secret key first")
-    (3 . "Ambigious specification")))
+    (3 . "Ambiguous specification")))
 
 (defconst epg-import-ok-reason-alist
   '((0 . "Not actually changed")
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index a218dd12555..0eff33f1e75 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -2626,7 +2626,7 @@ VALUE is computed by evaluating the rest of LINE in Lisp."
 (defun erc-cmd-default (line)
   "Fallback command.
 
-Commands for which no erc-cmd-xxx exists, are tunnelled through
+Commands for which no erc-cmd-xxx exists, are tunneled through
 this function.  LINE is sent to the server verbatim, and
 therefore has to contain the command itself as well."
   (erc-log (format "cmd: DEFAULT: %s" line))
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1
index 86c4eea59ab..8d4b1a086db 100644
--- a/lisp/gnus/ChangeLog.1
+++ b/lisp/gnus/ChangeLog.1
@@ -2346,7 +2346,7 @@
 
         * nnmh.el: Don't call nnmail-activate.
 
-        * gnus.el: User-variabelize all custom vars.
+        * gnus.el: User-variablize all custom vars.
 
 1998-02-13  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 7cea88e7f54..b3f85cf9366 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -11913,7 +11913,7 @@ will not be marked as saved."
           ;; This is a pseudo-article.
           (if (assq 'name header)
               (gnus-copy-file (cdr (assq 'name header)))
-            (gnus-message 1 "Article %d is unsaveable" article))
+            (gnus-message 1 "Article %d is unsavable" article))
         ;; This is a real article.
         (save-window-excursion
           (gnus-summary-select-article decode decode nil article)
diff --git a/lisp/info.el b/lisp/info.el
index 4f2f33d017c..02f84a54af9 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3240,7 +3240,7 @@ search results."
         (Info-index topic)
         (push (cons (cons Info-current-file topic) Info-index-alternatives)
               Info-virtual-index-nodes)
-        ;; Clean up unneccessary side-effects of `Info-index'.
+        ;; Clean up unnecessary side-effects of `Info-index'.
         (setq Info-history-list ohist-list)
         (Info-goto-node orignode)
         (message "")))
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index a23645bae1f..c80b22c696d 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -424,7 +424,7 @@
     ))
 
 ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.)
-;;; New varialble. created by Tomabechi 2000/06/08
+;;; New variable. created by Tomabechi 2000/06/08
 (defconst tibetan-composite-vowel-alist
   '(;; LONG A
     ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B))
@@ -604,7 +604,7 @@ This also matches some punctuation characters which need conversion.")
 (defvar tibetan-decomposed-temp nil)
 
 ;; For automatic composition.
-(set-char-table-range 
+(set-char-table-range
  composition-function-table '(#xF00 . #xFD1)
  (list (vector tibetan-composable-pattern 0 'font-shape-gstring)))
 
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 7f595db4814..f1d25158ce2 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -8944,7 +8944,7 @@ system.
 Return non-nil if logging is enabled for BUFFER.
 If BUFFER is nil, the value of `current-buffer' is used.
 Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
-is writeable (it will be created as necessary) and
+is writable (it will be created as necessary) and
 `erc-enable-logging' returns a non-nil value.
 
 \(fn &optional BUFFER)" nil nil)
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 7167fa567d3..7e3d983a76c 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -2026,7 +2026,7 @@ backup file names and the like)."
               (if (looking-at ".*\r\n.*\r\n")
                   (while (search-forward "\r\n" nil t)
                     (replace-match "\n" nil t)))
-;;                 ;; work around text-vs-binary wierdness
+;;                 ;; work around text-vs-binary weirdness
 ;;                 ;; if we don't find the normal M-H-S, try reading the file a different way
 ;;                 (if (not (feedmail-find-eoh t))
 ;;                         (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil))
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1
index d35d7d4c676..15eb1cbaed7 100644
--- a/lisp/mh-e/ChangeLog.1
+++ b/lisp/mh-e/ChangeLog.1
@@ -9150,7 +9150,7 @@
         %number(msg).
         (mh-scan-msg-format-string): Format to be used with the current
         maximum width of message number for the folder in the
-        `mh-upate-scan-format' function.
+        `mh-update-scan-format' function.
         (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater
         flexibility. The message number is no longer anchored to the
         beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index ea4a887898e..907c99a7e86 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -196,7 +196,7 @@ be different at least in one face property not set in that face."
 (defconst xesam-all-fields
   '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture"
     "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee"
-    "xesam:audioBirate" "xesam:audioChannels" "xesam:audioCodec"
+    "xesam:audioBitrate" "xesam:audioChannels" "xesam:audioCodec"
     "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate"
     "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL"
     "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth"
@@ -240,7 +240,8 @@ be different at least in one face property not set in that face."
     "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to"
     "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url"
     "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword"
-    "xesam:uuid" "xesam:version" "xesam:verticalResolution" "xesam:videoBirate"
+    "xesam:uuid" "xesam:version" "xesam:verticalResolution"
+    "xesam:videoBitrate"
     "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance"
     "xesam:width" "xesam:wordCount" "xesam:workEmailAddress"
     "xesam:workPhoneNumber" "xesam:workPostalAddress"
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 1cdb0a6f574..aa96fa1a4d1 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -15461,7 +15461,7 @@
 
         * org.el (org-enforce-todo-checkbox-dependencies): New option.
         (org-block-todo-from-checkboxes): New function.
-        (org-todo): Make tripple prefix arg circumvent blocking.
+        (org-todo): Make triple prefix arg circumvent blocking.
 
 2009-01-30  Glenn Morris  <rgm@gnu.org>
 
diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el
index 138d99a36d9..3607458a410 100644
--- a/lisp/org/org-bibtex.el
+++ b/lisp/org/org-bibtex.el
@@ -215,7 +215,7 @@
   "List to hold parsed bibtex entries.")
 
 (defcustom org-bibtex-autogen-keys nil
-  "Set to a truthy value to use `bibtex-generate-autokey' to generate keys."
+  "Set to a truth value to use `bibtex-generate-autokey' to generate keys."
   :group 'org-bibtex
   :type  'boolean)
 
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index 6279ed3df0d..6d82d4529b6 100644
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -1919,7 +1919,7 @@ the returned times will be formatted strings."
                shiftedm (- 13 (* 3 (nth 1 tmp)))
                shiftedq (- 5 (nth 1 tmp))))
        (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy))
-       ((> (+ q shift) 0) ; shift is whitin this year
+       ((> (+ q shift) 0) ; shift is within this year
        (setq shiftedq (+ q shift))
        (setq shiftedy y)
        (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0))))
diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el
index 05df6bb7524..0f6fc0bed6a 100644
--- a/lisp/org/org-colview.el
+++ b/lisp/org/org-colview.el
@@ -474,7 +474,7 @@ Where possible, use the standard interface for changing this line."
        ((equal major-mode 'org-agenda-mode)
         (org-columns-eval eval)
         ;; The following let preserves the current format, and makes sure
-        ;; that in only a single file things need to be upated.
+        ;; that in only a single file things need to be updated.
         (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
                (buffer (marker-buffer pom))
                (org-agenda-contributing-files
@@ -605,7 +605,7 @@ an integer, select that value."
      ((equal major-mode 'org-agenda-mode)
       (org-columns-eval '(org-entry-put pom key nval))
       ;; The following let preserves the current format, and makes sure
-      ;; that in only a single file things need to be upated.
+      ;; that in only a single file things need to be updated.
       (let* ((org-agenda-overriding-columns-format org-columns-current-fmt)
              (buffer (marker-buffer pom))
              (org-agenda-contributing-files
diff --git a/lisp/org/org-freemind.el b/lisp/org/org-freemind.el
index 91a1e5e59cb..b01f6d9fa6e 100644
--- a/lisp/org/org-freemind.el
+++ b/lisp/org/org-freemind.el
@@ -660,7 +660,7 @@ Otherwise give an error say the file exists."
         (with-current-buffer mm-buffer
           (erase-buffer)
           (setq buffer-file-coding-system 'utf-8)
-          ;; Fix-me: Currentl Freemind (ver 0.9.0 RC9) does not support this:
+          ;; Fix-me: Currently Freemind (ver 0.9.0 RC9) does not support this:
           ;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
           (insert "<map version=\"0.9.0\">\n")
           (insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n"))
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b8bf62d90b4..ad5d5def888 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1694,7 +1694,7 @@ ARG is ignored, and is there for compatibility with `capitalize-word' only."
 (defun ada-no-auto-case (&optional _arg)
   "Do nothing.  ARG is ignored.
 This function can be used for the auto-casing variables in Ada mode, to
-adapt to unusal auto-casing schemes.  Since it does nothing, you can for
+adapt to unusual auto-casing schemes.  Since it does nothing, you can for
 instance use it for `ada-case-identifier' if you don't want any special
 auto-casing for identifiers, whereas keywords have to be lower-cased.
 See also `ada-auto-case' to disable auto casing altogether."
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index c794cad65db..9544c4f8728 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -6467,7 +6467,7 @@ comment at the start of cc-engine.el for more info."
                     (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds)
                       (setq maybe-typeless t))
 
-                    ;; Haven't matched a type so it's an umambiguous
+                    ;; Haven't matched a type so it's an unambiguous
                     ;; specifier keyword and we know we're in a
                     ;; declaration.
                     (setq at-decl-or-cast t)
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 0e649480dda..9352725384b 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1811,7 +1811,7 @@ or as help on variables `cperl-tips', `cperl-problems',
                (funcall f))
            (make-local-variable 'compilation-error-regexp-alist)
            (push 'cperl compilation-error-regexp-alist)))
-        ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x
+        ((boundp 'compilation-error-regexp-alist);; xemacs 19.x
          (make-local-variable 'compilation-error-regexp-alist)
          (set 'compilation-error-regexp-alist
                (append cperl-compilation-error-regexp-alist
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index ca8be01d4a8..9cbc1dc6d32 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -194,9 +194,9 @@
 ;;     Unfortunately, these workarounds do not restore hideshow state.
 ;;     If someone figures out a better way, please let me know.
 
-;; * Correspondance
+;; * Correspondence
 ;;
-;; Correspondance welcome; please indicate version number.  Send bug
+;; Correspondence welcome; please indicate version number.  Send bug
 ;; reports and inquiries to <ttn@gnu.org>.
 
 ;; * Thanks
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index faccbb1f0ca..c35562a9c5e 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1844,7 +1844,7 @@ file name."
     (cond
      ((file-regular-p file2) file2)
      ((file-regular-p file1) file1)
-     ;; If we cannot veryfy the existence of the file, we return the shorter
+     ;; If we cannot verify the existence of the file, we return the shorter
      ;; name.  The idea behind this is that this may be a relative file name
      ;; and our idea about the current working directory may be wrong.
      ;; If it is a relative file name, it hopefully is short.
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 8b4798e1c14..121ce8e0430 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -164,7 +164,7 @@
 ;;     with the original form).  My code on the matter was improved
 ;;     considerably by Markus Triska.
 ;;  o  Fixed `prolog-insert-spaces-after-paren' (which used an
-;;     unitialized variable).
+;;     uninitialized variable).
 ;;  o  Minor changes to clean up the code and avoid some implicit
 ;;     package requirements.
 ;; Version 1.13:
@@ -691,7 +691,7 @@ nil means send actual operating system end of file."
 (defcustom prolog-use-standard-consult-compile-method-flag t
   "*Non-nil means use the standard compilation method.
 Otherwise the new compilation method will be used.  This
-utilises a special compilation buffer with the associated
+utilizes a special compilation buffer with the associated
 features such as parsing of error messages and automatically
 jumping to the source code responsible for the error.
 
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 65cdb600d74..c8bdc271f5f 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -366,7 +366,7 @@ See also `ps-mule-font-info-database-bdf'.")
 ;; character is printed by which FONT-SPEC.  It has one extra slot
 ;; whose value is an alist of the form:
 ;;      (CHARSET . FONT-SPEC)
-;; FONT-SPEC is a vecotr of the form:
+;; FONT-SPEC is a vector of the form:
 ;;      (ID FONT-SRC FONT-NAME ENCODING EXTRA)
 (defvar ps-mule-font-spec-tables nil)
 
diff --git a/lisp/repeat.el b/lisp/repeat.el
index 8ddc8d41429..13b6a1d2315 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -363,7 +363,7 @@ recently executed command not bound to an input event\"."
 
 ;; OK, there's one situation left where that doesn't work correctly: when the
 ;; most recent self-insertion provoked an auto-fill.  The problem is that
-;; unravelling the undo information after an auto-fill is too hard, since all
+;; unraveling the undo information after an auto-fill is too hard, since all
 ;; kinds of stuff can get in there as a result of comment prefixes etc.  It'd
 ;; be possible to advise do-auto-fill to record the most recent
 ;; self-insertion before it does its thing, but that's a performance hit on
diff --git a/lisp/ses.el b/lisp/ses.el
index cdc58e12d00..6c9d0a7a50d 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -1143,7 +1143,7 @@ preceding cell has spilled over."
         (setq x (concat text (if (< maxcol ses--numcols) " " "\n")))
         ;; We use set-text-properties to prevent a wacky print function from
         ;; inserting rogue properties, and to ensure that the keymap property is
-        ;; inherited (is it a bug that only unpropertied strings actually
+        ;; inherited (is it a bug that only unpropertized strings actually
         ;; inherit from surrounding text?)
         (set-text-properties 0 (length x) nil x)
         (insert-and-inherit x)
@@ -1371,7 +1371,7 @@ first reference is found."
     result-so-far)
 
 (defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr)
-  "Relocate one symbol SYM, whichs corresponds to ROWCOL (a cons of ROW and
+  "Relocate one symbol SYM, which corresponds to ROWCOL (a cons of ROW and
 COL).  Cells starting at (STARTROW,STARTCOL) are being shifted
 by (ROWINCR,COLINCR)."
   (let ((row (car rowcol))
diff --git a/lisp/subr.el b/lisp/subr.el
index 6d652f55b29..36937e8f370 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3792,7 +3792,7 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
 ;;                            MIN-CHANGE
 ;;                            MIN-TIME])
 ;;
-;; This weirdeness is for optimization reasons: we want
+;; This weirdness is for optimization reasons: we want
 ;; `progress-reporter-update' to be as fast as possible, so
 ;; `(car reporter)' is better than `(aref reporter 0)'.
 ;;
diff --git a/lisp/term.el b/lisp/term.el
index dc5ae29ffd2..aa76e41f595 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -43,7 +43,7 @@
 ;; Important caveat, when deciding the cursor/'grey keys' keycodes I had to
 ;; make a choice: on my Linux box this choice allows me to run all the
 ;; ncurses applications without problems but make these keys
-;; uncomprehensible to all the cursesX programs.  Your mileage may vary so
+;; incomprehensible to all the cursesX programs.  Your mileage may vary so
 ;; you may consider changing the default 'emulation'.  Just search for this
 ;; piece of code and modify it as you like:
 ;;
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 10c1c19e0c4..b639af7cda0 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -492,7 +492,7 @@ unless the current buffer is a scratch buffer."
                                command-line-default-directory)))
          (file (find-file-noselect f))
          (bufwin1 (get-buffer-window file 'visible))
-         (bufwin2 (get-buffer-window "*scratch*" 'visibile)))
+         (bufwin2 (get-buffer-window "*scratch*" 'visible)))
     (cond
      (bufwin1
       (select-frame (window-frame bufwin1))
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 232d42efc94..0efabc2135a 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -3215,7 +3215,7 @@ X1, Y1.  An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
 ;;         2|     |
 ;;         3+-----+
 ;;
-;;   We will then pop (0,0) and remove the left-most vertival line while
+;;   We will then pop (0,0) and remove the left-most vertical line while
 ;;   pushing the lower left corner (0,3) on the stack, and so on until
 ;;   the entire rectangle is vaporized.
 ;;
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 52f6e5b4889..b8614b16f82 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -469,7 +469,7 @@ Point is moved to just past the fill prefix on the first line."
 
   (goto-char from)
   (if enable-multibyte-characters
-      ;; Delete unnecessay newlines surrounded by words.  The
+      ;; Delete unnecessary newlines surrounded by words.  The
       ;; character category `|' means that we can break a line at the
       ;; character.  And, char-table
       ;; `fill-nospace-between-words-table' tells how to concatenate
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 5d7d2451422..30df073df12 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -2635,7 +2635,7 @@ delete this buffer in another session as well."
     ))
 
 ;; Kill the variant buffer, according to user directives (ask, kill
-;; unconditionaly, keep)
+;; unconditionally, keep)
 ;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor
 (defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants)
   ;; if this is indirect buffer, kill it and substitute with direct buf
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index ed2bac17217..eea1a992094 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -181,7 +181,7 @@
 ;; * working-revision (file)
 ;;
 ;;   Return the working revision of FILE.  This is the revision fetched
-;;   by the last checkout or upate, not necessarily the same thing as the
+;;   by the last checkout or update, not necessarily the same thing as the
 ;;   head or tip revision.  Should return "0" for a file added but not yet
 ;;   committed.
 ;;
diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c
index fef8a3b6b25..2f1c85aa1a2 100644
--- a/oldXMenu/Activate.c
+++ b/oldXMenu/Activate.c
@@ -78,7 +78,7 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  *
  *                      3)      The application has enabled asynchronous event
  *                              queuing mode.  In this mode all foreign events
- *                              will be queued up untill XMenuActivate
+ *                              will be queued up until XMenuActivate
  *                              terminates; at which time they will be
  *                              returned to the X event queue.  As long as
  *                              AEQ mode is enabled any asynchronous event
diff --git a/src/ChangeLog b/src/ChangeLog
index d26b893ced1..1dca6864986 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -7089,7 +7089,7 @@
 
 2011-04-08  T.V. Raman  <tv.raman.tv@gmail.com>  (tiny change)
 
-        * xml.c (parse_region): Avoid creating spurious whiespace nodes.
+        * xml.c (parse_region): Avoid creating spurious whitespace nodes.
 
 2011-04-08  Chong Yidong  <cyd@stupidchicken.com>
 
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 99ab02577d5..ada5e0f78ef 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -5084,7 +5084,7 @@
 
 2006-02-26  Chong Yidong  <cyd@stupidchicken.com>
 
-        * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary argument.
+        * xterm.h, xterm.c (x_uncatch_errors): Delete unnecessary argument.
 
         * xterm.c (x_load_font, x_term_init, XTmouse_position)
         (handle_one_xevent, x_connection_closed, x_list_fonts):
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11
index 07d4f4ec116..72871475b69 100644
--- a/src/ChangeLog.11
+++ b/src/ChangeLog.11
@@ -11805,7 +11805,7 @@
         * coding.c (encode_coding_utf_16): Fix checking of a Unicode
         character.
 
-        * cmds.c (Fself_insert_command): Avoid unnecessay
+        * cmds.c (Fself_insert_command): Avoid unnecessary
         unibyte->multibyte conversion.  (Bug#4240)  (Bug#4037)
 
 2009-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3
index cbf867829c7..493e8e1ab04 100644
--- a/src/ChangeLog.3
+++ b/src/ChangeLog.3
@@ -14880,7 +14880,7 @@
 
 1989-08-09  Joseph Arceneaux  (jla@spiff)
 
-        * ../oldXMenu/Makefile: Removed all the unneccessary X stuff.
+        * ../oldXMenu/Makefile: Removed all the unnecessary X stuff.
 
 1989-08-07  Richard Stallman  (rms@sugar-bombs.ai.mit.edu)
 
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9
index 6f007992bef..6e3a8d8ab3b 100644
--- a/src/ChangeLog.9
+++ b/src/ChangeLog.9
@@ -3479,7 +3479,7 @@
         a workaround for SunOS 4's cc.
         (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...".
         (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise.
-        (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessay "do"
+        (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessary "do"
         statement.
 
 2001-01-23  Gerd Moellmann  <gerd@gnu.org>
diff --git a/src/fileio.c b/src/fileio.c
index 7e75e6285f0..5f7a8ad3972 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1553,7 +1553,7 @@ those `/' is discarded.  */)
   if (p)
     /* Start over with the new string, so we check the file-name-handler
        again.  Important with filenames like "/home/foo//:/hello///there"
-       which whould substitute to "/:/hello///there" rather than "/there".  */
+       which would substitute to "/:/hello///there" rather than "/there".  */
     return Fsubstitute_in_file_name
       (make_specified_string (p, -1, endp - p, multibyte));
 
diff --git a/src/fontset.c b/src/fontset.c
index 9697f62ea72..7592521cc7d 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -631,7 +631,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, int id, int fa
             {
               /* Something strange happened, perhaps because of a
                  Font-backend problem.  Too avoid crashing, record
-                 that this spec is unsable.  It may be better to find
+                 that this spec is unusable.  It may be better to find
                  another font of the same spec, but currently we don't
                  have such an API.  */
               RFONT_DEF_SET_FACE (rfont_def, -1);
diff --git a/src/fringe.c b/src/fringe.c
index 25fecca2334..61fd2f2b998 100644
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -928,7 +928,7 @@ update_window_fringes (struct window *w, int keep_current_p)
   int top_ind_rn, bot_ind_rn;
   int top_ind_min_y, bot_ind_max_y;
 
-  /* top_ind_rn is set to a nonnegative value whenver
+  /* top_ind_rn is set to a nonnegative value whenever
      row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p
      is not initialized here.  Similarly for bot_ind_rn,
      row->indicate_eob_p and bot_row_ends_at_zv_p.  */
diff --git a/src/nsgui.h b/src/nsgui.h
index 5cc2eee3230..99c64cd4cde 100644
--- a/src/nsgui.h
+++ b/src/nsgui.h
@@ -65,7 +65,7 @@ typedef struct _XCharStruct
   int descent;
 } XCharStruct;
 
-/* Fake tructure from Xlib.h to represent two-byte characters.  */
+/* Fake structure from Xlib.h to represent two-byte characters.  */
 #ifndef __OBJC__
 typedef unsigned short unichar;
 #endif
@@ -202,4 +202,3 @@ typedef struct _NSRect  { NSPoint origin; NSSize size; } NSRect;
 #define PWinGravity     (1L << 9) /* program specified window gravity */
 
 #endif  /* __NSGUI_H__ */
-
diff --git a/src/nsterm.m b/src/nsterm.m
index c5b28d57ac5..b02561442e5 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3075,7 +3075,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r)
 
   /* If there is no mask, the background won't be seen,
      so draw a rectangle on the image for the cursor.
-     Do this for all images, getting trancparency right is not reliable.  */
+     Do this for all images, getting transparency right is not reliable.  */
   if (s->hl == DRAW_CURSOR)
     {
       int thickness = abs (s->img->relief);
diff --git a/src/w32fns.c b/src/w32fns.c
index 434861320a5..96b3f69b728 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -3711,7 +3711,7 @@ w32_wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
       if (w32_system_caret_hwnd == NULL)
         {
           /* Use the default caret width, and avoid changing it
-             unneccesarily, as it confuses screen reader software.  */
+             unnecessarily, as it confuses screen reader software.  */
           w32_system_caret_hwnd = hwnd;
           CreateCaret (hwnd, NULL, 0,
                        w32_system_caret_height);
diff --git a/src/w32term.h b/src/w32term.h
index 02392133837..6c73daba601 100644
--- a/src/w32term.h
+++ b/src/w32term.h
@@ -209,7 +209,7 @@ extern int x_display_pixel_width (struct w32_display_info *);
    the information that is specific to W32 windows.  */
 
 /* Put some things in x_output for compatibility.
-   NTEMACS_TODO: Move all common things here to eliminate unneccesary
+   NTEMACS_TODO: Move all common things here to eliminate unnecessary
    diffs between X and w32 code.  */
 struct x_output
 {
diff --git a/test/cedet/cedet-utests.el b/test/cedet/cedet-utests.el
index d161ae68fcb..f7eef05dd99 100644
--- a/test/cedet/cedet-utests.el
+++ b/test/cedet/cedet-utests.el
@@ -96,7 +96,7 @@
   "Non-nil when CEDET-utest is running all the tests.")
 
 (defun cedet-utest (&optional exit-on-error)
-  "Run the CEDET unittests.
+  "Run the CEDET unit tests.
 EXIT-ON-ERROR causes the test suite to exit on an error, instead
 of just logging the error."
   (interactive)
diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el
index ff62040129d..12fbc37a112 100644
--- a/test/cedet/semantic-utest.el
+++ b/test/cedet/semantic-utest.el
@@ -536,7 +536,7 @@ Pre-fill the buffer with CONTENTS."
 
 (defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme)
   "Generic unit test according to template.
-Should work for languages withouth .h files, python javascript java.
+Should work for languages without .h files, python javascript java.
 TESTNAME is the name of the test.
 FILENAME is the name of the file to create.
 CONTENTS is the contents of the file to test.
diff --git a/test/indent/octave.m b/test/indent/octave.m
index 5ce52ad7a19..4c2fa6c8435 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -19,7 +19,7 @@ function res = tcomp (fn)
   pop = x(:,1:10)(:);
     ## Here and below, we test if the indentation aligns with a previous
     ## fixindented line.  This is important so as to make it easier for the
-    ## user to verride some indentation somewhere, and also because it
+    ## user to override some indentation somewhere, and also because it
     ## reflects the fact that the indentation decision is taken with a minimum
     ## amount of work (i.e. in the present case, without having to walk back
     ## until the `function' line).