Spelling fixes.

72 files changed, 109 insertions, 110 deletions

diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index aa9c9066dc1..e51e10df6a5 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -5815,7 +5815,7 @@
         querying the password for.
 
         * ibuffer.el (ibuffer-visit-buffer): To mimick list-buffers
-        behaviour, don't bury the ibuffer buffer when visiting other buffers.
+        behavior, don't bury the ibuffer buffer when visiting other buffers.
 
 2010-10-08  Chong Yidong  <cyd@stupidchicken.com>
 
diff --git a/lisp/apropos.el b/lisp/apropos.el
index 1dfe5cde9ed..9a372f27991 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1052,7 +1052,7 @@ If non-nil TEXT is a string that will be printed as a heading."
                        ;; omitting any that contain a buffer or a frame.
                        ;; FIXME: Why omit keys that contain buffers and
                        ;; frames?  This looks like a bad workaround rather
-                       ;; than a proper fix.  Does anybod know what problem
+                       ;; than a proper fix.  Does anybody know what problem
                        ;; this is trying to address?  --Stef
                        (dolist (key keys)
                          (let ((i 0)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index e3d1955ded5..4e45383eaec 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1036,7 +1036,7 @@ using `make-temp-file', and the generated name is returned."
           (setq archive-file-name-coding-system file-name-coding)
           (if (and
                (null
-                (let (;; We may have to encode file name arguement for
+                (let (;; We may have to encode the file name argument for
                       ;; external programs.
                       (coding-system-for-write
                        (and enable-multibyte-characters
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 14f09517b1d..987351a25e0 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -909,7 +909,7 @@ Optional ROOTRETURN will return the root project for DIR."
         ;; recomment as we go
         ;;nil
         ))
-     ;; Do nothing if we are buiding an EDE project already
+     ;; Do nothing if we are building an EDE project already.
      (ede-constructing
       nil)
      ;; Load in the project in question.
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index b557d703f29..5ed83b39163 100644
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -249,7 +249,7 @@ All directories need at least one target.")
   "EDE Generic Project target for Misc files.
 All directories need at least one target.")
 
-;;; Automatic target aquisition.
+;;; Automatic target acquisition.
 (defun ede-generic-find-matching-target (class dir targets)
   "Find a target that is a CLASS and is in DIR in the list of TARGETS."
   (let ((match nil))
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index a61fb6b1cf2..636ac30b166 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -302,7 +302,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
                                      (mapcar 'semantic-tag-type-members
                                              tagtype))))
                          (oset miniscope fullscope rawscope)))
-                     ;; Now analayze the type to remove metatypes.
+                     ;; Now analyze the type to remove metatypes.
                      (or (semantic-analyze-type tmp miniscope)
                          tmp))
                     (t
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 74c4d8e3788..35aef5d16ef 100644
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -918,7 +918,7 @@ but should be good enough for debugging assertions."
                          result
                          " ")
               ">")
-    ;; Longer results should have an abreviated form.
+    ;; Longer results should have an abbreviated form.
     (format "#<FIND RESULT %d TAGS in %d FILES>"
             (semanticdb-find-result-length result)
             (length result))))
diff --git a/lisp/cedet/semantic/decorate.el b/lisp/cedet/semantic/decorate.el
index ee356ad3a9e..4eeac8de141 100644
--- a/lisp/cedet/semantic/decorate.el
+++ b/lisp/cedet/semantic/decorate.el
@@ -107,7 +107,7 @@ the extent 'intangible' property does not exist."
   "Hook used in modification hooks to prevent modification.
 Allows deletion of the entire text.
 Argument OVERLAY, AFTER, START, END, and LEN are passed in by the system."
-  ;; Stolen blithly from cpp.el in Emacs 21.1
+  ;; Stolen blithely from cpp.el in Emacs 21.1
   (if (and (not after)
            (or (< (semantic-overlay-start overlay) start)
                (> (semantic-overlay-end overlay) end)))
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index a37f43d177f..e32aca54b0f 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -459,7 +459,7 @@ to add the path to Semantic's search.
 If this is an include file that belongs to your project, then you may
 need to update `semanticdb-project-roots' or better yet, use `ede'
 to manage your project.  See the ede manual for projects that will
-wrap existing project code for Semantic's benifit.
+wrap existing project code for Semantic's benefit.
 ")
 
       (when (or (eq mm 'c++-mode) (eq mm 'c-mode))
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 69b1dba0bcf..3941424e4b5 100644
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -199,7 +199,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
         )
     (if pf
         (message "%s" (semantic-format-tag-summarize pf nil t))
-      (message "No summary info availalble"))))
+      (message "No summary info available"))))
 
 ;;; Variants
 ;;
@@ -245,7 +245,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
 ;; Jump to a destination based on the local context.
 ;;
 ;; This shows how to use the analyzer context, and the
-;; analyer references objects to choose a good destination.
+;; analyzer references objects to choose a good destination.
 
 (defun semantic-ia--fast-jump-helper (dest)
   "Jump to DEST, a Semantic tag.
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index e49968b07e7..5489765dcc8 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -709,7 +709,7 @@ ARGVALUES are values for any arg list, or nil."
 
 ;;; Symbol Is Macro
 ;;
-;; An analyser that will push tokens from a macro in place
+;; An analyzer that will push tokens from a macro in place
 ;; of the macro symbol.
 ;;
 (defun semantic-lex-spp-anlyzer-do-replace (sym val beg end)
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index d6b8e1a8bf5..a9a5ab586d0 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -1437,7 +1437,7 @@ Return either a paren token or a semantic list token depending on
 ;;; Comment lexer
 ;;
 ;; Predefined lexers that could be used instead of creating new
-;; analyers.
+;; analyzers.
 
 (define-lex semantic-comment-lexer
   "A simple lexical analyzer that handles comments.
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 30c57571599..64e60fae0f2 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -384,7 +384,7 @@ be found."
 ;;------------------------------------------------------------
 
 (define-overloadable-function semantic-analyze-scoped-tags (typelist parentlist)
-  "Return accessable tags when TYPELIST and PARENTLIST is in scope.
+  "Return accessible tags when TYPELIST and PARENTLIST is in scope.
 Tags returned are not in the global name space, but are instead
 scoped inside a class or namespace.  Such items can be referenced
 without use of \"object.function()\" style syntax due to an
diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el
index cae52428e75..f392379347a 100644
--- a/lisp/cedet/srecode/ctxt.el
+++ b/lisp/cedet/srecode/ctxt.el
@@ -73,7 +73,7 @@ Some useful context values used by the provided srecode templates are:
   )
 
 (defun srecode-calculate-nearby-things ()
-  ;; NOTE: May need to add bounes to this FCN
+  ;; NOTE: May need to add bounds to this FCN
   "Calculate the CONTEXT type items nearby the current point.
 Assume that what we want to insert next is based on what is just
 before point.  If there is nothing, then assume it is whatever is
diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el
index a52cadbfb2c..61cbab19998 100644
--- a/lisp/cedet/srecode/document.el
+++ b/lisp/cedet/srecode/document.el
@@ -811,8 +811,8 @@ not account for verb parts."
             (if (string-match (car (car al)) (downcase ts))
                 (progn
                   (setq newstr (concat newstr (cdr (car al))))
-                  ;; don't terminate because we may actuall have 2 words
-                  ;; next to eachother we didn't identify before
+                  ;; don't terminate because we may actually have 2 words
+                  ;; next to each other we didn't identify before
                   (setq llow t)))
             (setq al (cdr al)))
           (if (not llow) (setq newstr (concat newstr ts)))
diff --git a/lisp/cedet/srecode/extract.el b/lisp/cedet/srecode/extract.el
index 80e6f9d8d1c..d87dc315829 100644
--- a/lisp/cedet/srecode/extract.el
+++ b/lisp/cedet/srecode/extract.el
@@ -61,7 +61,7 @@
   (oset st lastdict dict))
 
 (defmethod srecode-extract-state-set-anchor ((st srecode-extract-state))
-  "Reset the achor point on extract state ST."
+  "Reset the anchor point on extract state ST."
   (oset st anchor (point)))
 
 (defmethod srecode-extract-state-extract ((st srecode-extract-state)
diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index 088781cfb53..d7ca84c1f97 100644
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -101,7 +101,7 @@ Has virtual :start and :end initializers.")
             ))
 
     ;; Create a temporary overlay now.  We have to use an overlay and
-    ;; not a marker becaues of the in-front insertion rules.  The rules
+    ;; not a marker because of the in-front insertion rules.  The rules
     ;; are backward from what is wanted while typing.
     (setq olay (make-overlay start end (current-buffer) t nil))
     (overlay-put olay 'srecode-init-only t)
diff --git a/lisp/comint.el b/lisp/comint.el
index b91b82adb21..f25293ff3ac 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -3442,7 +3442,7 @@ Also print a message when redirection is completed."
   :group 'comint
   :type 'boolean)
 
-;; Directly analagous to comint-preoutput-filter-functions
+;; Directly analogous to comint-preoutput-filter-functions
 (defvar comint-redirect-filter-functions nil
   "List of functions to call before inserting redirected process output.
 Each function gets one argument, a string containing the text received
diff --git a/lisp/desktop.el b/lisp/desktop.el
index cdc787dfde9..f4991c5bcc6 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1176,7 +1176,7 @@ directory DIRNAME."
           (setq desktop-buffer-fail-count (1+ desktop-buffer-fail-count))
           (setq result nil))
         ;; Restore buffer list order with new buffer at end. Don't change
-        ;; the order for old desktop files (old desktop module behaviour).
+        ;; the order for old desktop files (old desktop module behavior).
         (unless (< desktop-file-version 206)
           (mapc 'bury-buffer buffer-list)
           (when result (bury-buffer result)))
diff --git a/lisp/dired.el b/lisp/dired.el
index 4e03d61a06e..90cf610116a 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1025,7 +1025,7 @@ BEG..END is the line where the file info is located."
   ;; spaces there (and within the filename as well, of course).
   (save-excursion
     (let (file file-col other other-col)
-      ;; Check that there is indeed a file, and that there is anoter adjacent
+      ;; Check that there is indeed a file, and that there is another adjacent
       ;; file with which to align, and that additional spaces are needed to
       ;; align the filenames.
       (when (and (setq file (progn (goto-char beg)
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 68a3440b179..119424e789c 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -958,7 +958,7 @@ if default value is nil."
           (progn
             (eieio-perform-slot-validation-for-default a type value skipnil)
             ;; Here we have found a :class version of a slot.  This
-            ;; requires a very different aproach.
+            ;; requires a very different approach.
             (aset newc class-class-allocation-a (cons a (aref newc class-class-allocation-a)))
             (aset newc class-class-allocation-doc (cons doc (aref newc class-class-allocation-doc)))
             (aset newc class-class-allocation-type (cons type (aref newc class-class-allocation-type)))
@@ -2563,7 +2563,7 @@ This is usually a symbol that starts with `:'."
 
 ;;;
 ;; We want all objects created by EIEIO to have some default set of
-;; behaviours so we can create object utilities, and allow various
+;; behaviors so we can create object utilities, and allow various
 ;; types of error checking.  To do this, create the default EIEIO
 ;; class, and when no parent class is specified, use this as the
 ;; default.  (But don't store it in the other classes as the default,
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 901b6d1bf6a..9822b556f34 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -434,7 +434,7 @@ In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'."
           nil
         (list (eldoc-current-symbol) argument-index)))))
 
-;; Move to the beginnig of current sexp.  Return the number of nested
+;; Move to the beginning of current sexp.  Return the number of nested
 ;; sexp the point was over or after.
 (defun eldoc-beginning-of-sexp ()
   (let ((parse-sexp-ignore-comments t)
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index 56efd142198..2e388d20114 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -393,7 +393,7 @@ FORM is of the form `(and FORM1 ...)'."
 (defun rx-anything (form)
   "Match any character."
   (if (consp form)
-      (error "rx `anythng' syntax error: %s" form))
+      (error "rx `anything' syntax error: %s" form))
   (rx-or (list 'or 'not-newline ?\n)))
 
 
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 010e32857c5..71e607140de 100644
--- a/lisp/emulation/crisp.el
+++ b/lisp/emulation/crisp.el
@@ -34,7 +34,7 @@
 ;; you put (setq crisp-load-scroll-all t) in your .emacs before
 ;; loading this package.  If this feature is enabled, it will bind
 ;; meta-f1 to the scroll-all mode toggle.  The scroll-all package
-;; duplicates the scroll-alling feature in CRiSP.
+;; duplicates the scroll-all feature in CRiSP.
 
 ;; Also, the default keybindings for brief/CRiSP override the M-x
 ;; key to exit the editor.  If you don't like this functionality, you
diff --git a/lisp/erc/erc-autoaway.el b/lisp/erc/erc-autoaway.el
index a15e038dddc..74172b2573f 100644
--- a/lisp/erc/erc-autoaway.el
+++ b/lisp/erc/erc-autoaway.el
@@ -263,7 +263,7 @@ exceeds `erc-autoaway-idle-seconds'."
   "Set the away state globally.
 
 If NOTEST is specified, do not check to see whether there is an
-activer server buffer available."
+active server buffer available."
   ;; Note that the idle timer runs, even when Emacs is inactive.  In
   ;; order to prevent flooding when we connect, we test for an
   ;; existing process.
@@ -284,4 +284,3 @@ activer server buffer available."
 ;; indent-tabs-mode: t
 ;; tab-width: 8
 ;; End:
-
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 52c8c2ddc20..a7c92084bf9 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -247,7 +247,7 @@ will have to visit the file 'eshell-cmd.el' and run the command
   '(eshell-named-command
     eshell-lisp-command
     eshell-process-identity)
-  "A list of functions which might return an ansychronous process.
+  "A list of functions which might return an asynchronous process.
 If they return a process object, execution of the calling Eshell
 command will wait for completion (in the background) before finishing
 the command."
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index fbbf3bad5a8..0a6e3a426a1 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1820,7 +1820,7 @@
 
 2011-03-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-        * gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if
+        * gnus-sum.el (gnus-articles-to-read): Revert back to old behavior if
         we're selecting a group with unread articles.
 
         * nnimap.el (nnimap-open-connection-1): Allow `network-only', too.
@@ -4557,7 +4557,7 @@
 
         * shr.el (shr-put-image): Use point even if only inserting text.
         (shr-put-image): Save excursion when inserting alt text on non-graphic
-        display, so the behaviour is the same when we are on a graphic display.
+        display, so the behavior is the same when we are on a graphic display.
 
         * nnir.el (nnir-run-swish-e): Remove hyrex support.
 
@@ -5178,7 +5178,7 @@
         bidning gnus-agent variables.
 
         * shr.el (shr-render-td): Use a cache for the table rendering function
-        to avoid getting an exponential rendering behaviour in nested tables.
+        to avoid getting an exponential rendering behavior in nested tables.
         (shr-insert): Rework the line-breaking algorithm.
         (shr-insert): Don't leave trailing spaces.
         (shr-insert-table): Also insert empty TDs.
@@ -6783,7 +6783,7 @@
 
         * gnus-start.el (gnus-get-unread-articles): Allow the backends to
         update the group info.  This makes the nndraft groups, for instance, go
-        back to their old behaviour.
+        back to their old behavior.
 
         * gnus-sum.el (gnus-select-newsgroup): Indent.
 
@@ -7175,7 +7175,7 @@
 
         * gnus-agent.el (gnus-agent-auto-agentize-methods): Change the default
         so that nnimap methods aren't agentized by default.  There's apparently
-        many problems related to agent/imap behaviour.
+        many problems related to agent/imap behavior.
 
         * gnus-art.el (gnus-article-copy-string): New command and key binding.
 
@@ -7220,7 +7220,7 @@
         storage than before.
 
         * gnus.el (gnus-refer-article-method): Change default to 'current.
-        When referring an article, the common behaviour is to refer it from the
+        When referring an article, the common behavior is to refer it from the
         current select method, not the native select method.  The chances of
         the native select method having the message in question is rather slim
         these days.
@@ -7236,7 +7236,7 @@
         * gnus-sum.el (gnus-summary-goto-unread): Change default to nil, so
         that commands like `d' (and the like) go to the next line in the
         buffer, instead of the next unread article.  I think this is the
-        behaviour that is most natural for most users.
+        behavior that is most natural for most users.
         (gnus-single-article-buffer): Change default to nil, so that people can
         have as many article buffers open as they have summary buffer.  I think
         this is the most natural way for the groups to behave.
@@ -16517,7 +16517,7 @@
 2005-06-16  Arne Jørgensen  <arne@arnested.dk>
 
         * smime.el (smime-cert-by-ldap-1): Detect PEM format without
-        header by looking for magic "MII" at the beginnig.
+        header by looking for magic "MII" at the beginning.
 
 2005-06-16  Miles Bader  <miles@gnu.org>
 
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 0068fbad6e2..a11e9ebf0fa 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1559,7 +1559,7 @@ node `(gnus)Gravatars' for details."
           gnus-treat-from-picon
           gnus-treat-from-gravatar
           gnus-treat-mail-gravatar)
-      ;; If there's much decoration, the user might prefer a boundery.
+      ;; If there's much decoration, the user might prefer a boundary.
       'head
     nil)
   "Draw a boundary at the end of the headers.
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 0b5a7ebf1f9..9f86e74bd99 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -157,7 +157,7 @@ There are currently two built-in format functions:
 ;; I just ignore it.
 ;;;###autoload
 (defun gnus-user-format-function-d (header)
-  ;; Returns an aproximative delay string for the next occurrence of this
+  ;; Return an approximate delay string for the next occurrence of this
   ;; message. The delay is given only in the first non zero unit.
   ;; Code partly stolen from article-make-date-line
   (let* ((extras (mail-header-extra header))
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 7c63d5e2653..b18b78df063 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1678,7 +1678,7 @@ If SCAN, request a scan of that group as well."
 
     ;; Sort the methods based so that the primary and secondary
     ;; methods come first.  This is done for legacy reasons to try to
-    ;; ensure that side-effect behaviour doesn't change from previous
+    ;; ensure that side-effect behavior doesn't change from previous
     ;; Gnus versions.
     (setq type-cache
           (sort (nreverse type-cache)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 5e034b14fde..efdc237d11f 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -256,7 +256,7 @@ if the variable `help-downcase-arguments' is non-nil."
               ;; so let's skip over it
               (search-backward "(")
               (goto-char (scan-sexps (point) 1)))))
-        ;; Highlight aguments in the USAGE string
+        ;; Highlight arguments in the USAGE string
         (setq usage (help-do-arg-highlight (buffer-string) args))
         ;; Highlight arguments in the DOC string
         (setq doc (and doc (help-do-arg-highlight doc args))))))
diff --git a/lisp/info.el b/lisp/info.el
index b3bdbc5e5be..0148ee544f9 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -264,7 +264,7 @@ Before leaving the initial Info node, where isearch was started,
 it fails once with the error message [initial node], and with
 subsequent C-s/C-r continues through other nodes without failing
 with this error message in other nodes.  When isearch fails for
-the rest of the manual, it wraps aroung the whole manual and
+the rest of the manual, it wraps around the whole manual and
 restarts the search from the top/final node depending on
 search direction.
 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3ffe6e8a656..2013d7f7078 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2243,7 +2243,7 @@ If there is no completion possible, say so and continue searching."
 ;; Searching
 
 (defvar isearch-search-fun-function nil
-  "Overrides the default `isearch-search-fun' behaviour.
+  "Overrides the default `isearch-search-fun' behavior.
 This variable's value should be a function, which will be called
 with no arguments, and should return a function that takes three
 arguments: STRING, BOUND, and NOERROR.
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index bb242a50acc..444f4d519da 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -582,7 +582,7 @@ See also the descriptions of the variables
             (narrow-to-region p (point))
             (robin-invert-region (point-min) (point-max) "ethiopic-sera")
 
-            ;; ethio-quote-vowel-alwyas
+            ;; ethio-quote-vowel-always
             (goto-char (point-min))
             (while (re-search-forward "'[eauio]" nil t)
               (save-excursion
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 81c5577fa57..83386f2e852 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -372,7 +372,7 @@ indicate the place to embed a consonant.
 
 Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL
 follwoing a consonant and preceding a maa-sakod character.  If it is
-nil, NO-MAA-SAKOD-RULE is used.  The maa-sakod character is alwasy
+nil, NO-MAA-SAKOD-RULE is used.  The maa-sakod character is always
 appended at the tail.
 
 For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 8847c16bfb4..744560a8223 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -20621,7 +20621,7 @@ normalized footnotes towards the end of the pre-processing buffer.
 Some exporters like docbook, odt, etc. expect that footnote
 definitions be available before any references to them.  Such
 exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
-symbol 'point-min to achieve the desired behaviour.
+symbol 'point-min to achieve the desired behavior.
 
 Additional note on `org-footnote-insert-pos-for-preprocessor':
 1. This variable has not effect when FOR-PREPROCESSOR is nil.
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index f4b29958aab..d0907b078ac 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1356,7 +1356,7 @@ for you.  Add this function to `mail-send-hook' with something like this:
         (add-hook 'mail-send-hook 'feedmail-mail-send-hook-splitter)
 
 Then add the functions you want called to either `feedmail-mail-send-hook-queued'
-or `feedmail-mail-send-hook', as apprpriate.  The distinction is that
+or `feedmail-mail-send-hook', as appropriate.  The distinction is that
 `feedmail-mail-send-hook' will be called when you send mail from a composition
 buffer (typically by typing C-c C-c), whether the message is sent immediately
 or placed in the queue or drafts directory.  `feedmail-mail-send-hook-queued' is
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index d1b3ccebf46..c6d60b3b2e2 100644
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -272,7 +272,7 @@ Blind aliases or users from /etc/passwd are not expanded."
                       (completing-read prompt mh-alias-alist nil nil) ",")))))
       (if (not mh-alias-expand-aliases-flag)
           (mapconcat 'identity the-answer ", ")
-        ;; Loop over all elements, checking if in passwd aliast or blind first
+        ;; Loop over all elements, checking if in passwd alias or blind first
         (mapconcat 'mh-alias-expand the-answer ",\n ")))))
 
 ;;;###mh-autoload
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 3f1437f0799..791e566fc8e 100644
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -26,7 +26,7 @@
 ;;
 ;; This package provides a simple method of inserting a URL based on the
 ;; text at point in the current buffer. This is part of an on-going effort
-;; to increase the information I provide people while reducing the ammount
+;; to increase the information I provide people while reducing the amount
 ;; of typing I need to do. No-doubt there are undiscovered Emacs packages
 ;; out there that do all of this and do it better, feel free to point me to
 ;; them, in the mean time I'm having fun playing with Emacs Lisp.
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 55732194bc8..6cba1a5b7a6 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -4307,7 +4307,7 @@ connection if a previous connection has died for some reason."
                          (tramp-compat-temporary-file-directory)))))
                      spec)
 
-                ;; Add arguments for asynchrononous processes.
+                ;; Add arguments for asynchronous processes.
                 (when (and process-name async-args)
                   (setq login-args (append async-args login-args)))
 
diff --git a/lisp/net/zeroconf.el b/lisp/net/zeroconf.el
index 9060e091587..cc538c224dc 100644
--- a/lisp/net/zeroconf.el
+++ b/lisp/net/zeroconf.el
@@ -249,7 +249,7 @@ qualified name, i.e., it contains DOMAIN.
 APROTOCOL stands for the network protocol family ADDRESS is
 encoded (`zeroconf-avahi-protocol-inet4' means INET4,
 `zeroconf-avahi-protocol-inet6' means INET6).  It can be
-different from PROTOCOL, when an adrress resolution has been
+different from PROTOCOL, when an address resolution has been
 requested for another protocol family but the default one.
 
 ADDRESS is the service address, encoded according to the
diff --git a/lisp/obsolete/iso-acc.el b/lisp/obsolete/iso-acc.el
index cb06091dfcf..347db281f1a 100644
--- a/lisp/obsolete/iso-acc.el
+++ b/lisp/obsolete/iso-acc.el
@@ -32,7 +32,7 @@
 ;; In `iso-accents-mode', pseudo accent characters are used to
 ;; introduce accented keys.  The pseudo-accent characters are:
 ;;
-;;   '  (minute)    -> actue accent
+;;   '  (minute)    -> acute accent
 ;;   `  (backtick)  -> grave accent
 ;;   "  (second)    -> diaeresis
 ;;   ^  (caret)     -> circumflex
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 704da5fa68e..d4f993fedf6 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -7163,7 +7163,7 @@
         src blocks.
         (org-speed-command-default-hook): The default hook for
         org-speed-command-hook.  Factored out from org-self-insert-command
-        and mimics existing behaviour.
+        and mimics existing behavior.
         (org-self-insert-command): Modified to use org-speed-command-hook.
 
 2010-11-11  Carsten Dominik  <carsten.dominik@gmail.com>
@@ -10577,7 +10577,7 @@
         a list of symbols specifying which of the special keywords #+DATE,
         #+AUTHOR, #+EMAIL and #+TITLE should be hidden by font lock.
         (org-fontify-meta-lines-and-blocks): Changes to font-lock code
-        implementing new faces and hiding behaviour.
+        implementing new faces and hiding behavior.
 
         * org-faces.el (org-document-title): New face for #+TITLE lines.
         (org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines.
@@ -16482,14 +16482,14 @@
 2008-11-23  Carsten Dominik  <carsten.dominik@gmail.com>
 
         * org-export-latex.el (org-export-latex-subcontent):
-        Interprete target aliases as additonal labels.
+        Interprete target aliases as additional labels.
 
         * org-exp.el (org-export-target-aliases): New variable.
         (org-export-preprocess-string)
         (org-export-handle-invisible-targets): Fill the alias alist.
         (org-export-as-html): Remove the &nbsp; from the anchor, and also
         assign an id.
-        (org-html-level-start): Insert the target aliases as additonal
+        (org-html-level-start): Insert the target aliases as additional
         anchors.
 
         * org.el (org-edit-fixed-width-region): Fix bug when starting a new
diff --git a/lisp/org/org-beamer.el b/lisp/org/org-beamer.el
index 5cebe50efd1..9f40c5bd9d5 100644
--- a/lisp/org/org-beamer.el
+++ b/lisp/org/org-beamer.el
@@ -451,7 +451,7 @@ The effect is that these values will be accessible during export."
      ((stringp org-beamer-frame-level-now)
       (setq org-beamer-frame-level-now
             (string-to-number org-beamer-frame-level-now))))
-    ;; Find the header additons, most likely theme commands
+    ;; Find the header additions, most likely theme commands
     (setq org-beamer-header-extra
           (or (and (org-region-active-p)
                    (save-excursion
diff --git a/lisp/org/org-ctags.el b/lisp/org/org-ctags.el
index 48eced9ea08..352d414a4b6 100644
--- a/lisp/org/org-ctags.el
+++ b/lisp/org/org-ctags.el
@@ -64,19 +64,19 @@
 ;; with the same name as the link; then, if unsuccessful, ask the user if
 ;; he/she wants to rebuild the 'TAGS' database and try again; then ask if
 ;; the user wishes to append 'tag' as a new toplevel heading at the end of
-;; the buffer; and finally, defer to org's default behaviour which is to
+;; the buffer; and finally, defer to org's default behavior which is to
 ;; search the entire text of the current buffer for 'tag'.
 ;;
-;; This behaviour can be modified by changing the value of
+;; This behavior can be modified by changing the value of
 ;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my
-;; .emacs, which describes the same behaviour as the above paragraph with
+;; .emacs, which describes the same behavior as the above paragraph with
 ;; one difference:
 ;;
 ;; (setq org-ctags-open-link-functions
 ;;       '(org-ctags-find-tag
 ;;         org-ctags-ask-rebuild-tags-file-then-find-tag
 ;;         org-ctags-ask-append-topic
-;;         org-ctags-fail-silently))  ; <-- prevents org default behaviour
+;;         org-ctags-fail-silently))  ; <-- prevents org default behavior
 ;;
 ;;
 ;; Usage
diff --git a/lisp/org/org-footnote.el b/lisp/org/org-footnote.el
index 223d2573fdb..0d47132d2f8 100644
--- a/lisp/org/org-footnote.el
+++ b/lisp/org/org-footnote.el
@@ -574,7 +574,7 @@ normalized footnotes towards the end of the pre-processing buffer.
 Some exporters like docbook, odt, etc. expect that footnote
 definitions be available before any references to them.  Such
 exporters can let bind `org-footnote-insert-pos-for-preprocessor' to
-symbol 'point-min to achieve the desired behaviour.
+symbol 'point-min to achieve the desired behavior.
 
 Additional note on `org-footnote-insert-pos-for-preprocessor':
 1. This variable has not effect when FOR-PREPROCESSOR is nil.
diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el
index ddb3cf7b63a..0c924cd9f07 100644
--- a/lisp/org/org-publish.el
+++ b/lisp/org/org-publish.el
@@ -191,7 +191,7 @@ sitemap of files or summary page for a given project.
                            display folders first or last, respectively.
                            Any other value will mix files and folders.
   :sitemap-sort-files      The site map is normally sorted alphabetically.
-                           You can change this behaviour setting this to
+                           You can change this behavior setting this to
                            `chronologically', `anti-chronologically' or nil.
   :sitemap-ignore-case     Should sorting be case-sensitive?  Default nil.
 
@@ -1114,7 +1114,7 @@ so that the file including them will be republished as well."
       (let ((ctime (org-publish-cache-ctime-of-src filename)))
         (or (< pstamp ctime)
             (when included-files-ctime
-              (not (null (delq nil (mapcar (lambda(ct) (< ctime ct)) 
+              (not (null (delq nil (mapcar (lambda(ct) (< ctime ct))
                                            included-files-ctime))))))))))
 
 (defun org-publish-cache-set-file-property (filename property value &optional project-name)
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 10531b07325..a22cf4d6efc 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -11217,7 +11217,7 @@ changes.  Such blocking occurs when:
                      (forward-line 1)
                      (re-search-forward org-not-done-heading-regexp pos t))
             (throw 'dont-block nil))  ; block, there is an older sibling not done.
-          ;; Search further up the hierarchy, to see if an anchestor is blocked
+          ;; Search further up the hierarchy, to see if an ancestor is blocked
           (while t
             (goto-char parent-pos)
             (if (not (looking-at org-not-done-heading-regexp))
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 86e6b4abb6c..1ea8df36cd6 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -151,7 +151,7 @@
   "Local keymap for the 5x5 game.")
 
 (5x5-defvar-local 5x5-solver-output nil
-  "List that is is the output of artihmetic solver.
+  "List that is is the output of an arithmetic solver.
 
 This list L is such that
 
@@ -162,8 +162,8 @@ M is the move count when the solve output was stored.
 S_1 ... S_N are all the solutions ordered from least to greatest
 number of strokes.  S_1 is the solution to be displayed.
 
-Each solution S_1, ..., S_N is a a list (STROKE-COUNT GRID) where
-STROKE-COUNT is to number of strokes to achieve the solution and
+Each solution S_1, ..., S_N is a list (STROKE-COUNT GRID) where
+STROKE-COUNT is the number of strokes to achieve the solution and
 GRID is the grid of positions to click.")
 
 
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 4a57a1eef67..4cf00cd3cfd 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -1747,7 +1747,7 @@ Information is extracted from the ali file."
 
     (unless declaration-found
 
-      ;; Since we alread know the number of the file, search for a direct
+      ;; Since we already know the number of the file, search for a direct
       ;; reference to it
       (goto-char (point-min))
       (set 'declaration-found t)
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index ea0a8f2d3b3..fd32e5e956c 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -988,7 +988,7 @@ comment at the start of cc-engine.el for more info."
                          ;; Just gone back over an ordinary symbol of some sort?
                          (t (c-crosses-statement-barrier-p
                              (point) maybe-after-boundary-pos))))
-        
+
                   (when boundary-pos
                     (setq pptok ptok
                           ptok tok
@@ -1065,7 +1065,7 @@ comment at the start of cc-engine.el for more info."
                     pos tok) ; always non-nil
               )              ; end of (catch loop ....)
           )                  ; end of sexp-at-a-time (while ....)
-        
+
         ;; If the stack isn't empty there might be errors to report.
         (while stack
           (if (and (vectorp saved-pos) (eq (length saved-pos) 3))
@@ -1795,7 +1795,7 @@ comment at the start of cc-engine.el for more info."
         rung-is-marked simple-ws-beg cmt-skip-pos)
 
     ;; Skip simple horizontal ws and do a quick check on the preceding
-    ;; character to see if it's anying that can't end syntactic ws, so we can
+    ;; character to see if it's anything that can't end syntactic ws, so we can
     ;; bail out early in the majority of cases when there just are a few ws
     ;; chars.  Newlines are complicated in the backward direction, so we can't
     ;; skip over them.
@@ -4051,7 +4051,7 @@ comment at the start of cc-engine.el for more info."
                      ;; a relevant match.
                      (goto-char pos)
                      nil))))))
-             
+
           (> (point)
              (progn
                ;; Skip syntactic ws afterwards so that we don't stop at the
@@ -6277,7 +6277,7 @@ comment at the start of cc-engine.el for more info."
   ;;      car ^                                     ^ point
   ;;     Foo::Foo (int b) : Base (b) {}
   ;; car ^                ^ point
-  ;; 
+  ;;
   ;;   The cdr of the return value is non-nil when a
   ;;   `c-typedef-decl-kwds' specifier is found in the declaration.
   ;;   Specifically it is a dotted pair (A . B) where B is t when a
@@ -6285,7 +6285,7 @@ comment at the start of cc-engine.el for more info."
   ;;   other `c-typedef-decl-kwds' (e.g. class, struct, enum)
   ;;   specifier is present.  I.e., (some of) the declared
   ;;   identifier(s) are types.
-  ;; 
+  ;;
   ;; If a cast is parsed:
   ;;
   ;;   The point is left at the first token after the closing paren of
@@ -8461,7 +8461,7 @@ comment at the start of cc-engine.el for more info."
                 nil)
                (t nil))))
          (eolp))
-             
+
        (goto-char pos)
        (progn (c-backward-syntactic-ws)
               (eq (point) pos))
@@ -8922,7 +8922,7 @@ comment at the start of cc-engine.el for more info."
       ;; FIXME: Should use c-add-stmt-syntax, but it's not yet
       ;; template aware.
       (c-add-syntax 'template-args-cont (point) placeholder))
-     
+
      ;; CASE D: continued statement.
      (t
       (c-beginning-of-statement-1 containing-sexp)
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index c7e78cb282a..02256ead392 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -963,7 +963,7 @@ this is `c-lineup-ObjC-method-call', which would align it like:
         [foo blahBlahBlah: fred
              thisIsTooDamnLong: barney
 
-This behaviour can be overridden by customizing the indentation of
+This behavior can be overridden by customizing the indentation of
 `objc-method-call-cont' in the \"objc\" style."
   :type 'integer
   :group 'c)
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index a79d1a2c064..0556741b65b 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -902,7 +902,7 @@ the settings present before the switch.
 9) When doing indentation of control constructs, may correct
 line-breaks/spacing between elements of the construct.
 
-10) Uses a linear-time algorith for indentation of regions (on Emaxen with
+10) Uses a linear-time algorithm for indentation of regions (on Emaxen with
 capable syntax engines).
 
 11) Syntax-highlight, indentation, sexp-recognition inside regular expressions.
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index cb0b02ff350..009400504b2 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -29,7 +29,7 @@
 ;; form.  For editing Fortran 90 free format source, use `f90-mode'
 ;; (f90.el).  It is meant to support the GNU Fortran language
 ;; implemented by g77 (its extensions to Fortran77 and
-;; interpretations, e.g. of blackslash in strings).
+;; interpretations, e.g. of backslash in strings).
 
 ;;; History:
 
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index c88727c721c..53807b8de30 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2217,7 +2217,7 @@ Return position where LINE begins."
 (defun gdb-mapcar* (function &rest seqs)
   "Apply FUNCTION to each element of SEQS, and make a list of the results.
 If there are several SEQS, FUNCTION is called with that many
-arugments, and mapping stops as sson as the shortest list runs
+arguments, and mapping stops as sson as the shortest list runs
 out."
   (let ((shortest (apply #'min (mapcar #'length seqs))))
     (mapcar (lambda (i)
@@ -3428,7 +3428,7 @@ breakpoints buffer."
         (error "Not recognized as break/watchpoint line")))))
 
 
-;; Frames buffer.  This displays a perpetually correct bactrack trace.
+;; Frames buffer.  This displays a perpetually correct backtrack trace.
 ;;
 (def-gdb-trigger-and-handler
   gdb-invalidate-frames (gdb-current-context-command "-stack-list-frames")
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 543539421fe..b54b2dc5f47 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2102,7 +2102,7 @@ extension EXTN.  Normally EXTN is given as the regular expression
         massaged-args)))
 
 ;; Search for an association with P, a fully qualified class name, in
-;; gud-jdb-class-source-alist.  The asssociation gives the fully
+;; gud-jdb-class-source-alist.  The association gives the fully
 ;; qualified file name of the source file which produced the class.
 (defun gud-jdb-find-source-file (p)
   (cdr (assoc p gud-jdb-class-source-alist)))
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index e15f765ea58..958c1bfb0cc 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -700,7 +700,7 @@ If the list was changed, sort the list and remove duplicates first."
 
 
 (defun meta-beginning-of-defun (&optional arg)
-  "Move backward to beginnning of a defun in Metafont or MetaPost code.
+  "Move backward to beginning of a defun in Metafont or MetaPost code.
 With numeric argument, do it that many times.
 Negative arg -N means move forward to Nth following beginning of defun.
 Returns t unless search stops due to beginning or end of buffer."
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 00315856ad5..93d27042dc8 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -151,7 +151,7 @@
 ;;     (`prolog-electric-dot-full-predicate-template', defaults to t
 ;;     since it seems quicker to me to just type those commata).  A
 ;;     trivial adaptation of a patch by Markus Triska.
-;;  o  Improved the behaviour of electric if-then-else to only skip
+;;  o  Improved the behavior of electric if-then-else to only skip
 ;;     forward if the parenthesis/semicolon is preceded by
 ;;     whitespace.  Once more a trivial adaptation of a patch by
 ;;     Markus Triska.
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 97a1c4605c2..3166abb21a7 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -672,7 +672,7 @@ highlighted properly when you open them."
   :safe 'symbolp)
 (defvaralias 'sql-dialect 'sql-product)
 
-;; misc customization of sql.el behaviour
+;; misc customization of sql.el behavior
 
 (defcustom sql-electric-stuff nil
   "Treat some input as electric.
@@ -3600,12 +3600,12 @@ The list is maintained in SQL interactive buffers.")
                 (setq has-schema (and
                                   (>= (length (car names)) schema-len)
                                   (string= schema-dot
-                                           (downcase (substring (car names) 
+                                           (downcase (substring (car names)
                                                                 0 schema-len))))
                       names (cdr names)))
               (unless has-schema
                 (sql-build-completions schema)))))
-        
+
         ;; Try to find the completion
         (cond
          ((not predicate)
@@ -3951,7 +3951,7 @@ is specified in the connection settings."
                        ;; interactive session
                        (eval `(let ((sql-connection ,connection)
                                      (,param-var ',rem-params))
-                                (sql-product-interactive sql-product 
+                                (sql-product-interactive sql-product
                                                          new-name)))))
 
             (message "SQL Connection <%s> does not exist" connection)
@@ -3981,16 +3981,16 @@ optionally is saved to the user's init file."
 
     (if connection
         (message "This session was started by a connection; it's already been saved.")
-      
+
       (let ((login (sql-get-product-feature product :sqli-login))
             (alist sql-connection-alist)
             connect)
-        
+
         ;; Remove the existing connection if the user says so
         (when (and (assoc name alist)
                    (yes-or-no-p (format "Replace connection definition <%s>? " name)))
           (setq alist (assq-delete-all name alist)))
-        
+
         ;; Add the new connection if it doesn't exist
         (if (assoc name alist)
             (message "Connection <%s> already exists" name)
@@ -4747,8 +4747,8 @@ Try to set `comint-output-filter-functions' like this:
     (sql-redirect sqlbuf "\\t off")
     (when (not (string= a "aligned"))
       (sql-redirect sqlbuf "\\a"))
-    
-    ;; Return the list of table names (public schema name can be omitted) 
+
+    ;; Return the list of table names (public schema name can be omitted)
     (mapcar (lambda (tbl)
               (if (string= (car tbl) "public")
                   (cadr tbl)
diff --git a/lisp/simple.el b/lisp/simple.el
index 90d22c817b0..82d82bc7240 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2657,7 +2657,7 @@ value passed."
 Per default, this variable is always set to `t', meaning that a
 call of `process-file' could potentially change any file on a
 remote host.  When set to `nil', a file handler could optimize
-its behaviour with respect to remote file attributes caching.
+its behavior with respect to remote file attributes caching.
 
 This variable should never be changed by `setq'.  Instead of, it
 shall be set only by let-binding.")
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index cfa406c2b48..ff528fcc9df 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -142,7 +142,7 @@ This information is useful, but it takes screen space away from file names."
 
 ;; The Tar data is made up of bytes and better manipulated as bytes
 ;; and can be very large, so insert/delete can be costly.  The summary we
-;; want to display may contain non-ascci chars, of course, so we'd like it
+;; want to display may contain non-ascii chars, of course, so we'd like it
 ;; to be multibyte.  We used to keep both in the same buffer and switch
 ;; from/to uni/multibyte.  But this had several downsides:
 ;; - set-buffer-multibyte has an O(N^2) worst case that tends to be triggered
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index be14e90e000..20d9c18c43e 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -2263,7 +2263,7 @@ Returns a DIRECTION, a number 0--7, coded as follows:
 
 
 ;; Things for drawing lines in all directions.
-;; The line drawing engine is the eight-point alrogithm.
+;; The line drawing engine is the eight-point algorithm.
 ;;
 ;; A line is here a list of (x y saved-char new-char)s.
 ;;
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index 4d6b5e5fb83..1a0f7ec5836 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -711,7 +711,7 @@ of master file."
                                    context)
                  (when (and (not appendix)
                             (>= (string-to-char (match-string 2)) ?A))
-                   ;; Just entered the appendex.  Get out.
+                   ;; Just entered the appendix.  Get out.
                    (throw 'exit nil))
 
                  ;; Change the section number.
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index 37983d17931..dbed09c9ccb 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -33,7 +33,7 @@
 
 (defvar reftex-toc-mode-map
   (let ((map (make-sparse-keymap)))
-    
+
     (define-key map (if (featurep 'xemacs) [(button2)] [(mouse-2)])
       'reftex-toc-mouse-goto-line-and-hide)
     (define-key map [follow-link] 'mouse-face)
@@ -660,7 +660,7 @@ point."
     (setq msg
           (catch 'exit
             (if (reftex-region-active-p)
-                ;; A region is dangerous, check if we have a brandnew scan,
+                ;; A region is dangerous, check if we have a brand new scan,
                 ;; to make sure we are not missing any section statements.
                 (if (not (reftex-toc-check-docstruct))
                     (reftex-toc-load-all-files-for-promotion)   ;; exits
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index cef8a3d1548..3ac0aa0f65d 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -1568,7 +1568,7 @@ Valid actions are: readable, restore, read, kill, write."
 ;;; Finding files
 
 (defun reftex-locate-file (file type master-dir &optional die)
-  "Find FILE of type TYPE in MASTER-DIR or on the path associcted with TYPE.
+  "Find FILE of type TYPE in MASTER-DIR or on the path associated with TYPE.
 If the file does not have any of the valid extensions for TYPE,
 try first the default extension and only then the naked file name.
 When DIE is non-nil, throw an error if file not found."
@@ -2254,7 +2254,7 @@ IGNORE-WORDS List of words which should be removed from the string."
 (defvar font-lock-defaults-computed)
 (defun reftex-fontify-select-label-buffer (parent-buffer)
   ;; Fontify the `*RefTeX Select*' buffer.  Buffer is temporarily renamed to
-  ;; start with none-SPC char, beacuse Font-Lock otherwise refuses operation.
+  ;; start with none-SPC char, because Font-Lock otherwise refuses operation.
   (run-hook-with-args 'reftex-pre-refontification-functions
                       parent-buffer 'reftex-ref)
   (let* ((oldname (buffer-name))
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 1923ab692d8..07a4fae9c30 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -113,7 +113,7 @@
 ;;  - Allowing particular views of the initially amorphous data pool
 ;;    (ala the Xanadu concept).
 ;;
-;;  - Storage of the data in a manner most appopriate to that data,
+;;  - Storage of the data in a manner most appropriate to that data,
 ;;    such as keeping address-book type information in BBDB, etc.
 ;;
 ;; * Using "remember"
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 0ce71c25ad7..d66b297bd2b 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -2475,7 +2475,7 @@ first of a paragraph."
 ;;------------------------------------------------------------------------------
 
 ;; FIXME: these next functions should become part of a larger effort to redo the
-;; bullets in bulletted lists.  The enumerate would just be one of the possible
+;; bullets in bulleted lists.  The enumerate would just be one of the possible
 ;; outputs.
 ;;
 ;; FIXME: TODO we need to do the enumeration removal as well.
diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el
index 5a7fa0bf950..9bf75fa7f55 100644
--- a/lisp/vc/ediff-wind.el
+++ b/lisp/vc/ediff-wind.el
@@ -1127,7 +1127,7 @@ It assumes that it is called from within the control buffer."
 
 ;; Revise the mode line to display which difference we have selected
 ;; Also resets modelines of buffers A/B, since they may be clobbered by
-;; anothe invocations of Ediff.
+;; other invocations of Ediff.
 (defun ediff-refresh-mode-lines ()
   (let (buf-A-state-diff buf-B-state-diff buf-C-state-diff buf-C-state-merge)
 
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el
index 8051009a983..39c583b8a0d 100644
--- a/lisp/vc/vc-rcs.el
+++ b/lisp/vc/vc-rcs.el
@@ -1399,7 +1399,7 @@ The `:insn' key is a keyword to distinguish it as a vc-rcs.el extension."
               ;; `incg' or `buffer-substring-no-properties'.  (This is
               ;; for speed; strictly speaking, it is sufficient to use
               ;; only the former since it behaves identically to the
-              ;; latter in the absense of "@@".)
+              ;; latter in the absence of "@@".)
               sub)
           (flet ((incg (beg end) (let ((b beg) (e end) @-holes)
                                    (while (and asc (< (car asc) e))
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index f50386b1827..dde85478f7e 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2573,7 +2573,7 @@ Also refontify when necessary."
         (setq whitespace-display-table-was-local t
               whitespace-display-table
               (copy-sequence buffer-display-table))
-        ;; asure `buffer-display-table' is unique
+        ;; Assure `buffer-display-table' is unique
         ;; when two or more windows are visible.
         (setq buffer-display-table
               (copy-sequence buffer-display-table)))
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 2aef37dd4c8..1deaa44c7dd 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -245,7 +245,7 @@ placement bugs in old versions of Emacs."
 ;; Actually, the whole subject of the minibuffer edge of the frame is
 ;; rather messy.  It turns out that with a sufficiently large delta,
 ;; we can fly off the bottom edge of the frame and miss the minibuffer
-;; altogther.  This, I think, is never right: if there's a minibuffer
+;; altogether.  This, I think, is never right: if there's a minibuffer
 ;; and you're not in it, and you move down, the minibuffer should be
 ;; in your way.
 ;;
diff --git a/lisp/xml.el b/lisp/xml.el
index 52bb0de7ea0..68aa5f4db6f 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -540,7 +540,7 @@ Leave point at the first non-blank character after the tag."
         (replace-regexp-in-string "\\s-\\{2,\\}" " " string)
         (let ((expansion (xml-substitute-special string)))
           (unless (stringp expansion)
-                                        ; We say this is the constraint.  It is acctually that
+                                        ; We say this is the constraint.  It is actually that neither
                                         ; external entities nor "<" can be in an attribute value.
             (error "XML: (Not Well-Formed) Entities in attributes cannot expand into elements"))
           (push (cons name expansion) attlist)))