Spelling fixes.

35 files changed, 82 insertions, 84 deletions

diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index cb1d1af577b..bf6f21cd422 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -5904,7 +5904,7 @@
         (mis-)use tramp-current-user as indication, assuming it is set in
         `tramp-completion-handle-file-name-all-completions'.
         (tramp-send-region): Handle the case `tramp-chunksize' is equal 0.
-        I did it accidently.  Infinite loop ...
+        I did it accidentally.  Infinite loop ...
         (tramp-get-device): `tramp-make-tramp-file-name' must not be
         called with NIL path.  It fails in case of multi-method.
         (tramp-file-name-for-operation): Apply `expand-file-name' for
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 1660009aba7..7df2b4b7488 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -10695,7 +10695,7 @@
 
         * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for
         the prompt.  If it returns earlier (when detecting an error
-        message), the rest of the output will merge accidently with the
+        message), the rest of the output will merge accidentally with the
         output of the next command.  Reported by M Jared Finder
         <jared@hpalace.com>.
 
@@ -16181,7 +16181,7 @@
 
 2005-12-08  Alan Mackenzie  <bug-cc-mode@gnu.org>
 
-        * progmodes/cc-awk.el: Move regexps for analysing AWK code to near the
+        * progmodes/cc-awk.el: Move regexps for analyzing AWK code to near the
         start of the file.  ^L now separate sections of the file.
         (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re)
         (c-awk-one-line-possibly-open-string-re)
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3
index 57a9a7b026a..cb39ca5997f 100644
--- a/lisp/ChangeLog.3
+++ b/lisp/ChangeLog.3
@@ -9536,7 +9536,7 @@
         it@top level.
 
         * texnfo-upd.el (texinfo-incorporate-descriptions): Don't
-        accidently find a string in the description that is confused for
+        accidentally find a string in the description that is confused for
         a menu item.
 
 1990-06-01  Robert J. Chassell  (bob@wheat-chex)
@@ -12454,4 +12454,3 @@ See ChangeLog.2 for earlier changes.
 
   You should have received a copy of the GNU General Public License
   along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index 7aca1b521a2..77ea9fd9d5d 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -530,7 +530,7 @@
         composition-function-table.
         (tibetan-composable-pattern): New variable.
         (tibetan-subjoined-transcription-alist): Change key "R" to "+R".
-        (tibetan-precomposition-rule-alist): Move punctuations to
+        (tibetan-precomposition-rule-alist): Move punctuation to
         tibetan-punctuation-transcription-alist and
         tibetan-obsolete-glyphs.
         (tibetan-punctuation-transcription-alist): New variable.
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 6179d304464..f17dfd85fdf 100644
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -249,7 +249,7 @@ Do this whenever a new project is created, as opposed to loaded."
   "Return a project description object if DIR has a project.
 Optional argument FORCE means to ignore a hash-hit of 'nomatch.
 This depends on an up to date `ede-project-class-files' variable.
-Any directory that contains the file .ede-ignore will allways
+Any directory that contains the file .ede-ignore will always
 return nil."
   (when (not (file-exists-p (expand-file-name ".ede-ignore" dir)))
     (let* ((dirtest (expand-file-name dir))
diff --git a/lisp/cedet/ede/proj-shared.el b/lisp/cedet/ede/proj-shared.el
index ec514194e33..4e233f56a12 100644
--- a/lisp/cedet/ede/proj-shared.el
+++ b/lisp/cedet/ede/proj-shared.el
@@ -61,7 +61,7 @@ Use ldlibs to add addition libraries.")
 ;                          "$(CC_SHARED) -shared $(CFLAGS) $(LDFLAGS) -L. -o $@ $^")
 ;                         )
 ;        :commands '("$(C_SHARED_LINK) %s")
-         ;; @TODO - addative modification of autoconf.
+         ;; @TODO - additive modification of autoconf.
          :autoconf '("AC_PROG_LIBTOOL")
          )
   "Compiler for C sourcecode.")
@@ -108,7 +108,7 @@ Use ldlibs to add addition libraries.")
          :variables '(("CXX_SHARED" . "g++")
                       ("CXX_SHARED_COMPILE" .
                        "$(CXX_SHARED) -shared $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)"))
-         ;; @TODO - addative modification of autoconf.
+         ;; @TODO - additive modification of autoconf.
          :autoconf '("AC_PROG_LIBTOOL")
          )
   "Compiler for C sourcecode.")
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el
index 1d1184e534f..98b1ab55c32 100644
--- a/lisp/cedet/semantic/grammar.el
+++ b/lisp/cedet/semantic/grammar.el
@@ -104,10 +104,10 @@ It ignores whitespaces, newlines and comments."
   ;; regexp match semicolons inside strings!
   semantic-lex-ignore-comments
   ;; Must detect prefixed list before punctuation because prefix chars
-  ;; are also punctuations!
+  ;; are also punctuation!
   semantic-grammar-wy--<qlist>-sexp-analyzer
-  ;; Must detect punctuations after comments because the semicolon can
-  ;; be a punctuation or a comment start!
+  ;; Must detect punctuation after comments because the semicolon can
+  ;; be punctuation or a comment start!
   semantic-grammar-wy--<punctuation>-string-analyzer
   semantic-grammar-wy--<block>-block-analyzer
   semantic-grammar-wy--<sexp>-sexp-analyzer)
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index fca367ecb8c..ba43ba657a1 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -165,7 +165,7 @@
 ;;
 ;; %type  <punctuation> syntax "\\(\\s.\\|\\s$\\|\\s'\\)+" matchdatatype string
 ;;
-;; ;; Some punctuations based on the type defines above
+;; ;; Some punctuation based on the type defines above
 ;;
 ;; %token <punctuation> NOT         "!"
 ;; %token <punctuation> NOTEQ       "!="
@@ -1313,7 +1313,7 @@ and number formats."
 
 (define-lex-analyzer semantic-lex-punctuation-type
   "Detect and create a punctuation type token.
-Recognized punctuations are defined in the current table of lexical
+Recognized punctuation is defined in the current table of lexical
 types, as the value of the `punctuation' token type."
   (and (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+")
        (let* ((key (match-string 0))
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el
index 5399d4d5649..b4618d1c18f 100644
--- a/lisp/cedet/semantic/senator.el
+++ b/lisp/cedet/semantic/senator.el
@@ -179,8 +179,8 @@ source."
     (goto-char (semantic-tag-start tag))
     (when (re-search-forward (concat
                               ;; The tag name is expected to be
-                              ;; between word delimiters, whitespaces,
-                              ;; or punctuations.
+                              ;; between word delimiters, whitespace,
+                              ;; or punctuation.
                               "\\(\\<\\|\\s-+\\|\\s.\\)"
                               (regexp-quote name)
                               "\\(\\>\\|\\s-+\\|\\s.\\)")
diff --git a/lisp/color.el b/lisp/color.el
index 487e280dd59..96b79a4ace2 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -128,8 +128,8 @@ inclusive."
 RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0,
 inclusive.
 
-Return a list (HUE, SATURATION, LUMINENCE), where HUE is in radians
-and both SATURATION and LUMINENCE are between 0.0 and 1.0,
+Return a list (HUE, SATURATION, LUMINANCE), where HUE is in radians
+and both SATURATION and LUMINANCE are between 0.0 and 1.0,
 inclusive."
   (let* ((r red)
          (g green)
diff --git a/lisp/follow.el b/lisp/follow.el
index 72a091e8ce2..3badb381c57 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -98,7 +98,7 @@
 ;; (global-set-key [f7] 'follow-delete-other-windows-and-split)
 
 
-;; There exist two system variables that control the appearence of
+;; There exist two system variables that control the appearance of
 ;; lines wider than the window containing them.  The default is to
 ;; truncate long lines whenever a window isn't as wide as the frame.
 ;;
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index eed5f921c57..de5f5e0b7c4 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -2778,7 +2778,7 @@
 2011-01-28  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active
-        data if the group is unactivated.
+        data if the group is deactivated.
 
 2011-01-28  Julien Danjou  <julien@danjou.info>
 
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index f913ddb5378..3ee72bc5fc6 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -217,7 +217,7 @@ This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
                                  'static-color 'pseudo-color)))))
       'gnome
     'retro)
-  "Prefered tool bar style."
+  "Preferred tool bar style."
   :type '(choice (const :tag "GNOME style" gnome)
                  (const :tag "Retro look"  retro))
   :group 'gmm)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 9d358969062..02c37f22774 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1354,9 +1354,9 @@ if it is a string, only list groups matching REGEXP."
                      (predicate t)      ; We list all groups?
                      (t
                       (or
-                       (if (eq unread t) ; Unactivated?
+                       (if (eq unread t) ; Deactivated?
                            gnus-group-list-inactive-groups
-                                        ; We list unactivated
+                                        ; We list inactive
                          (and (numberp unread) (> unread 0)))
                                         ; We list groups with unread articles
                        (and gnus-list-groups-with-ticked-articles
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 17af1a38333..87ca27adcf4 100644
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -582,7 +582,7 @@ articles in the topic and its subtopics."
                (or gnus-topic-display-empty-topics ;We want empty topics
                    (not (zerop unread)) ;Non-empty
                    tick                 ;Ticked articles
-                   (/= point-max (point-max)))) ;Unactivated groups
+                   (/= point-max (point-max)))) ;Inactive groups
       (gnus-extent-start-open (point))
       (gnus-topic-insert-topic-line
        (car type) visiblep
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 36c56e0921b..44e2af5b904 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -360,7 +360,7 @@ to:
  (\"text/html\" \"text/richtext\")
 
 Adding \"image/.*\" might also be useful.  Spammers use it as the
-prefered part of multipart/alternative messages.  See also
+preferred part of multipart/alternative messages.  See also
 `gnus-buttonized-mime-types', to which adding \"multipart/alternative\"
 enables you to choose manually one of two types those mails include."
   :type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'.
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index feed078034c..f1cb1f69e56 100644
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -586,7 +586,7 @@ should not change this value.")
         ((>= column rfc2047-encode-max-chars)
          (when eword
            (cond ((string-match "\n[ \t]+\\'" eword)
-                  ;; Reomove a superfluous empty line.
+                  ;; Remove a superfluous empty line.
                   (setq eword (substring eword 0 (match-beginning 0))))
                  ((string-match "(+\\'" eword)
                   ;; Break the line before the open parenthesis.
@@ -639,7 +639,7 @@ should not change this value.")
                (setq crest " "
                      eword (concat eword next)))
              (when (string-match "\n[ \t]+\\'" eword)
-               ;; Reomove a superfluous empty line.
+               ;; Remove a superfluous empty line.
                (setq eword (substring eword 0 (match-beginning 0))))
              (rfc2047-encode-1 (length crest) (substring string index)
                                cs encoder start " " tail
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el
index 58dbebf4c5a..af9fd42c127 100644
--- a/lisp/gnus/starttls.el
+++ b/lisp/gnus/starttls.el
@@ -35,7 +35,7 @@
 ;; and the second one is Simon Josefsson's starttls.el which uses
 ;; "gnutls-cli" from GnuTLS.
 ;;
-;; If "starttls" is available, it is prefered by the code over
+;; If "starttls" is available, it is preferred by the code over
 ;; "gnutls-cli", for backwards compatibility.  Use
 ;; `starttls-use-gnutls' to toggle between implementations if you have
 ;; both tools installed.  It is recommended to use GnuTLS, though, as
diff --git a/lisp/help.el b/lisp/help.el
index 506889c210e..36d49aae9b3 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -969,7 +969,7 @@ This is effective only when Temp Buffer Resize mode is enabled.
 The value is the maximum height (in lines) which
 `resize-temp-buffer-window' will give to a window displaying a
 temporary buffer.  It can also be a function to be called to
-choose the height for such a buffer.  It gets one argumemt, the
+choose the height for such a buffer.  It gets one argument, the
 buffer, and should return a positive integer.  At the time the
 function is called, the window to be resized is selected."
   :type '(choice integer function)
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 58a08f4506f..d078d98a480 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -703,13 +703,13 @@ If the value is nil, on decoding, don't treat the first two-byte as
 BOM, and on encoding, don't produce BOM bytes.
 
 If the value is t, on decoding, skip the first two-byte as BOM, and on
-encoding, produce BOM bytes accoding to the value of `:endian'.
+encoding, produce BOM bytes according to the value of `:endian'.
 
 If the value is cons, on decoding, check the first two-byte.  If they
 are 0xFE 0xFF, use the car part coding system of the value.  If they
 are 0xFF 0xFE, use the cdr part coding system of the value.
 Otherwise, treat them as bytes for a normal character.  On encoding,
-produce BOM bytes accoding to the value of `:endian'.
+produce BOM bytes according to the value of `:endian'.
 
 This attribute has a meaning only when `:coding-type' is `utf-16' or
 `utf-8'.
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 0ba0b9085b9..6614ac8b416 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -128,11 +128,11 @@ SPC, 1, 2, 3, or 4 specifing a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N
 \\<quail-translation-docstring>")
 
     ("chinese-punct-b5" "$(0O:(BB"
-     "Input method for Chinese punctuations and symbols of Big5
+     "Input method for Chinese punctuation and symbols of Big5
 \(`chinese-big5-1' and `chinese-big5-2').")
 
     ("chinese-punct" "$A1j(BG"
-     "Input method for Chinese punctuations and symbols of GB2312
+     "Input method for Chinese punctuation and symbols of GB2312
 \(`chinese-gb2312').")
 
     ("chinese-py-b5" "$(03<(BB"
@@ -801,36 +801,36 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
     (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y))))))
     (dolist (elt dic)
       (insert (format "(%S\t%S)\n" (car elt) (cdr elt))))
-    (let ((punctuations '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B")
-                          (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B")
-                          ("'" "$(0!e!d(B" "$(G!e!d(B")
-                          ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B")
-                          ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B")
-                          ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B")
-                          ("/" "$(0"_"a#L(B" "$(G"_"a#L(B")
-                          ("?" "$(0!)!4(B" "$(G!)!4(B")
-                          ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B")
-                          (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B")
-                          ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B")
-                          ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B")
-                          ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ")
-                          ("}" "$(0!C!a!E(B" "$(G!C!a!E(B")
-                          ("`" "$(0!j!k(B" "$(G!j!k(B")
-                          ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B")
-                          ("!" "$(0!*!5(B" "$(G!*!5(B")
-                          ("@" "$(0"i"n(B" "$(G"i"n(B")
-                          ("#" "$(0!l"-(B" "$(G!l"-(B")
-                          ("$" "$(0"c"l(B" "$(G"c"l(B")
-                          ("%" "$(0"h"m(B" "$(G"h"m(B")
-                          ("&" "$(0!m".(B" "$(G!m".(B")
-                          ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B")
-                          ("(" "$(0!>!^!@(B" "$(G!>!^!@(B")
-                          (")" "$(0!?!_!A(B" "$(G!?!_!A(B")
-                          ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B")
-                          ("_" "$(0"%"&(B" "$(G"%"&(B")
-                          ("=" "$(0"8"C(B" "$(G"8"C(B")
-                          ("+" "$(0"0"?(B" "$(G"0"?(B"))))
-    (dolist (elt punctuations)
+    (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B")
+                         (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B")
+                         ("'" "$(0!e!d(B" "$(G!e!d(B")
+                         ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B")
+                         ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B")
+                         ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B")
+                         ("/" "$(0"_"a#L(B" "$(G"_"a#L(B")
+                         ("?" "$(0!)!4(B" "$(G!)!4(B")
+                         ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B")
+                         (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B")
+                         ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B")
+                         ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B")
+                         ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ")
+                         ("}" "$(0!C!a!E(B" "$(G!C!a!E(B")
+                         ("`" "$(0!j!k(B" "$(G!j!k(B")
+                         ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B")
+                         ("!" "$(0!*!5(B" "$(G!*!5(B")
+                         ("@" "$(0"i"n(B" "$(G"i"n(B")
+                         ("#" "$(0!l"-(B" "$(G!l"-(B")
+                         ("$" "$(0"c"l(B" "$(G"c"l(B")
+                         ("%" "$(0"h"m(B" "$(G"h"m(B")
+                         ("&" "$(0!m".(B" "$(G!m".(B")
+                         ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B")
+                         ("(" "$(0!>!^!@(B" "$(G!>!^!@(B")
+                         (")" "$(0!?!_!A(B" "$(G!?!_!A(B")
+                         ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B")
+                         ("_" "$(0"%"&(B" "$(G"%"&(B")
+                         ("=" "$(0"8"C(B" "$(G"8"C(B")
+                         ("+" "$(0"0"?(B" "$(G"0"?(B"))))
+    (dolist (elt punctuation)
       (insert (format "(%S %S)\n" (concat "z" (car elt))
                       (if big5-p (nth 1 elt) (nth 2 elt))))))
     (insert ")\n")))
@@ -1017,7 +1017,7 @@ To input words of more than three letters, you type 4 keys, initials
 of the first three letters and the last letter.  For instance,
 \"bjdt\" inputs $A11>)5gJSL((B.
 
-To input symbols and punctuations, type `/' followed by one of `a' to
+To input symbols and punctuation, type `/' followed by one of `a' to
 `z', then select one of the candidates."))
     (insert "  '((\"\C-?\" . quail-delete-last-char)
    (\".\" . quail-next-translation)
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 444f4d519da..1d93d981f8e 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -802,7 +802,7 @@ The 2nd and 3rd arguments BEGIN and END specify the region."
         (forward-char 1)
         (insert "}")))
 
-    ;; Special Ethiopic punctuations.
+    ;; Special Ethiopic punctuation.
     (goto-char (point-min))
     (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t)
       (cond
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 8458974e753..fd23bbb6d54 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -27,7 +27,7 @@
 
 ;;; History:
 ;; 1997.03.13 Modification in treatment of text properties;
-;;            Support for some special signs and punctuations.
+;;            Support for some special signs and punctuation.
 ;; 1999.10.25 Modification for a new composition way by K.Handa.
 
 ;;; Commentary:
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index c80b22c696d..1607868dea5 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -30,7 +30,7 @@
 
 ;;; History:
 
-;; 1997.03.13 Modification for special signs and punctuations.
+;; 1997.03.13 Modification for special signs and punctuation.
 
 ;;; Commentary:
 
@@ -44,7 +44,7 @@
 ;;;
 ;;;     00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
 ;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5)
-;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuations,
+;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation,
 ;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and
 ;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs.
 ;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ;
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index f1d25158ce2..b0d08217fc1 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -818,7 +818,7 @@ BULLET: A character at the end of the ITEM PREFIX, it must be one of
         `allout-distinctive-bullets-string'.  When creating a TOPIC,
         plain BULLETs are by default used, according to the DEPTH of the
         TOPIC.  Choice among the distinctive BULLETs is offered when you
-        provide a universal argugment (\\[universal-argument]) to the
+        provide a universal argument (\\[universal-argument]) to the
         TOPIC creation command, or when explictly rebulleting a TOPIC.  The
         significance of the various distinctive bullets is purely by
         convention.  See the documentation for the above bullet strings for
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 6bdd96c0fcc..02e531120be 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -2674,7 +2674,7 @@
 
         Follow MH-E Developers Guide conventions.  Use `' quotes for Help
         hyperlinks such as symbols, Info nodes, or URLs.  Use \" quotes for
-        everything else.  Otherwise, you can accidently get links to
+        everything else.  Otherwise, you can accidentally get links to
         nonsense symbols.
 
 2005-12-22  Bill Wohler  <wohler@newt.com>
@@ -3456,4 +3456,3 @@
 ;; sentence-end-double-space: nil
 ;; add-log-time-zone-rule: t
 ;; End:
-
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index 87ff0b4060f..af8bc084b57 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -128,7 +128,7 @@ LOCATION is used as the address location for bbdb."
          zip city state)
     (setq addr-components (nreverse addr-components))
     ;; If not containing the zip code the last line is supposed to contain a
-    ;; country name and the addres is supposed to be in european style
+    ;; country name and the address is supposed to be in european style
     (if (not (string-match "[0-9][0-9][0-9]" last1))
         (progn
           (setq state last1)
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 7e0eaff1dce..1a48e8863f1 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -729,7 +729,7 @@ to their attributes."
     ;; Create the search buffer.
     (with-current-buffer (get-buffer-create "*Secrets*")
       (switch-to-buffer-other-window (current-buffer))
-      ;; Inialize buffer with `secrets-mode'.
+      ;; Initialize buffer with `secrets-mode'.
       (secrets-mode)
       (secrets-show-collections))))
 
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index fda88351253..df841bade79 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -996,7 +996,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"."
     (let ((signal-name (dbus-event-member-name last-input-event))
           (elt mount-info))
       ;; Jump over the first elements of the mount info. Since there
-      ;; were changes in the antries, we cannot access dedicated
+      ;; were changes in the entries, we cannot access dedicated
       ;; elements.
       (while (stringp (car elt)) (setq elt (cdr elt)))
       (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt)))
@@ -1066,7 +1066,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"."
               tramp-gvfs-interface-mounttracker "listMounts"))
           nil)
        ;; Jump over the first elements of the mount info. Since there
-       ;; were changes in the antries, we cannot access dedicated
+       ;; were changes in the entries, we cannot access dedicated
        ;; elements.
        (while (stringp (car elt)) (setq elt (cdr elt)))
        (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt)))
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index 907c99a7e86..ab817a43885 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -820,7 +820,7 @@ search, is returned."
     (with-current-buffer
         (generate-new-buffer (xesam-buffer-name service search))
       (switch-to-buffer-other-window (current-buffer))
-      ;; Inialize buffer with `xesam-mode'.  `xesam-vendor' must be
+      ;; Initialize buffer with `xesam-mode'.  `xesam-vendor' must be
       ;; set before calling `xesam-mode', because we want to give the
       ;; hook functions a chance to identify their search engine.
       (setq xesam-vendor (xesam-get-cached-property engine "vendor.id"))
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 94346a4944a..1c8a3e72956 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -17596,7 +17596,7 @@
 2008-06-17  Carsten Dominik  <dominik@science.uva.nl>
 
         * org.el (org-schedule, org-deadline): Protect scheduled and
-        deadline tasks against changes that accidently remove the
+        deadline tasks against changes that accidentally remove the
         repeater.  Also show a message with the new date when done.
 
 2008-06-17  Carsten Dominik  <dominik@science.uva.nl>
diff --git a/lisp/printing.el b/lisp/printing.el
index d6c67cc68a6..2dea24149a7 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -547,7 +547,7 @@ Please send all bug fixes and enhancements to
 ;; `pr-auto-region'             Non-nil means region is automagically detected.
 ;;
 ;; `pr-auto-mode'               Non-nil means major-mode specific printing is
-;;                              prefered over normal printing.
+;;                              preferred over normal printing.
 ;;
 ;; `pr-mode-alist'              Specify an alist for a major-mode and printing
 ;;                              function.
@@ -2426,7 +2426,7 @@ marked instead of all buffer."
 
 
 (defcustom pr-auto-mode t
-  "Non-nil means major-mode specific printing is prefered over normal printing.
+  "Non-nil means major-mode specific printing is preferred over normal printing.
 
 That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
 and `*-region*' commands will behave like `*-mode*' commands; otherwise,
@@ -5458,7 +5458,7 @@ If menu binding was not done, calls `pr-menu-bind'."
 
 
 (defun pr-toggle-mode-menu (&optional no-menu)
-  "Toggle whether major-mode specific printing is prefered over normal printing."
+  "Toggle whether major-mode specific printing is preferred over normal printing."
   (interactive)
   (pr-toggle 'pr-auto-mode "Auto mode"
              'printing 1 12 'toggle nil no-menu))
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 9352725384b..07359539256 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -7650,7 +7650,7 @@ $~	The name of the current report format.
 ... &= ...      Bitwise and assignment.
 ... * ...       Multiplication.
 ... ** ...      Exponentiation.
-*NAME   Glob: all objects refered by NAME.  *NAM1 = *NAM2 aliases NAM1 to NAM2.
+*NAME   Glob: all objects referred by NAME.  *NAM1 = *NAM2 aliases NAM1 to NAM2.
 &NAME(arg0, ...)        Subroutine call.  Arguments go to @_.
 ... + ...       Addition.               +EXPR   Makes EXPR into scalar context.
 ++      Auto-increment (magical on strings).    ++EXPR  EXPR++
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 30df073df12..b1c6e367ef7 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -3811,7 +3811,7 @@ Ediff Control Panel to restore highlighting."
          ;; later, and nconc above will break it. Either this or use slow
          ;; append instead of nconc
          (selected-buffers (ediff-get-selected-buffers))
-         (prefered-buffer (car all-buffers))
+         (preferred-buffer (car all-buffers))
          visible-dired-buffers
          (excl-buff-name-list
           (mapcar
@@ -3841,7 +3841,7 @@ Ediff Control Panel to restore highlighting."
              (cond ((member (buffer-name x) excl-buff-name-list) nil)
                    ((memq x selected-buffers) x)
                    ((not (ediff-get-visible-buffer-window x)) nil)
-                   ((eq x prefered-buffer) x)
+                   ((eq x preferred-buffer) x)
                    ;; if prev selected buffer is dired, look only at
                    ;; dired.
                    ((eq use-dired-major-mode 'yes)
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 20361d32450..1f54b8577c3 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -384,7 +384,7 @@ bit output with no translation."
 ;;   ;; If Unicode Windows charset is not defined, use ansi fonts.
 ;;   (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
 
-;; Prefered names
+;; Preferred names
 (w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950)
 (w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936)
 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)