Spelling fixes.

66 files changed, 109 insertions, 109 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d4f228dbdd..95834e81a8d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3535,7 +3535,7 @@
         Also clean up the code slightly.
 
         * progmodes/grep.el (rgrep): Don't bind `process-connection-type',
-        because that makes the colours go away.
+        because that makes the colors go away.
 
         * mail/sendmail.el (send-mail-function): Change the default to
         `sendmail-query-once'.
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index c165886aeed..da21244b7b1 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -1245,7 +1245,7 @@ Optional FROM-DEPTH is for internal use."
 (defun allout-range-overlaps (from to ranges)
   "Return a pair indicating overlap of FROM and TO subtree range in RANGES.
 
-First element of result indicates whether candadate range FROM, TO
+First element of result indicates whether candidate range FROM, TO
 overlapped any of the existing ranges.
 
 Second element of result is a new version of RANGES incorporating the
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 43cb5828e85..86e8cbbc73a 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -1598,7 +1598,7 @@ In symbolic mode, return the list (^ a b)."
                    (or (math-lessp acoeff bcoeff)
                        (math-equal acoeff bcoeff)))
               (calc-record-why "*Improper coefficients" nil)
-            (math-mul 
+            (math-mul
              (if (equal aunit '(var dB var-dB))
                  (let ((coef (if power 10 20)))
                    (math-mul coef
@@ -1681,7 +1681,7 @@ In symbolic mode, return the list (^ a b)."
           (math-simplify
            (math-mul
             (math-add
-             coef 
+             coef
              (math-mul (if power 10 20)
                        (math-conditional-apply 'calcFunc-log10 number)))
             units)))
@@ -1689,7 +1689,7 @@ In symbolic mode, return the list (^ a b)."
           (math-simplify
            (math-mul
             (math-add
-             coef 
+             coef
              (math-div (math-conditional-apply 'calcFunc-ln number) (if power 2 1)))
             units))))
       (calc-record-why "*Improper units" nil))))
@@ -1707,7 +1707,7 @@ In symbolic mode, return the list (^ a b)."
             (math-simplify
              (math-mul
               (math-sub
-               coef 
+               coef
                (math-mul (if power 10 20)
                          (math-conditional-apply 'calcFunc-log10 b)))
               units)))
@@ -1715,7 +1715,7 @@ In symbolic mode, return the list (^ a b)."
           (math-simplify
            (math-mul
             (math-sub
-             coef 
+             coef
              (math-div (math-conditional-apply 'calcFunc-ln b) (if power 2 1)))
             units)))))))))
 
@@ -1762,17 +1762,17 @@ In symbolic mode, return the list (^ a b)."
             (coeff (math-simplify (math-div val units))))
         (math-mul
          (if (equal lunit '(var dB var-dB))
-             (math-mul 
+             (math-mul
               ref
-              (math-conditional-pow 
+              (math-conditional-pow
                10
                (math-div
                 coeff
                 (if power 10 20))))
-           (math-mul 
+           (math-mul
             ref
             (math-conditional-apply 'calcFunc-exp
-             (if power 
+             (if power
                  (math-mul 2 coeff)
                coeff))))
          runits)))))
@@ -1869,7 +1869,7 @@ In symbolic mode, return the list (^ a b)."
   (let* ((n (math-round num))
          (diff (math-abs
                 (math-sub num n))))
-    (if (< (math-compare diff 
+    (if (< (math-compare diff
                          (math-div (math-read-expr calc-note-threshold) 100)) 0)
         n
       num)))
@@ -1927,10 +1927,10 @@ If non-nil, return a list consisting of the note and the cents coefficient."
        (assoc (nth 1 note) math-notes)
        (integerp (nth 2 note))
        (setq rnote note)
-       (or 
+       (or
         (not cents)
         (Math-numberp (setq rcents
-                            (math-simplify 
+                            (math-simplify
                              (math-div cents '(var cents var-cents)))))))
       (list rnote rcents))
      ((and  ;; CENTS is a note, NOTE is cents.
@@ -1938,10 +1938,10 @@ If non-nil, return a list consisting of the note and the cents coefficient."
        (assoc (nth 1 cents) math-notes)
        (integerp (nth 2 cents))
        (setq rnote cents)
-       (or 
+       (or
         (not note)
         (Math-numberp (setq rcents
-                            (math-simplify 
+                            (math-simplify
                              (math-div note '(var cents var-cents)))))))
       (list rnote rcents)))))
 
@@ -1972,7 +1972,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
   "Return the scientific pitch notation corresponding to midi number MIDI."
   (let (midin cents)
     (if (math-integerp midi)
-        (setq midin midi 
+        (setq midin midi
               cents nil)
       (setq midin (math-floor midi)
             cents (math-mul 100 (math-sub midi midin))))
@@ -1989,7 +1989,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
            (n (math-sub (car nr) 1))
            (note (car (rassoc (cdr nr) math-notes))))
       (if cents
-          (list '+ (list 'calcFunc-subscr note n) 
+          (list '+ (list 'calcFunc-subscr note n)
                    (list '* cents '(var cents var-cents)))
         (list 'calcFunc-subscr note n)))))
 
@@ -2005,7 +2005,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
          440
          (math-pow
           2
-          (math-div 
+          (math-div
            (math-sub
             midi
             69)
@@ -2018,7 +2018,7 @@ If non-nil, return a list consisting of the note and the cents coefficient."
 
 (defun calcFunc-spn (expr)
   "Return EXPR written as scientific pitch notation + cents."
-  ;; Get the coeffecient of Hz
+  ;; Get the coefficient of Hz
   (let (note)
     (cond
      ((setq note (math-freqp expr))
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 4c59e2634ae..b0c7f125982 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -31,7 +31,7 @@
 ;;      TODO is a major mode for EMACS which offers functionality to
 ;;      treat most lines in one buffer as a list of items one has to
 ;;      do.  There are facilities to add new items, which are
-;;      categorised, to edit or even delete items from the buffer.
+;;      categorized, to edit or even delete items from the buffer.
 ;;      The buffer contents are currently compatible with the diary,
 ;;      so that the list of todo-items will show up in the FANCY diary
 ;;      mode.
@@ -536,7 +536,7 @@ Use `todo-categories' instead.")
     (unless (zerop (buffer-size buf))
       (and (null todo-categories)
            (null todo-cats)
-           (error "Error in %s: File is non-empty but contains no category" 
+           (error "Error in %s: File is non-empty but contains no category"
                   todo-file-do)))
     (unless cat (setq cat (read-from-minibuffer prompt)))
     (with-current-buffer buf
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el
index cd910f35a6a..e50e9993af0 100644
--- a/lisp/cedet/data-debug.el
+++ b/lisp/cedet/data-debug.el
@@ -955,7 +955,7 @@ we move to."
 
 (defun data-debug-line-expandable-p ()
   "Return non-nil if the current line is expandable.
-Lines that are not expandable are assumed to not be contractable."
+Lines that are not expandable are assumed to not be contractible."
   (not (get-text-property (point) 'ddebug-noexpand)))
 
 (defun data-debug-expand-current-line ()
diff --git a/lisp/cedet/ede/custom.el b/lisp/cedet/ede/custom.el
index fed1a1b2155..ac0907e8e7f 100644
--- a/lisp/cedet/ede/custom.el
+++ b/lisp/cedet/ede/custom.el
@@ -40,7 +40,7 @@
 
 ;;; Customization Commands
 ;;
-;; These commands initialize custoization of EDE control objects.
+;; These commands initialize customization of EDE control objects.
 
 ;;;###autoload
 (defun ede-customize-project ()
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index 5ed83b39163..8cf82d9f29c 100644
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -46,7 +46,7 @@
 ;; Since these projects are all so increadibly generic, a user will
 ;; need to configure some aspects of the project by hand.  In order to
 ;; enable this without configuring the project objects directly (which
-;; are auto-generated) a special ede-generic-confg object is defined to
+;; are auto-generated) a special ede-generic-config object is defined to
 ;; hold the basics.  Generic projects will identify and use these
 ;; config files.
 ;;
@@ -105,7 +105,7 @@
                   :group (default build)
                   :documentation
                   "Command used for debugging this project.")
-   ;; C target customixations
+   ;; C target customizations
    (c-include-path :initarg :c-include-path
                    :initform nil
                    :type list
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el
index c1e656e8459..216138d0ba8 100644
--- a/lisp/cedet/ede/project-am.el
+++ b/lisp/cedet/ede/project-am.el
@@ -428,7 +428,7 @@ Argument COMMAND is the command to use for compiling the target."
 If a given set of projects has already been loaded, then do nothing
 but return the project for the directory given.
 Optional ROOTPROJ is the root EDE project."
-  (let* ((ede-constructiong t)
+  (let* ((ede-constructing t)
          (amo (object-assoc (expand-file-name "Makefile.am" directory)
                             'file ede-projects)))
     (when (not amo)
diff --git a/lisp/cedet/ede/speedbar.el b/lisp/cedet/ede/speedbar.el
index 252ce47df67..fdf61b51b68 100644
--- a/lisp/cedet/ede/speedbar.el
+++ b/lisp/cedet/ede/speedbar.el
@@ -297,7 +297,7 @@ INDENT is the current indentation level."
   (let ((file (ede-find-nearest-file-line)))
     (speedbar-find-file-in-frame file)
     (save-excursion (speedbar-stealthy-updates))
-    ;; Reset the timer with a new timeout when cliking a file
+    ;; Reset the timer with a new timeout when clicking a file
     ;; in case the user was navigating directories, we can cancel
     ;; that other timer.
 ;    (speedbar-set-timer speedbar-update-speed)
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 34d886b6807..639b46ad2cf 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -1015,7 +1015,7 @@ Throw away all the old tags, and recreate the tag database."
                 :visible semantic-mode
                 :button (:toggle . global-semanticdb-minor-mode))))
 
-;; The `semantic-mode' command, in conjuction with the
+;; The `semantic-mode' command, in conjunction with the
 ;; `semantic-default-submodes' variable, toggles Semantic's various
 ;; auxiliary minor modes.
 
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 636ac30b166..525086022d3 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -106,7 +106,7 @@ called in a dereference sequence.")
    (prefixclass :initarg :prefixclass
                 :type list
                 :documentation "Tag classes expected at this context.
-These are clases for tags, such as 'function, or 'variable.")
+These are classes for tags, such as 'function, or 'variable.")
    (prefixtypes :initarg :prefixtypes
            :type list
            :documentation "List of tags defining types for :prefix.
diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el
index ae993a743d6..89937f45ec8 100644
--- a/lisp/cedet/semantic/analyze/complete.el
+++ b/lisp/cedet/semantic/analyze/complete.el
@@ -188,7 +188,7 @@ FLAGS can be any number of:
       ;; Reset c.
       (setq c nil)
 
-      ;; Loop over all the found matches, and catagorize them
+      ;; Loop over all the found matches, and categorize them
       ;; as being possible features.
       (while (and loopc do-typeconstraint)
 
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 49323d24d6a..d8b004df1bd 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -1128,7 +1128,7 @@ Optional PARENT and COLOR are ignored."
 
 (define-mode-local-override semantic-format-tag-canonical-name
   c-mode (tag &optional parent color)
-  "Create a cannonical name for TAG.
+  "Create a canonical name for TAG.
 PARENT specifies a parent class.
 COLOR indicates that the text should be type colorized.
 Enhances the base class to search for the entire parent
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index 666624db929..c19df6aed77 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -463,7 +463,7 @@ Return a bovination list to use."
           ;; Try an Emacs 22 fcn.  This throws errors.
           (find-library-name (semantic-tag-name tag))
         (error
-         (message "semantic: connot find source file %s"
+         (message "semantic: cannot find source file %s"
                   (semantic-tag-name tag))))
     ;; No handy function available.  (Older Emacsen)
     (let* ((lib (locate-library (semantic-tag-name tag)))
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index 307071e743c..e7ed8c5ee47 100644
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -595,7 +595,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
                ;; Feb 06 -
                ;; IDed when the first cache-list tag is after
                ;; our change, meaning there is nothing before
-               ;; the chnge.
+               ;; the change.
                ((> (semantic-tag-start (car cache-list))
                    (semantic-overlay-end (car changes)))
                 (setq last-cond "Beginning of buffer")
diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el
index c2d07fbcc35..b4d94321bc1 100644
--- a/lisp/cedet/semantic/find.el
+++ b/lisp/cedet/semantic/find.el
@@ -574,7 +574,7 @@ FUNCTION must return non-nil if an element of STREAM will be included
 in the new list.
 
 If optional argument SEARCH-PARTS is non-nil, all sub-parts of tags
-are searched.  The overloadable function `semantic-tag-componenets' is
+are searched.  The overloadable function `semantic-tag-components' is
 used for the searching child lists.  If SEARCH-PARTS is the symbol
 'positiononly, then only children that have positional information are
 searched.
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index a9a5ab586d0..87a436fbc3d 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -1677,7 +1677,7 @@ When the lexer encounters the open-paren delimiter \"(\":
 ;;; Lexical Safety
 ;;
 ;; The semantic lexers, unlike other lexers, can throw errors on
-;; unbalanced syntax.  Since editing is all about changeging test
+;; unbalanced syntax.  Since editing is all about changing text
 ;; we need to provide a convenient way to protect against syntactic
 ;; inequalities.
 
diff --git a/lisp/cedet/semantic/sb.el b/lisp/cedet/semantic/sb.el
index 88b0cc33d43..3fe3f05f1fb 100644
--- a/lisp/cedet/semantic/sb.el
+++ b/lisp/cedet/semantic/sb.el
@@ -313,7 +313,7 @@ TEXT TOKEN and INDENT are the details."
     (save-excursion (speedbar-stealthy-updates))
     (semantic-go-to-tag token parent)
     (switch-to-buffer (current-buffer))
-    ;; Reset the timer with a new timeout when cliking a file
+    ;; Reset the timer with a new timeout when clicking a file
     ;; in case the user was navigating directories, we can cancel
     ;; that other timer.
     ;; (speedbar-set-timer dframe-update-speed)
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el
index 72c14141166..3d8ed2c5b80 100644
--- a/lisp/cedet/semantic/tag-ls.el
+++ b/lisp/cedet/semantic/tag-ls.el
@@ -221,7 +221,7 @@ something without an implementation."
 
 (define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer)
   "Return the fully qualified name of TAG in the package hierarchy.
-STREAM-OR-BUFFER can be anything convertable by `semantic-something-to-stream',
+STREAM-OR-BUFFER can be anything convertible by `semantic-something-to-stream',
 but must be a toplevel semantic tag stream that contains TAG.
 A Package Hierarchy is defined in UML by the way classes and methods
 are organized on disk.  Some language use this concept such that a
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index 052999bf7c8..d65cd2b8d88 100644
--- a/lisp/cedet/srecode/compile.el
+++ b/lisp/cedet/srecode/compile.el
@@ -66,7 +66,7 @@
 The compiled template can contain lists of section dictionaries,
 or values that are expected to be passed down into different
 section macros.  The template section dictionaries are merged in with
-any incomming dictionaries values.")
+any incoming dictionaries values.")
    (binding :initarg :binding
             :documentation
             "Preferred keybinding for this template in `srecode-minor-mode-map'.")
@@ -552,7 +552,7 @@ A list of defined variables VARS provides a variable table."
           (when (not hs)
             (setq hs (make-hash-table :test 'equal :size 20))
             (puthash context hs contexthash))
-          ;; Put into that contenxt's hash.
+          ;; Put into that context's hash.
           (puthash objname (car lp) hs)
           )
 
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index 61cbab19998..e297f5dffda 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 ;commen sylable
+    ("\\(^\\|\\s-\\)id\\($\\|\\s-\\)" . "Identifier") ;complex cause ;common sylable
     )
   "List of common English abbreviations or full words.
 These are nouns (as opposed to verbs) for use in creating expanded
diff --git a/lisp/dired.el b/lisp/dired.el
index 90cf610116a..6264df148b6 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2533,7 +2533,7 @@ instead of `dired-actual-switches'."
       (if (and (> count 1) (called-interactively-p 'interactive))
           (message "Buffer includes %d directories" count)))
     ;; We don't need to sort it because it is in buffer order per
-    ;; constructionem.  Return new alist:
+    ;; construction.  Return new alist:
     dired-subdir-alist))
 
 (defun dired-alist-add-1 (dir new-marker)
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 4c83e7e2e0d..8f991575eda 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -509,7 +509,7 @@ eliminated by adding more test cases."
       (set-buffer-modified-p changed))))
 
 (defun testcover-mark-all (&optional buffer)
-  "Mark all forms in BUFFER that did not get completley tested during
+  "Mark all forms in BUFFER that did not get completely tested during
 coverage tests.  This function creates many overlays."
   (interactive "bMark forms in buffer: ")
   (if buffer
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index 1fb8b7f4c32..dcb23967645 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -311,7 +311,7 @@ special character that is not itself a backslash."
                   (char-to-string (char-before))))
         ;; allow \\<RET> to mean a literal "\" character followed by a
         ;; normal return, rather than a backslash followed by a line
-        ;; continuator (i.e., "\\ + \n" rather than "\ + \\n").  This
+        ;; continuation (i.e., "\\ + \n" rather than "\ + \\n").  This
         ;; is necessary because backslashes in Eshell are not special
         ;; unless they either precede something special, or precede a
         ;; backslash that precedes something special.  (Mainly this is
diff --git a/lisp/faces.el b/lisp/faces.el
index 45173eb35da..7bc103ca699 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2457,7 +2457,7 @@ It is used for characters of no fonts too."
 ;;; Manipulating font names.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; This is here for compatibilty with Emacs 20.2.  For example,
+;; This is here for compatibility with Emacs 20.2.  For example,
 ;; international/fontset.el uses x-resolve-font-name.  The following
 ;; functions are not used in the face implementation itself.
 
diff --git a/lisp/follow.el b/lisp/follow.el
index b387427a47f..a0e363aea2a 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -118,7 +118,7 @@
 ;; (setq pixel-vertical-clip-threshold 30)
 
 
-;; The correct way to configurate Follow mode, or any other mode for
+;; The correct way to configure Follow mode, or any other mode for
 ;; that matter, is to create one or more functions that do
 ;; whatever you would like to do.  These functions are then added to
 ;; a hook.
@@ -894,7 +894,7 @@ Returns (end-pos end-of-buffer-p)"
                   (save-restriction
                     ;; Fix a mis-feature in `vertical-motion':
                     ;; The start of the window is assumed to
-                    ;; coinside with the start of a line.
+                    ;; coincide with the start of a line.
                     (narrow-to-region (point) (point-max))
                     (not (= height (vertical-motion height))))))
           (list (point) buffer-end-p))))))
@@ -1064,7 +1064,7 @@ Return the selected window."
 ;; it wasn't just moved here. (I.e. M-> shall not unconditionally place
 ;; the point in the selected window.)
 ;;
-;; (Compatibility cludge: in Emacs `window-end' is equal to `point-max';
+;; (Compatibility kludge: in Emacs `window-end' is equal to `point-max';
 ;; in XEmacs, it is equal to `point-max + 1'. Should I really bother
 ;; checking `window-end' now when I check `end-of-buffer' explicitly?)
 
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 77f2235e790..5c4ca40b204 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -2565,7 +2565,7 @@
         * gnus-sum.el (gnus-user-date): Rename back from
         gnus-summary-user-date since user code refers to it.
 
-        * shr.el (shr-render-td): Store the actual background colour used.
+        * shr.el (shr-render-td): Store the actual background color used.
 
         * message.el (message-setup-1): Don't bind the constant
         -forbidden-properties.
@@ -2653,9 +2653,9 @@
 
 2011-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
-        * shr.el (shr-render-td): Only do colours at the final rendering.
+        * shr.el (shr-render-td): Only do colors at the final rendering.
         Should be slightly faster.
-        (shr-insert-table): Fix up TD background colours when doing the
+        (shr-insert-table): Fix up TD background colors when doing the
         vertical padding.
 
         * gnus-art.el (article-date-ut): Protect against articles with no Date
@@ -2783,7 +2783,7 @@
 
 2011-01-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
-        * shr.el (shr-put-color): Special-case background colours: Do put them
+        * shr.el (shr-put-color): Special-case background colors: Do put them
         at the blank parts at the front of the lines.
 
         * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an
@@ -3788,7 +3788,7 @@
 
 2010-11-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-        * shr-color.el (shr-color-visible): Don't bug out if the colour names
+        * shr-color.el (shr-color-visible): Don't bug out if the color names
         don't exist.
 
 2010-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
@@ -3860,7 +3860,7 @@
 
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-        * shr.el (shr-color-check): Protect against non-existent colour names.
+        * shr.el (shr-color-check): Protect against non-existent color names.
 
 2010-11-24  Julien Danjou  <julien@danjou.info>
 
@@ -3886,7 +3886,7 @@
 2010-11-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * shr.el (shr-insert-color-overlay): Split stuff like
-        "#444444 !important" to find the real colour.
+        "#444444 !important" to find the real color.
         (shr-tag-font): Resurrect shr-tag-font again, since it's needed to
         parse <font color="red"> entries.
 
@@ -5997,15 +5997,15 @@
         highlight again, so that the highlight is correct.
 
         * gnus-picon.el (gnus-picon): Remove again.
-        (gnus-picon-create-glyph): Set the background XPM colour explicitly.
+        (gnus-picon-create-glyph): Set the background XPM color explicitly.
 
         * gnus-art.el (gnus-treatment-function-alist): Insert picons after
-        doing the header highlightling, so that the background colour of the
+        doing the header highlightling, so that the background color of the
         picon is correct.
 
         * gnus-picon.el (gnus-picon-xbm): Remove obsolete face.
         (gnus-picon): Ditto.
-        (gnus-picon): Reinstate.  The background colour for picons is white.
+        (gnus-picon): Reinstate.  The background color for picons is white.
         (gnus-picon-insert-glyph): Make the background white.
 
         * nnml.el (nnml-open-nov): Don't return dead buffers.
@@ -7417,7 +7417,7 @@
         UTF-8.  This seems to fix problems with some German web feeds.
 
         * gnus.el (gnus-group-startup-message): Put the xpm version of the logo
-        at the top so that the proper colours are applied.
+        at the top so that the proper colors are applied.
 
         * gnus-art.el (gnus-article-view-part): Doc fix.
 
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 8deb27379a3..f913ddb5378 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -140,7 +140,7 @@ This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
 ;;   :mouse-2 command-on-mouse-2-press
 ;;   :mouse-3 command-on-mouse-3-press) ;; typically a menu of related commands
 ;;
-;; Combinations of mouse-[23] plus shift and/or controll might be overkill.
+;; Combinations of mouse-[23] plus shift and/or control might be overkill.
 ;;
 ;; Then use (plist-get rs-command :none), (plist-get rs-command :shift)
 
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el
index f0951b7b803..128bda6f516 100644
--- a/lisp/gnus/smime.el
+++ b/lisp/gnus/smime.el
@@ -588,7 +588,7 @@ A string or a list of strings is returned."
                   (filter &optional host attributes attrsonly withdn))
 
 (defun smime-cert-by-ldap-1 (mail host)
-  "Get cetificate for MAIL from the ldap server at HOST."
+  "Get certificate for MAIL from the ldap server at HOST."
   (let ((ldapresult
          (funcall
           (if (featurep 'xemacs)
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 17ddddbd17a..3f3b0b7a843 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2504,7 +2504,7 @@ Other commands:
 
 ** Information on Filtering:
 
- You can filter your ibuffer view via different critera.  Each Ibuffer
+ You can filter your ibuffer view via different criteria.  Each Ibuffer
 buffer has its own stack of active filters.  For example, suppose you
 are working on an Emacs Lisp project.  You can create an Ibuffer
 buffer displays buffers in just `emacs-lisp' modes via
diff --git a/lisp/ido.el b/lisp/ido.el
index fda4c0316f7..6af431a2882 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -258,7 +258,7 @@
 ;; The highlighting of matching items is controlled via ido-use-faces.
 ;; The faces used are ido-first-match, ido-only-match and
 ;; ido-subdir.
-;; Colouring of the matching item was suggested by
+;; Coloring of the matching item was suggested by
 ;; Carsten Dominik (dominik@strw.leidenuniv.nl).
 
 ;; Replacement for read-buffer and read-file-name
@@ -3152,7 +3152,7 @@ for first matching file."
 ;;; CREATE LIST OF ALL CURRENT FILES
 
 (defun ido-all-completions ()
-  ;; Return unsorted list of all competions.
+  ;; Return unsorted list of all completions.
   (let ((ido-process-ignore-lists nil)
         (ido-directory-too-big nil))
     (cond
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 47426784e51..94237a0a489 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -466,7 +466,7 @@ with L, LRE, or LRO Unicode bidi character type.")
 
 ;; Tai Viet
 (let ((deflist '(;; chars       syntax  category
-                 ((?ꪀ.  ?ꪯ) "w"     ?0) ; cosonant
+                 ((?ꪀ.  ?ꪯ) "w"     ?0) ; consonant
                  ("ꪱꪵꪶ"           "w"     ?1) ; vowel base
                  ((?ꪹ . ?ꪽ) "w"     ?1) ; vowel base
                  ("ꪰꪲꪳꪷꪸꪾ"  "w"     ?2) ; vowel upper
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index a7d3328526a..e8860cba595 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -163,7 +163,7 @@
 ;; Font-Lock
 
 ;; font-lock is used to highlight the first matching buffer.  To
-;; switch this off, set (setq iswitchb-use-faces nil).  Colouring of
+;; switch this off, set (setq iswitchb-use-faces nil).  Coloring of
 ;; the matching buffer name was suggested by Carsten Dominik
 ;; (dominik@strw.leidenuniv.nl)
 
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index d0907b078ac..1ba8ec9f821 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -336,7 +336,7 @@
 ;;           for FQM files if you're a VM user
 ;;         change buffer-substring calls to buffer-substring-no-properties for
 ;;           speed-up (suggested by Howard Melman <howard@silverstream.com>)
-;;         feedmail-sendmail-f-doesnt-sell-me-out to contol "-f" in call to sendmail
+;;         feedmail-sendmail-f-doesnt-sell-me-out to control "-f" in call to sendmail
 ;;           in feedmail-buffer-to-sendmail
 ;;         better trapping of odd conditions during the running of the queue;
 ;;           thanks to Yigal Hochberg for helping me test much of this by remote
@@ -2410,7 +2410,7 @@ mapped to mostly alphanumerics for safety."
         (a-re-dtcb  "^\\(To\\|Cc\\|Bcc\\):")
         (a-re-dtc   "^\\(To\\|Cc\\):")
         (a-re-db    "^Bcc:")
-        ;; to get a temporary changable copy
+        ;; to get a temporary changeable copy
         (mail-header-separator mail-header-separator)
         )
     (unwind-protect
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 07c558f60cc..88a6ed84055 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -1,4 +1,4 @@
-;;; mh-compat.el --- make MH-E compatibile with various versions of Emacs
+;;; mh-compat.el --- make MH-E compatible with various versions of Emacs
 
 ;; Copyright (C) 2006-2011  Free Software Foundation, Inc.
 
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index a547dd8d80a..c8f2440e276 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1791,7 +1791,7 @@ PROC is used to convert the value to actual data."
 ;; To add support for your favorite checksum program add a clause to
 ;; the cond statement in mh-checksum-choose. This should set the
 ;; variable mh-checksum-cmd to the command line needed to run the
-;; checsum program and should set mh-checksum-parser to a function
+;; checksum program and should set mh-checksum-parser to a function
 ;; which returns a cons cell containing the message number and
 ;; checksum string.
 
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 64b2d34af9c..1f6c4464808 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -53,7 +53,7 @@ These are the special commands of this mode:
     s -- Select the server at point.
     t -- Transpose the server at point and the previous one
     q -- Commit the changes and quit.
-    x -- Quit without commiting the changes."
+    x -- Quit without committing the changes."
   (interactive)
   (kill-all-local-variables)
   (setq major-mode 'eudc-hotlist-mode)
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 88deef46862..173ba9c3d20 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -78,7 +78,7 @@
 ;;   (secrets-create-collection "my collection")
 
 ;; There exists a special collection called "session", which has the
-;; lifetime of the corrresponding client session (aka Emacs'
+;; lifetime of the corresponding client session (aka Emacs'
 ;; lifetime).  It is created automatically when Emacs uses the Secret
 ;; Service interface, and it is deleted when Emacs is killed.
 ;; Therefore, it can be used to store and retrieve secret items
diff --git a/lisp/nxml/nxml-outln.el b/lisp/nxml/nxml-outln.el
index 6a2a9daf7e4..53d2cabc2e5 100644
--- a/lisp/nxml/nxml-outln.el
+++ b/lisp/nxml/nxml-outln.el
@@ -60,7 +60,7 @@
 ;; form.  Single-line form is used when the outline state is hide-children
 ;; or there are no child sections; multi-line form is used otherwise.
 ;; There are two flavors of single-line form: with children and without.
-;; The with-childen flavor is used when there are child sections.
+;; The with-children flavor is used when there are child sections.
 ;; Single line with children looks like
 ;;    <+section>A section title...</>
 ;; Single line without children looks like
diff --git a/lisp/obsolete/pgg-gpg.el b/lisp/obsolete/pgg-gpg.el
index 064985f4566..2eafc631e98 100644
--- a/lisp/obsolete/pgg-gpg.el
+++ b/lisp/obsolete/pgg-gpg.el
@@ -384,7 +384,7 @@ passphrase cache or user."
     (pgg-process-when-success)))
 
 (defun pgg-gpg-update-agent ()
-  "Try to connet to gpg-agent and send UPDATESTARTUPTTY."
+  "Try to connect to gpg-agent and send UPDATESTARTUPTTY."
   (if (fboundp 'make-network-process)
       (let* ((agent-info (getenv "GPG_AGENT_INFO"))
              (socket (and agent-info
diff --git a/lisp/org/org.el b/lisp/org/org.el
index a22cf4d6efc..5d988b3cecd 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -2924,7 +2924,7 @@ is better to limit inheritance to certain tags using the variables
           (const :tag "List them, indented with leading dots" indented)))
 
 (defcustom org-tags-sort-function nil
-  "When set, tags are sorted using this function as a comparator."
+  "When set, tags are sorted using this comparison function."
   :group 'org-tags
   :type '(choice
           (const :tag "No sorting" nil)
@@ -5549,7 +5549,7 @@ Use `org-reduced-level' to remove the effect of `org-odd-levels'."
 
 (defvar org-font-lock-set-keywords-hook nil
   "Functions that can manipulate `org-font-lock-extra-keywords'.
-This is calles after `org-font-lock-extra-keywords' is defined, but before
+This is called after `org-font-lock-extra-keywords' is defined, but before
 it is installed to be used by font lock.  This can be useful if something
 needs to be inserted at a specific position in the font-lock sequence.")
 
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 81d1c0d2f32..6f3004e274a 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -2331,7 +2331,7 @@ comment at the start of cc-engine.el for more info."
   ;;
   ;; If there aren't enough opening paren/brace/brackets, return the position
   ;; of the outermost one found, or HERE- if there are none.  If there are no
-  ;; closeing p/b/bs between HERE+ and TOP, return HERE-.  HERE-/+ and TOP
+  ;; closing p/b/bs between HERE+ and TOP, return HERE-.  HERE-/+ and TOP
   ;; must not be inside literals.  Only the accessible portion of the buffer
   ;; will be scanned.
 
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 2028a7c4675..a5a9582315b 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1103,7 +1103,7 @@ casts and declarations are fontified.  Used on level 2 and higher."
               (<= (point) limit))
 
             ;; Search syntactically to the end of the declarator (";",
-            ;; ",", a closen paren, eob etc) or to the beginning of an
+            ;; ",", a closing paren, eob etc) or to the beginning of an
             ;; initializer or function prototype ("=" or "\\s\(").
             ;; Note that the open paren will match array specs in
             ;; square brackets, and we treat them as initializers too.
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index ff192d5678e..dbffbc266e7 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -339,7 +339,7 @@ See `compilation-error-screen-columns'"
   "The most recent grep buffer.
 A grep buffer becomes most recent when you select Grep mode in it.
 Notice that using \\[next-error] or \\[compile-goto-error] modifies
-`complation-last-buffer' rather than `grep-last-buffer'.")
+`compilation-last-buffer' rather than `grep-last-buffer'.")
 
 ;;;###autoload
 (defconst grep-regexp-alist
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 453badfa46b..aa27427da67 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -925,7 +925,7 @@ IDL has currently stepped.")
    \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the
    mouse, help, \\[idlwave-shell-help-expression] or
    \\[idlwave-shell-mouse-help] with the mouse, or with a
-   configureable set of custom examine commands using
+   configurable set of custom examine commands using
    \\[idlwave-shell-examine-select].  The mouse examine commands can
    also work by click and drag, to select an expression for
    examination.
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index d3770247c60..1233ee19ff6 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -605,7 +605,7 @@ The value of this variable may be nil to inhibit display, or an integer to
 indicate the maximum number of classes to display.
 
 On XEmacs, a full list of classes will also be placed into a `help-echo'
-property on the competion items, so that the list of classes for the current
+property on the completion items, so that the list of classes for the current
 item is displayed in the echo area.  If the value of this variable is a
 negative integer, the `help-echo' property will be suppressed."
   :group 'idlwave-completion
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index 5505e8e94b2..4040a5c431e 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -1295,7 +1295,7 @@ LIMIT defaults to point."
 ;; Like (up-list -1), but only considers lists that end nearby"
 (defun js--up-nearby-list ()
   (save-restriction
-    ;; Look at a very small region so our compuation time doesn't
+    ;; Look at a very small region so our computation time doesn't
     ;; explode in pathological cases.
     (narrow-to-region (max (point-min) (- (point) 500)) (point))
     (up-list -1)))
diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el
index 103c7be7d3c..7d1f12595ab 100644
--- a/lisp/progmodes/mixal-mode.el
+++ b/lisp/progmodes/mixal-mode.el
@@ -1058,7 +1058,7 @@ EXECUTION-TIME holds info about the time it takes, number or string.")
    (list
     (let* ((completion-ignore-case t)
            ;; we already have a list, but it is not in the right format
-           ;; transform it to a valid table so completition can use it
+           ;; transform it to a valid table so completion can use it
            (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil))
                           mixal-operation-codes-alist))
            ;; prompt is different depending on we are close to a valid op-code
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 93d27042dc8..ef0905bb2a8 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -116,7 +116,7 @@
 ;; Version 1.22:
 ;;  o  Allowed both 'swipl' and 'pl' as names for the SWI Prolog
 ;;     interpreter.
-;;  o  Atoms that start a line are not blindly coloured as
+;;  o  Atoms that start a line are not blindly colored as
 ;;     predicates.  Instead we check that they are followed by ( or
 ;;     :- first.  Patch suggested by Guy Wiener.
 ;; Version 1.21:
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 00466b8b1e7..3a3c7f0baa3 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -1847,7 +1847,7 @@ find the errors."
    ))
 
 (defconst verilog-auto-end-comment-lines-re
-  ;; Matches to names in this list cause auto-end-commentation
+  ;; Matches to names in this list cause auto-end-commenting
   (concat "\\("
           verilog-directive-re "\\)\\|\\("
           (eval-when-compile
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 31609232884..00f68a0b45f 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -632,7 +632,7 @@ with `.' followed by extensions, followed by full-filenames."
         (setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist))))
       (setq extlist (cdr extlist)))
     ;; concat all the sub-exressions together, making sure all types
-    ;; of parts exist during concatination.
+    ;; of parts exist during concatenation.
     (concat "\\("
             (if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "")
             (if (and regex1 regex2) "\\|" "")
@@ -2219,7 +2219,7 @@ passes some tests."
         ;; Go through all our bins  Stick singles into our
         ;; junk-list, everything else as sublsts in work-list.
         ;; If two neighboring lists are both small, make a grouped
-        ;; group combinding those two sub-lists.
+        ;; group combining those two sub-lists.
         (setq diff-idx 0)
         (while (> 256 diff-idx)
           ;; The bins contents are currently in forward order.
@@ -3327,7 +3327,7 @@ current indentation level."
     (speedbar-find-file-in-frame (concat cdd text))
     (speedbar-stealthy-updates)
     (run-hooks 'speedbar-visiting-file-hook)
-    ;; Reset the timer with a new timeout when cliking a file
+    ;; Reset the timer with a new timeout when clicking a file
     ;; in case the user was navigating directories, we can cancel
     ;; that other timer.
     (speedbar-set-timer dframe-update-speed))
@@ -3447,7 +3447,7 @@ INDENT is the current indentation level."
       (select-frame f))
     (speedbar-find-file-in-frame file)
     (save-excursion (speedbar-stealthy-updates))
-    ;; Reset the timer with a new timeout when cliking a file
+    ;; Reset the timer with a new timeout when clicking a file
     ;; in case the user was navigating directories, we can cancel
     ;; that other timer.
     (speedbar-set-timer dframe-update-speed)
diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 43b799df1c9..a43864e36d6 100644
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -68,7 +68,7 @@
 ;;   MULE charset, Emacs can display a single MULE charset with the
 ;;   glyphs of the current codepage.  When Emacs starts on DOS, it
 ;;   automatically sets its default coding systems for file I/O and
-;;   terminal output according to the currend DOS codepage, given by
+;;   terminal output according to the current DOS codepage, given by
 ;;   the `dos-codepage' variable.
 ;;
 ;;   This leaves us with the problem of displaying character sets
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index a5099311307..db536c100f3 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1446,7 +1446,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
                              ;; is used, string is a TeX command
                              ;; (char before beginning of word is
                              ;; backslash) and none of the previous
-                             ;; contitions match
+                             ;; conditions match.
                              (and (not ispell-really-aspell)
                                   (save-excursion
                                     (goto-char (- (nth 1 found-list) 1))
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index d66b297bd2b..6f9e7e1bdb0 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -2323,7 +2323,7 @@ of (COLUMN-NUMBER . LINE) pairs."
     (indent-rigidly
      mbeg mend
 
-     ;; Find the next tab after the leftmost columnt.
+     ;; Find the next tab after the leftmost column.
      (let ((tab (funcall find-next-fun tabs leftmostcol)))
 
        (if tab
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 2dc4e4a88b1..08922445521 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -1482,7 +1482,7 @@ the last cache point coordinate."
            (cons (cons command func-symbol)
                  table-command-remap-alist))))
  '(center-line
-   conter-region
+   center-region
    center-paragraph
    fill-paragraph))
 
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index deb92fc0243..c4892ce572c 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1871,7 +1871,7 @@ Mark is left at original location."
      tex-old-error-file-name 2 nil 1 1
      (2 compilation-warning-face))
     ;; Included files get output as (<file> ...).
-    ;; FIXME: there tend to be a crapload of them at the beginning of the
+    ;; FIXME: there tend to be a boatload of them at the beginning of the
     ;; output which aren't that interesting.  Maybe we should filter out
     ;; all the file name that start with /usr/share?
     ;; ("(\\.?/\\([^() \n]+\\)" 1 nil nil 0)
diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 7a505758408..6ac8eddc9d6 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -26,7 +26,7 @@
 ;; This package create two new modes: thumbs-mode and thumbs-view-image-mode.
 ;; It is used for basic browsing and viewing of images from within Emacs.
 ;; Minimal image manipulation functions are also available via external
-;; programs.  If you want to do more complex tasks like categorise and tag
+;; programs.  If you want to do more complex tasks like categorize and tag
 ;; your images, use image-dired.el
 ;;
 ;; The 'convert' program from 'ImageMagick'
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 3d1f6afcb0e..95ab2623fff 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -909,7 +909,7 @@ Returns nil if URL contains no name starting with FILE."
       ;; Only one file and FILE matches it exactly...
       t)
      (t
-      ;; Need to figure out the longest string that they have in commmon
+      ;; Need to figure out the longest string that they have in common
       (setq matches (sort matches (lambda (a b) (> (length a) (length b)))))
       (let ((n (length file))
             (searching t)
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index e9da4a1010c..bb7744be434 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -702,7 +702,7 @@ should be shown to the user."
          (not-acceptable                ; 406
           ;; The resource identified by the request is only capable of
           ;; generating response entities which have content
-          ;; characteristics nota cceptable according to the accept
+          ;; characteristics not acceptable according to the accept
           ;; headers sent in the request.
           (setq success t))
          (proxy-authentication-required ; 407
@@ -1092,7 +1092,7 @@ the end of the document."
             (url-http-activate-callback)))
          ((string= "CONNECT" url-http-method)
           ;; A CONNECT request is finished, but we cannot stick this
-          ;; back on the free connectin list
+          ;; back on the free connection list
           (url-http-debug "CONNECT request must have headers only.")
           (when (url-http-parse-headers)
             (url-http-activate-callback)))
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 7136b6023ce..c95b61c43fb 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -252,7 +252,7 @@ no further processing).  URL is either a string or a parsed URL."
             ;; interrupt it before it got a chance to handle process input.
             ;; `sleep-for' was tried but it lead to other forms of
             ;; hanging.  --Stef
-            (unless (or (with-local-quit 
+            (unless (or (with-local-quit
                           (accept-process-output proc))
                         (null proc))
               ;; accept-process-output returned nil, maybe because the process
@@ -290,7 +290,7 @@ no further processing).  URL is either a string or a parsed URL."
   ;; These requires could advantageously be moved to url-mm-callback or
   ;; turned into autoloads, but I suspect that it would introduce some bugs
   ;; because loading those files from a process sentinel or filter may
-  ;; result in some undesirable carner cases.
+  ;; result in some undesirable corner cases.
   (require 'mm-decode)
   (require 'mm-view)
   (url-retrieve url 'url-mm-callback nil))
diff --git a/lisp/vc/ediff-ptch.el b/lisp/vc/ediff-ptch.el
index d930a1bec69..ef273c610fe 100644
--- a/lisp/vc/ediff-ptch.el
+++ b/lisp/vc/ediff-ptch.el
@@ -635,7 +635,7 @@ optional argument, then use it."
 ;; Traditional patch has weird return codes.
 ;; GNU and Posix return 1 if some hanks failed and 2 in case of trouble.
 ;; 0 is a good code in all cases.
-;; We'll do the concervative thing.
+;; We'll do the conservative thing.
 (defun ediff-patch-return-code-ok (code)
   (eq code 0))
 ;;;  (if (eq (ediff-test-patch-utility) 'traditional)
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 35fa11c2e5e..148f6cde930 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -72,7 +72,7 @@ An empty list disables VC altogether."
   :group 'vc)
 
 ;; Note: we don't actually have a darcs back end yet.
-;; Also, Meta-CVS (corresponsding to MCVS) is unsupported.
+;; Also, Meta-CVS (corresponding to MCVS) is unsupported.
 (defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS"
                                          ".svn" ".git" ".hg" ".bzr"
                                          "_MTN" "_darcs" "{arch}"))
@@ -456,8 +456,8 @@ For registered files, the value returned is one of:
   'edited            The working file has been edited by the user.  If
                      locking is used for the file, this state means that
                      the current version is locked by the calling user.
-                     This status should *not* be reported for files 
-                     which have a changed mtime but the same content 
+                     This status should *not* be reported for files
+                     which have a changed mtime but the same content
                      as the repo copy.
 
   USER               The current version of the working file is locked by
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el
index dc4e179e060..d014c4da135 100644
--- a/lisp/vc/vc-svn.el
+++ b/lisp/vc/vc-svn.el
@@ -706,7 +706,7 @@ information about FILENAME and return its status."
   (vc-svn-command buf 'async file "annotate" (if rev (concat "-r" rev))))
 
 (defun vc-svn-annotate-time-of-rev (rev)
-  ;; Arbitrarily assume 10 commmits per day.
+  ;; Arbitrarily assume 10 commits per day.
   (/ (string-to-number rev) 10.0))
 
 (defvar vc-annotate-parent-rev)
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index dde85478f7e..53a35b4f0b3 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -525,7 +525,7 @@ evaluated instead of indentation::space value.
 
 One reason for not visualize spaces via faces (if `face' is not
 included in `whitespace-style') is to use exclusively for
-cleanning up a buffer.  See `whitespace-cleanup' and
+cleaning up a buffer.  See `whitespace-cleanup' and
 `whitespace-cleanup-region' for documentation.
 
 See also `whitespace-display-mappings' for documentation."
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b0d00242f2a..8c4df9fc9cf 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2363,7 +2363,7 @@ Return an alist of (TYPE MATCH)."
     result))
 
 (defun widget-checklist-validate (widget)
-  ;; Ticked chilren must be valid.
+  ;; Ticked children must be valid.
   (let ((children (widget-get widget :children))
         child button found)
     (while (and children (not found))
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 04b759a8116..fbb76da1b91 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -410,7 +410,7 @@ otherwise return the frame width/height."
   "Return the x/y coordinates to be sent in a XDndStatus message.
 Coordinates are required to be absolute.
 FRAME is the frame and W is the window where the drop happened.
-If W is a window, return its absolute corrdinates,
+If W is a window, return its absolute coordinates,
 otherwise return the frame coordinates."
   (let* ((frame-left (frame-parameter frame 'left))
          ;; If the frame is outside the display, frame-left looks like
@@ -444,7 +444,7 @@ otherwise return the frame coordinates."
   (if (consp flags)
       (logand (cdr flags) 1)
     (logand flags 1)))
-      
+
 (defun x-dnd-handle-xdnd (event frame window message _format data)
   "Receive one XDND event (client message) and send the appropriate reply.
 EVENT is the client message.  FRAME is where the mouse is now.