Spelling fixes.

31 files changed, 60 insertions, 66 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6138eaa15b..eaef867e9e2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8347,7 +8347,8 @@
 
 2012-03-18  Leo Liu  <sdl.web@gmail.com>
 
-        * net/rcirc.el (rcirc-cmd-quit): Allow quiting all servers with prefix.
+        * net/rcirc.el (rcirc-cmd-quit): Allow quitting all servers with
+        prefix.
 
 2012-03-17  Eli Zaretskii  <eliz@gnu.org>
 
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index d94d72d0f3c..c9085827f7b 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -5492,7 +5492,7 @@
 
 2003-02-14  Dave Love  <fx@gnu.org>
 
-        * international/code-pages.el: Undo `Trailing whitepace deleted.'
+        * international/code-pages.el: Undo `Trailing whitespace deleted.'
         damage.
         (cp1125, mik): Nullify mime-charset.
 
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index ce3536d53ee..22fe362d5d9 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -1358,13 +1358,13 @@ Return the first non-nil value returned by PROC."
 (defmethod ede-system-include-path ((this ede-project))
   "Get the system include path used by project THIS."
   nil)
-  
+
 (defmethod ede-system-include-path ((this ede-target))
   "Get the system include path used by project THIS."
   nil)
 
 (defmethod ede-source-paths ((this ede-project) mode)
-  "Get the base to all source trees in the current projet for MODE.
+  "Get the base to all source trees in the current project for MODE.
 For example, <root>/src for sources of c/c++, Java, etc,
 and <root>/doc for doc sources."
   nil)
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el
index f6446db9108..152f8130ad7 100644
--- a/lisp/cedet/ede/auto.el
+++ b/lisp/cedet/ede/auto.el
@@ -68,7 +68,7 @@ into memory.")
 
      ;; Add new types of dirmatches here.
 
-     ;; Error for wierd stuff
+     ;; Error for weird stuff
      (t (error "Unknown dirmatch type.")))))
 
 
@@ -285,7 +285,7 @@ the current buffer."
             ;; If this file DOES NOT match dirmatch, we set the callfcn
             ;; to nil, meaning don't load the ede support file for this
             ;; type of project.  If it does match, we will load the file
-            ;; and use a more accurate programatic match from there.
+            ;; and use a more accurate programmatic match from there.
             (unless (ede-project-dirmatch-p file dirmatch)
               (setq callfcn nil))))
         ;; Call into the project support file for a match.
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el
index 8144b135ac5..ebfb4154d81 100644
--- a/lisp/cedet/ede/autoconf-edit.el
+++ b/lisp/cedet/ede/autoconf-edit.el
@@ -165,7 +165,7 @@ items such as CHECK_HEADERS."
     (setq param (substring param (match-end 0))))
   (when (string-match "\\s-*\\]?\\s-*\\'" param)
     (setq param (substring param 0  (match-beginning 0))))
-  ;; Look for occurances of backslash newline
+  ;; Look for occurrences of backslash newline
   (while (string-match "\\s-*\\\\\\s-*\n\\s-*" param)
     (setq param (replace-match " " t t param)))
   param)
diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el
index 6a13a12e8e1..6b0f007916b 100644
--- a/lisp/cedet/inversion.el
+++ b/lisp/cedet/inversion.el
@@ -348,7 +348,7 @@ Optional argument RESERVED is saved for later use."
 
 ;;;###autoload
 (defun inversion-require-emacs (emacs-ver xemacs-ver sxemacs-ver)
-  "Declare that you need either EMACS-VER, XEMACS-VER or SXEMACE-ver.
+  "Declare that you need either EMACS-VER, XEMACS-VER or SXEMACS-ver.
 Only checks one based on which kind of Emacs is being run."
   (let ((err (inversion-test 'emacs
                              (cond ((featurep 'sxemacs)
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 871bcdd6176..02ad6e05d1a 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -390,7 +390,7 @@ Pulls out the symbol list, and call `semantic-c-convert-spp-value-to-hideif-valu
       ;; can then interpret.
       (let ((stream (semantic-lex-spp-symbol-stream spp-symbol)))
         (cond
-         ;; Empyt string means defined, so t.
+         ;; Empty string means defined, so t.
          ((null stream) t)
          ;; A list means a parsed macro stream.
          ((listp stream)
@@ -515,7 +515,7 @@ code to parse."
           ;; should be skipped.
           (semantic-c-skip-conditional-section)
           (setq semantic-lex-end-point (point))
-          
+
           ;; @TODO -somewhere around here, we also need to skip
           ;; other sections of the conditional.
 
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index f666491d667..61760dd3fe8 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1555,7 +1555,7 @@ number of completions initially.  Pressing TAB will show the
 extended set.
 
 Quiet: Only show completions when we have narrowed all
-posibilities down to a maximum of
+possibilities down to a maximum of
 `semantic-displayor-tooltip-initial-max-tags' tags.  Pressing TAB
 multiple times will also show completions.
 
@@ -2239,4 +2239,3 @@ will perform the completion."
 ;; End:
 
 ;;; semantic/complete.el ends here
-
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el
index 0d144483cb9..a7bb130810e 100644
--- a/lisp/cedet/semantic/db-global.el
+++ b/lisp/cedet/semantic/db-global.el
@@ -48,7 +48,7 @@ in a GNU Global supported hierarchy.
 Two sanity checks are performed to assure (a) that GNU global program exists
 and (b) that the GNU global program version is compatibility with the database
 version.  If optional NOERROR is nil, then an error may be signalled on version
-mismatch.  If NOERROR is not nil, then no error will be signlled.  Instead
+mismatch.  If NOERROR is not nil, then no error will be signaled.  Instead
 return value will indicate success or failure with non-nil or nil respective
 values."
   (interactive
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 94999a2797b..0da98a6d357 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -584,7 +584,7 @@ If there isn't one, create it.
     (dolist (P path)
       (condition-case nil
           (oset P pointmax nil)
-        ;; Pointmax may not exist for all tables disovered in the
+        ;; Pointmax may not exist for all tables discovered in the
         ;; path.
         (error nil))
       (semantic-reset (semanticdb-get-typecache P)))))
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index ede5c890163..0c2c5e3ce37 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -589,7 +589,7 @@ This means that Semantic cannot find a file associated with this tag
 on disk, but a database table of tags has been associated with it.
 
 This means that the include will still be used to find tags for
-searches, but you connot visit this include.\n\n")
+searches, but you cannot visit this include.\n\n")
       (princ "This Header is now represented by the following database table:\n\n  ")
       (princ (object-print table))
       )))
diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el
index c14ffb77169..5a12047eb76 100644
--- a/lisp/cedet/semantic/fw.el
+++ b/lisp/cedet/semantic/fw.el
@@ -85,7 +85,7 @@
                     c)))
             event))
         (defun semantic-popup-menu (menu)
-          "Blockinig version of `popup-menu'"
+          "Blocking version of `popup-menu'"
           (popup-menu menu)
           ;; Wait...
           (while (popup-up-p) (dispatch-event (next-event))))
@@ -139,7 +139,7 @@
         'run-mode-hooks
       'run-hooks))
 
-  ;; Fancy compat useage now handled in cedet-compat
+  ;; Fancy compat usage now handled in cedet-compat
   (defalias 'semantic-subst-char-in-string 'subst-char-in-string)
   )
 
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 5fe900452a0..406f2900563 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -646,7 +646,7 @@ be merged recursively."
                  ;; #define FOO(a) foo##a##bar
                  (semantic-lex-spp-symbol-merge (cadr tok)))
                 (t
-                 (message "Invalid merge macro ecountered; \
+                 (message "Invalid merge macro encountered; \
 will return empty string instead.")
                  "")))
              txt
diff --git a/lisp/cedet/semantic/symref/filter.el b/lisp/cedet/semantic/symref/filter.el
index c294fd1727e..c6aa48bfbc3 100644
--- a/lisp/cedet/semantic/symref/filter.el
+++ b/lisp/cedet/semantic/symref/filter.el
@@ -101,7 +101,7 @@ tag that contains point, and return that."
        (semantic-tag-start tag)
        (semantic-tag-end tag))
       (when (called-interactively-p 'interactive)
-        (message "Found %d occurances of %s in %.2f seconds"
+        (message "Found %d occurrences of %s in %.2f seconds"
                  Lcount (semantic-tag-name target)
                  (semantic-elapsed-time start (current-time))))
       Lcount)))
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el
index d6d2c203aa8..094ea554287 100644
--- a/lisp/cedet/semantic/tag-ls.el
+++ b/lisp/cedet/semantic/tag-ls.el
@@ -66,7 +66,7 @@ have values, they must still match."
 
 (define-overloadable-function semantic--tag-similar-types-p (tag1 tag2)
   "Compare the types of TAG1 and TAG2.
-This functions can be overriden, for example to compare a fully
+This function can be overridden, for example to compare a fully
 qualified with an unqualified type."
   (cond
    ((and (null (semantic-tag-type tag1))
@@ -80,7 +80,7 @@ qualified with an unqualified type."
 
 (defun semantic--tag-similar-types-p-default (tag1 tag2)
   "Compare the types of TAG1 and TAG2.
-This functions can be overriden, for example to compare a fully
+This function can be overridden, for example to compare a fully
 qualified with an unqualified type."
   (semantic-tag-of-type-p tag1 (semantic-tag-type tag2)))
 
@@ -97,7 +97,7 @@ Modes that override this function can call `semantic--tag-attribute-similar-p-de
 to do the default equality tests if ATTR is not special for that mode.")
 
 (defun semantic--tag-attribute-similar-p-default (attr value1 value2 ignorable-attributes)
-  "For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarness."
+  "For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarity."
   (cond
    ;; Tag sublists require special testing.
    ((and (listp value1) (semantic-tag-p (car value1))
@@ -131,7 +131,7 @@ Similar tags that have sub-tags such as arg lists or type members,
 are similar w/out checking the sub-list of tags.
 Optional argument IGNORABLE-ATTRIBUTES are attributes to ignore while comparing similarity.
 By default, `semantic-tag-similar-ignorable-attributes' is referenced for
-attributes, and IGNOREABLE-ATTRIBUTES will augment this list.
+attributes, and IGNORABLE-ATTRIBUTES will augment this list.
 
 Note that even though :name is not an attribute, it can be used to
 to indicate lax comparison of names via `semantic--tag-similar-names-p'")
@@ -207,7 +207,7 @@ Return the name of the first tag of class `package' in STREAM."
 
 (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 languages use this concept such that a
diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el
index 08fe467b367..38166871cea 100644
--- a/lisp/cedet/semantic/tag.el
+++ b/lisp/cedet/semantic/tag.el
@@ -554,7 +554,7 @@ You can identify a faux tag with `semantic-tag-faux-p'"
   "Set TAG name to NAME."
   (setcar tag name))
 
-;;; TAG Proxys
+;;; TAG Proxies
 ;;
 ;; A new kind of tag is a TAG PROXY.  These are tags that have some
 ;; minimal number of features set, such as name and class, but have a
@@ -570,7 +570,7 @@ two arguments, DATA and TAG.  TAG is a proxy tag that needs
 to be resolved, and DATA is the DATA passed into this function.
 DATA is data to help resolve the proxy.  DATA can be an EIEIO object,
 such that FUNCTION is a method.
-FUNCTION should return a list of tags, preferrably one tag."
+FUNCTION should return a list of tags, preferably one tag."
   (let ((sym (make-symbol ":tag-proxy")))
     (put sym 'proxy-function function)
     (put sym 'proxy-data data)
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el
index 6677e2c3abb..69fe762887f 100644
--- a/lisp/emacs-lisp/eieio-base.el
+++ b/lisp/emacs-lisp/eieio-base.el
@@ -228,8 +228,8 @@ a file.  Optional argument NAME specifies a default file name."
   "Read a persistent object from FILENAME, and return it.
 Signal an error if the object in FILENAME is not a constructor
 for CLASS.  Optional ALLOW-SUBCLASS says that it is ok for
-`eieio-peristent-read' to load in subclasses of class instead of
-being pendantic."
+`eieio-persistent-read' to load in subclasses of class instead of
+being pedantic."
   (unless class
     (message "Unsafe call to `eieio-persistent-read'."))
   (when (and class (not (class-p class)))
@@ -301,7 +301,7 @@ identified, and needing more object creation."
   "Validate that in CLASS, the SLOT with PROPOSED-VALUE is good, then fix.
 A limited number of functions, such as quote, list, and valid object
 constructor functions are considered valid.
-Secondarilly, any text properties will be stripped from strings."
+Second, any text properties will be stripped from strings."
   (cond ((consp proposed-value)
          ;; Lists with something in them need special treatment.
          (let ((slot-idx (eieio-slot-name-index class nil slot))
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 494d8a87e0e..08b8ced9860 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -204,7 +204,7 @@ timers).  If nil, allocate a new cell."
   "Insert TIMER into `timer-idle-list'.
 This arranges to activate TIMER whenever Emacs is next idle.
 If optional argument DONT-WAIT is non-nil, set TIMER to activate
-immediately \(see beloe\), or at the right time, if Emacs is
+immediately \(see below\), or at the right time, if Emacs is
 already idle.
 
 REUSE-CELL, if non-nil, is a cons cell to reuse when inserting
diff --git a/lisp/ido.el b/lisp/ido.el
index 94818fe57b0..ffa2604d4fb 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -496,7 +496,7 @@ as first char even if `ido-enable-prefix' is nil."
 ;; See http://debbugs.gnu.org/2042 for more info.
 (defcustom ido-buffer-disable-smart-matches t
   "Non-nil means not to re-order matches for buffer switching.
-By default, ido aranges matches in the following order:
+By default, ido arranges matches in the following order:
 
   full-matches > suffix matches > prefix matches > remaining matches
 
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 066ebf3e6e0..ef40c9316cf 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -2079,13 +2079,7 @@
 
         * org-agenda.el (org-agenda-list): Ensures that the list returned
         by `org-agenda-add-time-grid-maybe' is appended to ̀rtnall' before
-        checking if the latter is emtpy.
-
-2012-09-30  Christophe Junke  <junke.christophe@gmail.com>  (tiny change)
-
-        * org-agenda.el (org-agenda-list): Ensure that the list returned
-        by `org-agenda-add-time-grid-maybe' is appended to `rtnall' before
-        checking if the latter is emtpy.
+        checking if the latter is empty.
 
 2012-09-30  Christophe Rhodes  <csr21@cantab.net>  (tiny change)
 
@@ -2691,7 +2685,7 @@
         * org-element.el (org-element-paragraph-parser): Fix parsing of
         paragraph at the beginning of an item.
 
-        * org.el (org-mode): Set back comment-start-skip so comment-dwin
+        * org.el (org-mode): Set back comment-start-skip so comment-dwim
         can tell a keyword from a comment.
 
         * org.el (org-set-autofill-regexps): Install new comment line
@@ -2959,7 +2953,7 @@
 
         * org-capture.el (org-capture-fill-template): Expand %<num> escape
         sequences into text entered for <num>'th %^{PROMPT} escape.
-        
+
         * org-capture.el (org-capture-fill-template): Fixed regexp for
         %<n> expandos to match any positive integer.
         (org-capture-templates): Updated docstring accordingly.
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 97241b6ac65..32fecde2af0 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -823,7 +823,7 @@ because you will take care of it on the day when scheduled."
   :group 'org-agenda-daily/weekly
   :version "24.1"
   :type '(choice
-          (const :tag "Alwas show prewarning" nil)
+          (const :tag "Always show prewarning" nil)
           (const :tag "Remove prewarning if entry is scheduled" t)
           (integer :tag "Restart prewarning N days before deadline")))
 
@@ -2837,7 +2837,7 @@ L   Timeline for current buffer         #   List stuck projects (!=configure)
     (widen)
     (let ((inhibit-read-only t))
       (add-text-properties (point-min) (point-max)
-                           `(org-serie t org-serie-redo-cmd ,redo)))
+                           `(org-series t org-series-redo-cmd ,redo)))
     (setq org-agenda-redo-command redo)
     (goto-char (point-min)))
   (org-agenda-fit-window-to-buffer)
@@ -4019,7 +4019,7 @@ given in `org-agenda-start-on-weekday'."
                            `(org-agenda-type agenda
                                              org-last-args (,arg ,start-day ,span)
                                              org-redo-cmd ,org-agenda-redo-command
-                                             org-serie-cmd ,org-cmd))
+                                             org-series-cmd ,org-cmd))
       (if (eq org-agenda-show-log-scoped 'clockcheck)
           (org-agenda-show-clocking-issues))
       (org-agenda-finalize)
@@ -4324,7 +4324,7 @@ in `org-agenda-text-search-extra-files'."
                            `(org-agenda-type search
                                              org-last-args (,todo-only ,string ,edit-at)
                                              org-redo-cmd ,org-agenda-redo-command
-                                             org-serie-cmd ,org-cmd))
+                                             org-series-cmd ,org-cmd))
       (org-agenda-finalize)
       (setq buffer-read-only t))))
 
@@ -4414,7 +4414,7 @@ for a keyword.  A numeric prefix directly selects the Nth keyword in
                            `(org-agenda-type todo
                                              org-last-args ,arg
                                              org-redo-cmd ,org-agenda-redo-command
-                                             org-serie-cmd ,org-cmd))
+                                             org-series-cmd ,org-cmd))
       (org-agenda-finalize)
       (setq buffer-read-only t))))
 
@@ -4499,7 +4499,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
                            `(org-agenda-type tags
                                              org-last-args (,todo-only ,match)
                                              org-redo-cmd ,org-agenda-redo-command
-                                             org-serie-cmd ,org-cmd))
+                                             org-series-cmd ,org-cmd))
       (org-agenda-finalize)
       (setq buffer-read-only t))))
 
@@ -6583,7 +6583,7 @@ Org-mode buffers visited directly by the user will not be touched."
   (org-agenda-Quit))
 
 (defun org-agenda-kill-all-agenda-buffers ()
-  "Kill all buffers in `org-agena-mode'.
+  "Kill all buffers in `org-agenda-mode'.
 This is used when toggling sticky agendas.  You can also explicitly invoke it
 with `C-c a C-k'."
   (interactive)
@@ -6623,20 +6623,20 @@ in the agenda."
          (lprops (get 'org-agenda-redo-command 'org-lprops))
          (redo-cmd (get-text-property p 'org-redo-cmd))
          (last-args (get-text-property p 'org-last-args))
-         (org-agenda-overriding-cmd (get-text-property p 'org-serie-cmd))
+         (org-agenda-overriding-cmd (get-text-property p 'org-series-cmd))
          (org-agenda-overriding-cmd-arguments
           (unless (eq all t)
             (cond ((listp last-args)
                    (cons (or cpa (car last-args)) (cdr last-args)))
                   ((stringp last-args)
                    last-args))))
-         (serie-redo-cmd (get-text-property p 'org-serie-redo-cmd)))
+         (series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
     (put 'org-agenda-tag-filter :preset-filter nil)
     (put 'org-agenda-category-filter :preset-filter nil)
     (and cols (org-columns-quit))
     (message "Rebuilding agenda buffer...")
-    (if serie-redo-cmd
-        (eval serie-redo-cmd)
+    (if series-redo-cmd
+        (eval series-redo-cmd)
       (org-let lprops '(eval redo-cmd)))
     (setq org-agenda-undo-list nil
           org-agenda-pending-undo-list nil)
@@ -7035,7 +7035,7 @@ Negative selection means regexp must not match for selection of an entry."
    (or (and cnt (text-property-any (point-min) (point-max) 'org-day-cnt cnt))
        (text-property-any (point-min) (point-max) 'org-today t)
        (text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
-       (and (get-text-property (min (1- (point-max)) (point)) 'org-serie)
+       (and (get-text-property (min (1- (point-max)) (point)) 'org-series)
             (org-agenda-goto-block-beginning))
        (point-min))))
 
@@ -7090,7 +7090,7 @@ With prefix ARG, go forward that many times the current span."
            ;; `cmd' may have been set by `org-agenda-run-series' which
            ;; uses `org-agenda-overriding-cmd' to decide whether
            ;; overriding is allowed for `cmd'
-           (get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
+           (get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
           (org-agenda-overriding-arguments
            (list (car args) sd span)))
       (org-agenda-redo)
@@ -7183,7 +7183,7 @@ SPAN may be `day', `week', `month', `year'."
                    org-starting-day))
            (sd (org-agenda-compute-starting-span sd span n))
            (org-agenda-overriding-cmd
-            (get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
+            (get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
            (org-agenda-overriding-arguments
             (list (car args) sd span)))
       (org-agenda-redo)
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index 3d67ae7892a..8b44d4936f5 100644
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -3924,7 +3924,7 @@ Return Org syntax as a string."
                          (and (eq type 'paragraph)
                               (equal data (car (org-element-contents parent)))
                               (memq (org-element-type parent)
-                                    '(footnote-definiton item))))))
+                                    '(footnote-definition item))))))
                      "")))
               (funcall (intern (format "org-element-%s-interpreter" type))
                        data
diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el
index cfa4c1c30a5..51aead1b8bb 100644
--- a/lisp/org/org-faces.el
+++ b/lisp/org/org-faces.el
@@ -293,7 +293,7 @@ column view defines special faces for each outline level.  See the file
       (((class color) (min-colors 8)  (background dark))  (:foreground "red"  :inverse-video t))
       (t (:inverse-video t))))
   "Face for highlighting the calendar day when using `org-read-date'.
-Using a bold face here might cause discrepencies while displaying the
+Using a bold face here might cause discrepancies while displaying the
 calendar."
   :group 'org-faces)
 
diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el
index 7a1eb7762de..dd493749295 100644
--- a/lisp/org/org-remember.el
+++ b/lisp/org/org-remember.el
@@ -64,7 +64,7 @@ and `org-remember-default-headline'.  To force prompting anyway, use
 \\[universal-argument] \\[org-remember-finalize] to file the note.
 
 When this variable is nil, \\[org-remember-finalize] gives you the prompts, and
-\\[universal-argument] \\[org-remember-finalize] triggers the fasttrack."
+\\[universal-argument] \\[org-remember-finalize] triggers the fast track."
   :group 'org-remember
   :type 'boolean)
 
diff --git a/lisp/proced.el b/lisp/proced.el
index be6cae2ef08..ec41ce65ef5 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1784,7 +1784,7 @@ supported but discouraged.  It will be removed in a future version of Emacs."
              process-alist))))
 
   (unless (and signal process-alist)
-    ;; Discouraged usge (supported for backward compatibility):
+    ;; Discouraged usage (supported for backward compatibility):
     ;; The new calling sequence separates more cleanly between the parts
     ;; of the code required for interactive and noninteractive calls so that
     ;; the command can be used more flexibly in noninteractive ways, too.
diff --git a/lisp/profiler.el b/lisp/profiler.el
index efa23e7aec0..5e605957833 100644
--- a/lisp/profiler.el
+++ b/lisp/profiler.el
@@ -495,7 +495,7 @@ return it."
             t))))))
 
 (defun profiler-report-collapse-entry ()
-  "Collpase entry at point."
+  "Collapse entry at point."
   (interactive)
   (save-excursion
     (beginning-of-line)
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index b917d3f6429..d5aa73f5ef3 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -502,7 +502,7 @@ The type returned can be `comment', `string' or `paren'."
      (and
       ;; Match even number of backslashes.
       (or (not (any ?\\ ?\' ?\")) point
-          ;; Quotes might be preceeded by a escaped quote.
+          ;; Quotes might be preceded by a escaped quote.
           (and (or (not (any ?\\)) point) ?\\
                (* ?\\ ?\\) (any ?\' ?\")))
       (* ?\\ ?\\)
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 86ffdf535a0..8c4167b6724 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -5148,7 +5148,7 @@ This sets up the appropriate Verilog mode environment, removes
 whitespace with \\[verilog-delete-trailing-whitespace] on all
 command-line files, and saves the buffers."
   (unless noninteractive
-    (error "Use verilog-batch-delete-trailing-whitepace only with --batch"))  ;; Otherwise we'd mess up buffer modes
+    (error "Use verilog-batch-delete-trailing-whitespace only with --batch"))  ;; Otherwise we'd mess up buffer modes
   (verilog-batch-execute-func `verilog-delete-trailing-whitespace))
 
 (defun verilog-batch-diff-auto ()
@@ -12161,7 +12161,7 @@ Limitations:
   Interface names must be resolvable to filenames.  See `verilog-auto-inst'.
 
 As with other autos, any inputs/outputs declared in the module
-will suppress the AUTO from redeclarating an inputs/outputs by
+will suppress the AUTO from redeclaring an input/output by
 the same name.
 
 An example:
diff --git a/lisp/subr.el b/lisp/subr.el
index 8dfe78d8c75..b0ffb0db746 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3170,7 +3170,7 @@ in which case `save-window-excursion' cannot help."
           (set-window-hscroll window 0)
           ;; Don't try this with NOFORCE non-nil!
           (set-window-start window (point-min) t)
-          ;; This hould not be necessary.
+          ;; This should not be necessary.
           (set-window-point window (point-min))
           ;; Run `temp-buffer-show-hook', with the chosen window selected.
           (with-selected-window window
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 7052dcf473e..bdee0fcf1d4 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -2466,7 +2466,7 @@ information about your RefTeX version and configuration."
      "Remember to cover the basics, that is, what you expected to happen and
 what in fact did happen.
 
-Check if the bug is reproducable with an up-to-date version of
+Check if the bug is reproducible with an up-to-date version of
 RefTeX available from http://www.gnu.org/software/auctex/.
 
 If the bug is triggered by a specific \(La\)TeX file, you should try
diff --git a/lisp/window.el b/lisp/window.el
index 811b1781b4c..41af7f9f44b 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -701,7 +701,7 @@ SIDE.  Return the new window, nil if its creation window failed."
       (set-window-parameter new 'delete-window 'delete-side-window)
       ;; Auto-adjust height/width of new window unless a size has been
       ;; explicitly requested.
-      (unless (if left-or-right 
+      (unless (if left-or-right
                   (cdr (assq 'window-width alist))
                 (cdr (assq 'window-height alist)))
         (setq alist
@@ -5615,7 +5615,7 @@ the selected one."
               buffer window 'reuse alist display-buffer-mark-dedicated)))))
 
 (defun display-buffer-at-bottom (buffer alist)
-  "Try displaying BUFFER in a window at the botom of the selected frame.
+  "Try displaying BUFFER in a window at the bottom of the selected frame.
 This either splits the window at the bottom of the frame or the
 frame's root window, or reuses an existing window at the bottom
 of the selected frame."