; Fix typos

52 files changed, 76 insertions, 76 deletions

diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index 6053ffa65aa..de73fe7f0a2 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -1737,7 +1737,7 @@
         (bibtex-find-crossref, bibtex-find-entry): New funs.
         (bibtex-find-entry-location): Rename to bibtex-prepare-new-entry, use
         bibtex-lessp, Simplify.
-        (bibtex-validate): Simplify.  Fixe bug of internal variable
+        (bibtex-validate): Simplify.  Fix bug of internal variable
         questionable-month.
         (bibtex-remove-OPT-or-ALT): Use when.
         (bibtex-remove-delimiters, bibtex-kill-field, bibtex-kill-entry)
@@ -9449,7 +9449,7 @@
         Use shy group.
         (outline-level) <var>: Update calling convention.
         (outline-level) <fun>: Take advantage of it.
-        (outline-demote): Don't assume the match-data is still uptodate.
+        (outline-demote): Don't assume the match-data is still up-to-date.
         (outline-up-heading): Simplify and make sure the match data is
         properly set at the end.
 
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index a89e5155106..db27bd225dd 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -1556,7 +1556,7 @@
         (org-search-not-self): Rename from `org-search-not-link'.
         (org-open-link-marker): New variable.
         (org-open-at-point): Set `org-open-link-marker'.
-        (org-print-icalendar-entries): Fixe bug with excluding DONE
+        (org-print-icalendar-entries): Fix bug with excluding DONE
         entries from the exported list.
         (org-edit-formula-lisp-indent): New command.
         (orgtbl-to-texinfo, orgtbl-to-html): New functions.
@@ -5243,7 +5243,7 @@
 
 2006-10-11  Ilya Zakharevich  <ilyaz@cpan.org>
 
-        * progmodes/cperl-mode.el: Merge from upstream, upto version 5.22.
+        * progmodes/cperl-mode.el: Merge from upstream, up to version 5.22.
         After 5.0:
         (cperl-add-tags-recurse-noxs-fullpath): New function (for -batch mode).
 
@@ -11874,7 +11874,7 @@
 
         * files.el (hack-local-variables-confirm): Don't prompt for ! if
         enable-local-variables is set to always query, or there is no
-        savable variable.
+        saveable variable.
 
 2006-03-10  Bill Wohler  <wohler@newt.com>
 
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index 369aec81ef1..326003d9d9d 100644
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -1070,7 +1070,7 @@
         * international/mule-cmds.el (char-code-property-alist): New variable.
         (define-char-code-property): New function.
         (get-char-code-property, put-char-code-property): Handle a
-        char-table registerd in char-code-property-alist.
+        char-table registered in char-code-property-alist.
         (set-language-environment): Check :ascii-compatible-p property of
         nonascii charset instead of its dimension.
 
@@ -13901,7 +13901,7 @@
 2007-07-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the
-        underlying file is uptodate.
+        underlying file is up-to-date.
 
 2007-07-23  Christopher J. Madsen  <cjm@cjmweb.net>
 
@@ -15245,7 +15245,7 @@
 2007-06-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * emacs-lisp/autoload.el (autoload-modified-buffers): New var.
-        (autoload-find-destination): Keep it uptodate.
+        (autoload-find-destination): Keep it up-to-date.
         (autoload-save-buffers): New fun.
         (update-file-autoloads): Use it.  Re-add the "up to date" message.
 
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14
index 686746abe0b..8d8c6117788 100644
--- a/lisp/ChangeLog.14
+++ b/lisp/ChangeLog.14
@@ -6103,7 +6103,7 @@
         * international/quail.el (quail-show-guidance): Don't create
         a guidance-frame if current buffer is not a minibuffer, since even if
         selected-window is mini-p, the buffer will never be displayed in it, so
-        it wil be usable for guidance.
+        it will be usable for guidance.
 
 2008-10-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16
index 5b2244dec0c..85f8cdd7b0a 100644
--- a/lisp/ChangeLog.16
+++ b/lisp/ChangeLog.16
@@ -15340,7 +15340,7 @@
         * subr.el (with-selected-frame): Mention that the selected frame
         is restored (bug#9980).
 
-        * ibuffer.el (ibuffer-mode): List the bindings in the corrent map
+        * ibuffer.el (ibuffer-mode): List the bindings in the correct map
         (bug#9759).
 
         * mail/smtpmail.el (password-cache-add): Remove unused declaration.
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3
index 7f5ceb4b854..e23226b8440 100644
--- a/lisp/ChangeLog.3
+++ b/lisp/ChangeLog.3
@@ -7326,8 +7326,7 @@
 1991-07-13  Jim Blandy  (jimb@churchy.gnu.ai.mit.edu)
 
         * info.el (Info-find-node): Call buffer-flush-undo with one arg,
-        instead of none.  Change call to get-buffer-c>reate to
-        get-buffer-create.
+        instead of none.  Fix typo in call to get-buffer-create.
 
         * startup.el (command-line): Remove the arguments from
         command-line-args as we process them.
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4
index e965dbb5ef8..ea0502975ec 100644
--- a/lisp/ChangeLog.4
+++ b/lisp/ChangeLog.4
@@ -6858,7 +6858,7 @@
 1993-07-26  Richard Stallman  (rms@mole.gnu.ai.mit.edu)
 
         * frame.el (frame-notice-user-settings): Don't reapply a parm
-        whose value is ot changed (as far as we know) since frame-initialize.
+        whose value is not changed (as far as we know) since frame-initialize.
 
         * simple.el (kill-ring-save): Delete spurious `message' call.
         (set-mark): If POS is nil, call deactivate-mark.
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6
index e2128b94c0d..27d522aaf2a 100644
--- a/lisp/ChangeLog.6
+++ b/lisp/ChangeLog.6
@@ -7392,7 +7392,7 @@
         (ada-format-paramlist): Simplified a regexp.
         (ada-indent-current): On first line of the buffer, indent to column 0.
         Don't reindent if new position is the same as the old one.  Thus, a
-        correctly indended line is not modified.
+        correctly indented line is not modified.
         (ada-get-indent-subprog): Simplified a regexp.
         (ada-goto-matching-decl-start): Distinguish between normal type
         declaration and protected types, which are more like procedures.
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index c81968e6ee8..32208324541 100644
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -20821,7 +20821,7 @@
         function word-help-find-help-file.
         (word-help-guess-all): New subroutine.
         (word-help-guess): Use word-help-guess-all.
-        May optionally copy only upto the cursor,
+        May optionally copy only up to the cursor,
         instead of the entire keyword.
 
 1997-01-01  Richard Stallman  <rms@ethanol.gnu.ai.mit.edu>
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index 78fc7e20566..a14d6821925 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -4356,7 +4356,7 @@
 1999-07-21  Gerd Moellmann  <gerd@gnu.org>
 
         * scroll-bar.el (scroll-bar-toolkit-scroll): New.
-        (global): Use different key bindings if using tookit scroll bars.
+        (global): Use different key bindings if using toolkit scroll bars.
 
 1999-07-21  Gerd Moellmann  <gerd@gnu.org>
 
@@ -9712,7 +9712,7 @@
         (ps-mule-font-info-database-ps-bdf): New variable.
         (ccl-encode-ethio-unicode): Bug of CCL code fixed.
         (ps-mule-generate-font): Give CHARSET arg to FONT-FUNC function
-        registerd in FONT-SPEC.
+        registered in FONT-SPEC.
         (ps-mule-bitmap-prologue): Fix PostScript code to realize correct
         character width of bitmap fonts.
         (ps-mule-generate-bitmap-font): Give COLUMNS arg to PostScript
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index a8ebe81e7d7..4cb10d2d55e 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -789,7 +789,7 @@
         (command-line-1): If inhibit-startup-buffer-menu is set, don't
         display the buffer menu.  From Simon Josefsson <jas@extundo.com>.
 
-        This allows upto 99999 messages in the summary without screwing up
+        This allows up to 99999 messages in the summary without screwing up
         the summary sorting.  Previously 9999 was the maximum.  Added to NEWS.
 
         * mail/rmailsum.el (rmail-make-summary-line)
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 0ebfc4bb8d2..9a2baf1e43c 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1769,7 +1769,7 @@ These functions give the date in alternative calendrical systems:
 `diary-islamic-date', `diary-julian-date', `diary-mayan-date',
 `diary-persian-date'
 
-Theses functions only produce output on certain dates:
+These functions only produce output on certain dates:
 
 `diary-lunar-phases'           - phases of moon (on the appropriate days)
 `diary-hebrew-omer'            - Omer count, within 50 days after Passover
diff --git a/lisp/cedet/ChangeLog.1 b/lisp/cedet/ChangeLog.1
index 5fe2e0e6dee..7803fc7f0c3 100644
--- a/lisp/cedet/ChangeLog.1
+++ b/lisp/cedet/ChangeLog.1
@@ -459,7 +459,7 @@
         * semantic/scope.el (semantic-analyze-scoped-types-default): If we
         cannot find a type in the typecache, also look into the types
         we already found.  This is necessary since in C++, a 'using
-        namespace' can be dependend on a previous one.
+        namespace' can be dependent on a previous one.
         (semantic-completable-tags-from-type): When creating the list of
         completable types, pull in types which are referenced through
         'using' statements, and also preserve their filenames.
diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el
index 7a486754a03..64f26516222 100644
--- a/lisp/cedet/ede/proj.el
+++ b/lisp/cedet/ede/proj.el
@@ -543,7 +543,7 @@ Converts all symbols into the objects to be used."
   (when (slot-exists-p obj 'compiler)
     (let ((comp (oref obj compiler)))
       (if comp
-          ;; Now that we have a pre-set compilers to use, convert tye symbols
+          ;; Now that we have a pre-set compilers to use, convert type symbols
           ;; into objects for ease of use
           (setq comp (if (listp comp)
                          (mapcar #'symbol-value comp)
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el
index 7f601621156..af7da9cc634 100644
--- a/lisp/cedet/semantic/analyze/fcn.el
+++ b/lisp/cedet/semantic/analyze/fcn.el
@@ -72,7 +72,7 @@ If SEQUENCE is all prototypes, or has no prototypes, get the first one.
 Optional TAGCLASS indicates to restrict the return to only
 tags of TAGCLASS."
 
-  ;; If there is a srew up and we get just one tag.. massage over it.
+  ;; If there is a screw up and we get just one tag.. massage over it.
   (when (semantic-tag-p sequence)
     (setq sequence (list sequence)))
 
diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 83e7ed66c13..50d7c8adf14 100644
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -822,7 +822,7 @@ hits in order, with the first tag being in the closest scope."
           ans)
       ;; Not a real scope.  Our scope calculation analyze parts of
       ;; what it finds, and needs to pass lists through to do it's work.
-      ;; Tread that list as a singly entry.
+      ;; Treat that list as a singly entry.
       (if class
           (semantic-find-tags-by-class class scope)
         scope)
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el
index eacbb6f1f8e..013864f81c0 100644
--- a/lisp/cedet/semantic/symref/list.el
+++ b/lisp/cedet/semantic/symref/list.el
@@ -378,7 +378,8 @@ BUTTON is the button that was clicked."
 
 (defun semantic-symref-list-on-hit-p ()
   "Return the line number if the cursor is on a buffer line with a hit.
-Hits are the line of code from the buffer, not the tag summar or file lines."
+Hits are the line of code from the buffer, not the tag summary or
+file lines."
   (save-excursion
     (end-of-line)
     (let* ((ol (car (overlays-at (1- (point)))))) ;; trust this for now
diff --git a/lisp/dired.el b/lisp/dired.el
index 8995c48df7f..81e62f88cf1 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1541,7 +1541,7 @@ BEG..END is the line where the file info is located."
             (when (< alt-col other-col)
               (setq other-col alt-col)
               (setq other (point)))))
-        ;; Keep positions uptodate when we insert stuff.
+        ;; Keep positions up-to-date when we insert stuff.
         (if (> other file) (setq other (copy-marker other)))
         (setq file (copy-marker file))
         ;; Main loop.
diff --git a/lisp/dnd.el b/lisp/dnd.el
index b2e93a63def..7708695346f 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -325,7 +325,7 @@ in that list instead."
 
 (defun dnd-begin-text-drag (text &optional frame action allow-same-frame)
   "Begin dragging TEXT from FRAME.
-Initate a drag-and-drop operation allowing the user to drag text
+Initiate a drag-and-drop operation allowing the user to drag text
 from Emacs to another program (the drop target), then block until
 the drop is completed or is canceled.
 
@@ -381,7 +381,7 @@ currently being held down.  It should only be called upon a
 
 (defun dnd-begin-file-drag (file &optional frame action allow-same-frame)
   "Begin dragging FILE from FRAME.
-Initate a drag-and-drop operation allowing the user to drag a file
+Initiate a drag-and-drop operation allowing the user to drag a file
 from Emacs to another program (the drop target), then block until
 the drop happens or is canceled.
 
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 113718fba3e..0ee094c34d8 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2823,7 +2823,7 @@ blocks."
             (first-processed (l)
               (if-let ((p (cl-find-if (lambda (p) (comp-block-idom p)) l)))
                   p
-                (signal 'native-ice "cant't find first preprocessed"))))
+                (signal 'native-ice "can't find first preprocessed"))))
 
     (when-let ((blocks (comp-func-blocks comp-func))
                (entry (gethash 'entry blocks))
diff --git a/lisp/emacs-lisp/hierarchy.el b/lisp/emacs-lisp/hierarchy.el
index fb5d518b22d..d955019a9db 100644
--- a/lisp/emacs-lisp/hierarchy.el
+++ b/lisp/emacs-lisp/hierarchy.el
@@ -191,7 +191,7 @@ PARENTFN, CHILDRENFN, ACCEPTFN, and DELAY-CHILDREN-P have the same meaning as in
 (defun hierarchy-add-list (hierarchy list &optional wrap childrenfn)
   "Add to HIERARCHY the sub-lists in LIST.
 
-If WRAP is non-nil, allow duplicate items in LIST by wraping each
+If WRAP is non-nil, allow duplicate items in LIST by wrapping each
 item in a cons (id . item).  The root's id is 1.
 
 CHILDRENFN is a function (defaults to `cdr') taking LIST as a
diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index dae6590b9bc..1083a6868ba 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -125,7 +125,7 @@
 ;;;###autoload
 (defun read-multiple-choice (prompt choices &optional help-string show-help
                                     long-form)
-  "Ask user to select an entry from CHOICES, promting with PROMPT.
+  "Ask user to select an entry from CHOICES, prompting with PROMPT.
 This function allows to ask the user a multiple-choice question.
 
 CHOICES should be a list of the form (KEY NAME [DESCRIPTION]).
diff --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el
index 2b1672ffd64..645b1a328f0 100644
--- a/lisp/emacs-lisp/tcover-ses.el
+++ b/lisp/emacs-lisp/tcover-ses.el
@@ -569,7 +569,7 @@ spreadsheet files with invalid formatting."
           (signal 'singularity-error nil)) ;Shouldn't get here
       (singularity-error (error "No error from %s?" x))
       (error nil)))
-  ;;Test quit-handling in ses-update-cells.  Cant' use `eval' here.
+  ;; Test quit-handling in ses-update-cells.  Can't use `eval' here.
   (let ((inhibit-quit t))
     (setq quit-flag t)
     (condition-case nil
diff --git a/lisp/files.el b/lisp/files.el
index a2825322580..b947451369c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -7294,7 +7294,7 @@ by `sh' are supported."
                               (setq i (1+ i))
                               "[]"))
                            (t "["))
-                          (prog1        ; copy everything upto next `]'.
+                          (prog1        ; copy everything up to next `]'.
                               (substring wildcard
                                          i
                                          (setq j (string-search
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3
index 8087021a7c8..c55d6225e3f 100644
--- a/lisp/gnus/ChangeLog.3
+++ b/lisp/gnus/ChangeLog.3
@@ -4243,7 +4243,7 @@
         * gnus-msg.el (gnus-inews-do-gcc):
         * message.el (message-send-mail):
         * mml.el (mml-generate-mime): Share the value of the buffer-local
-        `message-options' variable between a draft buffer and temprary working
+        `message-options' variable between a draft buffer and temporary working
         buffers.
 
 2011-11-30  Stefan Monnier  <monnier@iro.umontreal.ca>
@@ -10876,7 +10876,7 @@
 2010-09-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * gnus-group.el (gnus-group-line-format-alist): Have the ?U (unseen)
-        spec inser "*" if the group isn't active instead of 0.
+        spec insert "*" if the group isn't active instead of 0.
 
         * nnimap.el (nnimap-request-group): Don't select the imap buffer before
         opening the server.
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 4963fd083f7..a4962f9d5f0 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -173,7 +173,7 @@ properly with all servers."
 
 Groups with levels less than `gnus-level-subscribed', which
 should be less than this variable, are subscribed.  Groups with
-levels from `gnus-level-subscribed' (exclusive) upto this
+levels from `gnus-level-subscribed' (exclusive) up to this
 variable (inclusive) are unsubscribed.  See also
 `gnus-level-zombie', `gnus-level-killed' and the Info node `(gnus)Group
 Levels' for details.")
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 34092b1417e..df4c6ab079c 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -1937,7 +1937,7 @@ Otherwise, the link should be to the index file.
 We are not yet concerned with the file extensions/tag line number and so on at
 this point.
 
-If `hfy-split-index' is set, and the href wil be to an index file rather than
+If `hfy-split-index' is set, and the href will be to an index file rather than
 a source file, append a .X to `hfy-index-file', where X is the uppercased
 first character of TAG.
 
diff --git a/lisp/info.el b/lisp/info.el
index 02dde50dd6a..8860a664bd7 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2666,7 +2666,7 @@ new buffer."
 (defconst Info-menu-entry-name-re "\\(?:[^:]\\|:[^:,.;() \t\n]\\)*"
   ;; We allow newline because this is also used in Info-follow-reference,
   ;; where the xref name might be wrapped over two lines.
-  "Regexp that matches a menu entry name upto but not including the colon.
+  "Regexp that matches a menu entry name up to but not including the colon.
 Because of ambiguities, this should be concatenated with something like
 `:' and `Info-following-node-name-re'.")
 
diff --git a/lisp/man.el b/lisp/man.el
index 6c50f017e39..9dd247cc31e 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1077,13 +1077,13 @@ to auto-complete your input based on the installed manual pages."
     ;; unless COLUMNS or MANWIDTH is set.  This isn't a problem on
     ;; a tty.  man(1) says:
     ;;        MANWIDTH
-    ;;               If $MANWIDTH is set, its value is used as the  line
-    ;;               length  for which manual pages should be formatted.
-    ;;               If it is not set, manual pages  will  be  formatted
-    ;;               with  a line length appropriate to the current ter-
-    ;;               minal (using an ioctl(2) if available, the value of
-    ;;               $COLUMNS,  or falling back to 80 characters if nei-
-    ;;               ther is available).
+    ;;               If $MANWIDTH is set, its value is used as the line
+    ;;               length for which manual pages should be formatted.
+    ;;               If it is not set, manual pages will be formatted
+    ;;               with a line length appropriate to the current
+    ;;               terminal (using an ioctl(2) if available, the value
+    ;;               of $COLUMNS, or falling back to 80 characters if
+    ;;               neither is available).
     (when (or window-system
               (not (or (getenv "MANWIDTH") (getenv "COLUMNS"))))
       ;; Since the page buffer is displayed beforehand,
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1
index c7f55861408..d6893fb9ec4 100644
--- a/lisp/mh-e/ChangeLog.1
+++ b/lisp/mh-e/ChangeLog.1
@@ -2944,7 +2944,7 @@
         change fixes that.
 
         * mh-utils.el (mh-show-mode): Setup mh-show-mode to display
-        elipsis for truncated header fields and to skip over them quickly.
+        ellipsis for truncated header fields and to skip over them quickly.
         (mh-clean-msg-header): Make another pass over the message header
         fields truncating long headers.
 
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 1775e7d5e72..f878c6ca291 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -447,7 +447,7 @@ which will be concatenated with proper quoting before passing them to MPD."
 ;;; Support for regularly updated current status information ;;;;;;;;;;;;;;;
 
 ;; Exported elements:
-;; `mpc-status' holds the uptodate data.
+;; `mpc-status' holds the up-to-date data.
 ;; `mpc-status-callbacks' holds the registered callback functions.
 ;; `mpc-status-refresh' forces a refresh of the data.
 ;; `mpc-status-stop' stops the automatic updating.
diff --git a/lisp/net/tramp-crypt.el b/lisp/net/tramp-crypt.el
index 16c4049a687..09732581574 100644
--- a/lisp/net/tramp-crypt.el
+++ b/lisp/net/tramp-crypt.el
@@ -455,7 +455,7 @@ Otherwise, return NAME."
 (defun tramp-crypt-do-encrypt-or-decrypt-file (op root infile outfile)
   "Encrypt / decrypt file INFILE to OUTFILE according to encrypted directory ROOT.
 Both files must be local files.  OP must be `encrypt' or `decrypt'.
-If OP ist `decrypt', the basename of INFILE must be an encrypted file name.
+If OP is `decrypt', the basename of INFILE must be an encrypted file name.
 Raise an error if this fails."
   (when-let ((tramp-crypt-enabled t)
              (dir (tramp-crypt-file-name-p root))
diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 9cbab295042..fb8d5322c07 100644
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -195,7 +195,7 @@ This is not used directly, but only via inheritance by other faces."
 (defface nxml-char-ref-number
   '((t (:inherit nxml-ref)))
   "Face used for the number in character references.
-This includes ths `x' in hex references."
+This includes the `x' in hex references."
   :group 'nxml-faces)
 
 (defface nxml-char-ref-delimiter
diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index 91baa4d28ef..afc6284b348 100644
--- a/lisp/obsolete/vi.el
+++ b/lisp/obsolete/vi.el
@@ -927,13 +927,13 @@ it is used instead of the saved one."
   (vi-repeat-last-find-char count))
 
 (defun vi-backward-upto-char (count char)
-  "Find upto the COUNT'th CHAR backward on current line."
+  "Find up to the COUNT'th CHAR backward on current line."
   (interactive "p\nc")
   (setq vi-last-find-char (cons -1 (cons char t)))
   (vi-repeat-last-find-char count))
 
 (defun vi-forward-upto-char (count char)
-  "Find upto the COUNT'th CHAR forward on current line."
+  "Find up to the COUNT'th CHAR forward on current line."
   (interactive "p\nc")
   (setq vi-last-find-char (cons 1 (cons char t)))
   (vi-repeat-last-find-char count))
diff --git a/lisp/org/ChangeLog.1 b/lisp/org/ChangeLog.1
index bcc109583cd..6cc76db8df1 100644
--- a/lisp/org/ChangeLog.1
+++ b/lisp/org/ChangeLog.1
@@ -13798,7 +13798,7 @@
 2012-01-03  Dave Abrahams  <dave@boostpro.com>
 
         * org-agenda.el (org-agenda-follow-indirect): New option.
-        (org-agenda-follow-mode): Call `org-agenda-do-context-action' fro
+        (org-agenda-follow-mode): Call `org-agenda-do-context-action' from
         follow mode.
         (org-agenda-do-context-action): Also do indirect follow mode
         action.
@@ -17948,7 +17948,7 @@
 
         * org.el (org-narrow-to-subtree): Ensure `org-back-to-heading'
         will move point to a real heading and not an inline task by
-        wraping function into a `org-with-limited-levels' macro.
+        wrapping function into a `org-with-limited-levels' macro.
 
 2011-07-28  Bastien Guerry  <bzg@gnu.org>
 
@@ -28477,7 +28477,7 @@
         (outline-end-of-subtree): Make `outline-end-of-subtree' use the
         org-version of this function in Org-mode.  We use advice to
         implement this change, so that future changes to this function in
-        outline.el wil be handled properly.
+        outline.el will be handled properly.
         (org-forward-same-level, org-backward-same-level): New commands.
 
 2009-08-06  Carsten Dominik  <carsten.dominik@gmail.com>
@@ -28769,7 +28769,7 @@
         attachments.
 
         * org-latex.el (org-export-latex-quotation-marks): Fix export of
-        quotation makrs in parenthesis.
+        quotation marks in parenthesis.
         (org-remove-initial-hash): New function.
         (org-export-latex-preprocess): Fix bug with infinite loop if
         environment is not properly closed.
@@ -30559,7 +30559,7 @@
 2009-01-25  Carsten Dominik  <carsten.dominik@gmail.com>
 
         * org-archive.el (org-extract-archive-heading): Allow %s for file
-        name also in achive location heading.
+        name also in archive location heading.
 
 2009-01-25  Carsten Dominik  <carsten.dominik@gmail.com>
 
diff --git a/lisp/org/ob-tangle.el b/lisp/org/ob-tangle.el
index 525d27bc070..d9814a7aa64 100644
--- a/lisp/org/ob-tangle.el
+++ b/lisp/org/ob-tangle.el
@@ -433,7 +433,7 @@ non-nil, return the full association list to be used by
                       ;; The created link is transient.  Using ID is
                       ;; not necessary, but could have side-effects if
                       ;; used.  An ID property may be added to
-                      ;; existing entries thus creatin unexpected file
+                      ;; existing entries thus creating unexpected file
                       ;; modifications.
                       (org-id-link-to-org-use-id nil)
                       (l (org-no-properties (org-store-link nil))))
@@ -525,7 +525,7 @@ by `org-babel-get-src-block-info'."
                         ("link" . ,(let (;; The created link is transient.  Using ID is
                                          ;; not necessary, but could have side-effects if
                                          ;; used.  An ID property may be added to
-                                         ;; existing entries thus creatin unexpected file
+                                         ;; existing entries thus creating unexpected file
                                          ;; modifications.
                                          (org-id-link-to-org-use-id nil))
                                      (org-no-properties (org-store-link nil))))
diff --git a/lisp/outline.el b/lisp/outline.el
index a646f71db8b..92135f8b483 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -454,7 +454,7 @@ bindings, per the current major mode."
 
 (defcustom outline-minor-mode-highlight nil
   "Whether to highlight headings in `outline-minor-mode' using font-lock keywords.
-This option controles whether `outline-minor-mode' will use its font-lock
+This option controls whether `outline-minor-mode' will use its font-lock
 keywords to highlight headings, which could potentially conflict with
 font-lock faces defined by the major mode.  Thus, a non-nil value will
 work well only when there's no such conflict.
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 38e9d6011df..7bfd6bdbd91 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -1456,7 +1456,7 @@ keyword on the line, the keyword is not inserted inside a literal, and
 
 (defun c-align-cpp-indent-to-body ()
   "Align a \"#pragma\" line under the previous line.
-This function is intented for use as a member of `c-special-indent-hook'."
+This function is intended for use as a member of `c-special-indent-hook'."
   (when (assq 'cpp-macro c-syntactic-context)
     (when
         (save-excursion
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index 94c84a6a702..561aa0f7e5b 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -2713,7 +2713,7 @@ before the type, so such things are not necessary to mention here.
 Mentioning them here is necessary only if they can occur in other
 places, or if they are followed by a construct that must be skipped
 over (like the parens in the \"__attribute__\" and \"__declspec\"
-examples above).  In the last case, they alse need to be present on
+examples above).  In the last case, they also need to be present on
 one of `c-type-list-kwds', `c-ref-list-kwds',
 `c-colon-type-list-kwds', `c-paren-nontype-kwds', `c-paren-type-kwds',
 `c-<>-type-kwds', or `c-<>-arglist-kwds'."
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index fb5ef694138..5a610253e01 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -1235,7 +1235,7 @@ Note that the style variables are always made local to the buffer."
 
 (defun c-multiline-string-check-final-quote ()
   ;; Check that the final quote in the buffer is correctly marked or not with
-  ;; a string-fence syntax-table text propery.  The return value has no
+  ;; a string-fence syntax-table text property.  The return value has no
   ;; significance.
   (let (pos-ll pos-lt)
     (save-excursion
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 1894826fe4e..36849492be4 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -4282,7 +4282,7 @@ end
   (ebnf-eps-header-footer ebnf-eps-footer))
 
 
-;; hacked fom `ps-output-string-prim' (ps-print.el)
+;; hacked from `ps-output-string-prim' (ps-print.el)
 (defun ebnf-eps-string (string)
   (let* ((str   string)
          (len   (length str))
@@ -4403,9 +4403,9 @@ end
 (defvar ebnf-nprod 0)
 
 
-(defsubst ebnf-message-info (messag)
+(defsubst ebnf-message-info (msg)
   (message "%s...%3d%%"
-           messag
+           msg
            (round (/ (* (setq ebnf-nprod (1+ ebnf-nprod)) 100.0) ebnf-total))))
 
 
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 6bdaa7a37aa..44c8ca7cb9d 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -1699,7 +1699,7 @@ the value of the variable `edebug-all-defs'.
 
 If point isn't in a top-level form, evaluate the first top-level
 form after point.  If there is no top-level form after point,
-evaluate the first preceeding top-level form.
+evaluate the first preceding top-level form.
 
 If the current defun is actually a call to `defvar' or `defcustom',
 evaluating it this way resets the variable using its initial value
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 558b62b20ae..4deb06bde4b 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -522,7 +522,7 @@ This is buffer-local in every such buffer.")
     (rc . "\\<\\([[:alnum:]_*]+\\)[ \t]*=")
     (sh . "\\<\\([[:alnum:]_]+\\)="))
   "Regexp for the variable name and what may follow in an assignment.
-First grouping matches the variable name.  This is upto and including the `='
+First grouping matches the variable name.  This is up to and including the `='
 sign.  See `sh-feature'."
   :type '(repeat (cons (symbol :tag "Shell")
                        (choice regexp
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index a1c0aa76de5..e585799dc63 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -781,7 +781,7 @@ host key."
       ;; Perform search
       (dolist (s (auth-source-search :max 1000))
         (when (and
-               ;; Is PRODUCT specified, in the enty, and they are equal
+               ;; Is PRODUCT specified, in the entry, and they are equal
                (if product
                    (if (plist-member s :product)
                        (equal (plist-get s :product) product)
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 5786a21e88e..dbe2b6241ff 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -390,7 +390,7 @@ EVENT should be a scroll bar click."
         (setq point-before-scroll before-scroll)))))
 
 
-;;; Tookit scroll bars.
+;;; Toolkit scroll bars.
 
 (defun scroll-bar-toolkit-scroll (event)
   "Handle event EVENT on vertical scroll bar."
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index f3f95627af1..41a5b52f993 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -96,7 +96,7 @@ Find the bof of the current file."
   "Return list of bibfiles for current document.
 When using the chapterbib or bibunits package you should either
 use the same database files everywhere, or separate parts using
-different databases into different files (included into the mater file).
+different databases into different files (included into the master file).
 Then this function will return the applicable database files."
 
   ;; Ensure access to scanning info
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 075ad666b3d..38d6ebe7e6f 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -1807,7 +1807,7 @@ With optional arg ALLOW-NEWLINE, allow single newline between words."
 (defun reftex-index-phrases-find-dup-re (phrase &optional sub)
   "Return a regexp which matches variations of PHRASE (with additional space).
 When SUB ins non-nil, the regexp will also match when PHRASE is a subphrase
-of another phrase.  The regexp works lonly in the phrase buffer."
+of another phrase.  The regexp works only in the phrase buffer."
   (concat (if sub "^\\S-?\t\\([^\t\n]*" "^\\S-?\t")
           (mapconcat #'regexp-quote (split-string phrase) " +")
           (if sub "[^\t\n]*\\)\\([\t\n]\\|$\\)" " *\\([\t\n]\\|$\\)")))
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index ca0312d8fb0..a1914a8cc82 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2238,7 +2238,7 @@ of the current buffer."
                "&")))
 
 (defun tex-uptodate-p (file)
-  "Return non-nil if FILE is not uptodate w.r.t the document source files.
+  "Return non-nil if FILE is not up-to-date w.r.t the document source files.
 FILE is typically the output DVI or PDF file."
   ;; We should check all the files included !!!
   (and
@@ -2375,7 +2375,7 @@ Only applies the FSPEC to the args part of FORMAT."
           (push cmd tmp)))
       ;; Only remove if there's something left.
       (if tmp (setq cmds (nreverse tmp))))
-    ;; Remove commands whose input is not uptodate either.
+    ;; Remove commands whose input is not up-to-date either.
     (let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds)))
           (tmp nil))
       (dolist (cmd cmds)
diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index e3c0e2ca06d..a1d6152ee21 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -1188,7 +1188,7 @@ file were isearch was started."
      ((and wrap (null file))
       (current-buffer))
      ;; When there is no next file, file-exists-p raises the error to be
-     ;; catched by the search function that displays the error message.
+     ;; caught by the search function that displays the error message.
      ((file-exists-p file)
       (find-file-noselect file))
      (t
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 0d96a195ade..f4068832215 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -1748,7 +1748,7 @@ With a prefix argument ARG, go back that many differences."
                      regexp-skip
                      ;; skip clashes, if necessary
                      non-clash-skip
-                     ;; skipp changed regions
+                     ;; skip changed regions
                      skip-changed
                      ;; skip difference regions that differ in white space
                      (and ediff-ignore-similar-regions
diff --git a/lisp/vc/vc-dav.el b/lisp/vc/vc-dav.el
index 94621599e4a..1cd91c9f543 100644
--- a/lisp/vc/vc-dav.el
+++ b/lisp/vc/vc-dav.el
@@ -93,7 +93,7 @@ If EDITABLE is non-nil URL should be writable by the user and if
 locking is used for URL, a lock should also be set.
 
 If REV is non-nil, that is the revision to check out.  If REV is the
-empty string, that means to check ou tht ehead of the trunk.
+empty string, that means to check out the head of the trunk.
 
 If optional arg DESTFILE is given, it is an alternate filename to
 write the contents to."
diff --git a/lisp/window.el b/lisp/window.el
index d466f2975d6..dd23ab1d394 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -9172,7 +9172,7 @@ present.  See also `fit-frame-to-buffer-sizes'."
 This list specifies the total maximum and minimum numbers of
 lines and the maximum and minimum numbers of columns of the body
 of the root window of any frame that shall be fit to its buffer.
-Any value specified by ths variable will be overridden by the
+Any value specified by this variable will be overridden by the
 corresponding argument of `fit-frame-to-buffer', if non-nil.
 
 On window systems where the menubar can wrap, fitting a frame to