master 8d68760dde: ; Fix typos.

[Mattias Engdegård]

branch: master
commit 8d68760ddee3690b4312fdb5d85210cb21b4eb7d
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; Fix typos.
---
 admin/nt/dist-build/README-scripts | 2 +-
 doc/lispref/display.texi           | 2 +-
 doc/lispref/loading.texi           | 2 +-
 doc/lispref/processes.texi         | 2 +-
 etc/tutorials/TUTORIAL.nl          | 2 +-
 lisp/allout.el                     | 2 +-
 lisp/calc/calc-prog.el             | 2 +-
 lisp/cedet/semantic/edit.el        | 2 +-
 lisp/cedet/semantic/lex-spp.el     | 2 +-
 lisp/emacs-lisp/easy-mmode.el      | 2 +-
 lisp/env.el                        | 2 +-
 lisp/font-lock.el                  | 2 +-
 lisp/international/emoji.el        | 2 +-
 lisp/mail/unrmail.el               | 2 +-
 lisp/minibuffer.el                 | 2 +-
 lisp/mouse.el                      | 6 +++---
 lisp/nxml/nxml-parse.el            | 2 +-
 lisp/progmodes/cperl-mode.el       | 2 +-
 lisp/progmodes/idlwave.el          | 2 +-
 lisp/ps-print.el                   | 2 +-
 lisp/textmodes/texnfo-upd.el       | 2 +-
 lisp/whitespace.el                 | 2 +-
 src/lread.c                        | 2 +-
 src/print.c                        | 2 +-
 24 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/admin/nt/dist-build/README-scripts 
b/admin/nt/dist-build/README-scripts
index 6b1adbe03e..e99fbe0706 100644
--- a/admin/nt/dist-build/README-scripts
+++ b/admin/nt/dist-build/README-scripts
@@ -131,7 +131,7 @@ The process is the same as for building from the master 
branch, except
 that the release branch should already exist as a worktree, and the
 version number must be added to the command line with `build-zips.sh
 -V 27 -s`.  The final zips will be named after the branch rather than
-the version (e.g emacs-27-2019-12-26.zip) rather than than the Emacs
+the version (e.g emacs-27-2019-12-26.zip) rather than the Emacs
 version (e.g emacs-27.0.50.zip).
 
 
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index e85d492bbb..81799a2a57 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -8551,7 +8551,7 @@ displayed in the echo area.
 @vindex use-system-tooltips
 When Emacs is built with the GTK+ toolkit or Haiku windowing support,
 it by default displays tooltips using toolkit functions, and the
-appearance of the tooltips is then controlled by by the toolkit's
+appearance of the tooltips is then controlled by the toolkit's
 settings.  Toolkit-provided tooltips can be disabled by changing the
 value of the variable @code{use-system-tooltips} to @code{nil}.  The
 rest of this subsection describes how to control non-toolkit tooltips,
diff --git a/doc/lispref/loading.texi b/doc/lispref/loading.texi
index 00a1fe05fd..54fc16ec9f 100644
--- a/doc/lispref/loading.texi
+++ b/doc/lispref/loading.texi
@@ -728,7 +728,7 @@ variables to control this:
 The value of this constant is a regexp that matches autoload cookies.
 @code{loaddefs-generate} copies the Lisp form that follows the
 cookie into the autoload file it generates.  This will match comments
-like like @samp{;;;###autoload} and @samp{;;;###calc-autoload}.
+like @samp{;;;###autoload} and @samp{;;;###calc-autoload}.
 @end defvar
 
 @defvar generated-autoload-file
diff --git a/doc/lispref/processes.texi b/doc/lispref/processes.texi
index 14856b9e05..80c371e1c6 100644
--- a/doc/lispref/processes.texi
+++ b/doc/lispref/processes.texi
@@ -3547,7 +3547,7 @@ and @code{#x1c} @code{#x28} to @w{@code{(3 5 10 11 12)}}.
 
 @item fill @var{len}
 @var{len} bytes used as a mere filler.  In packing, these bytes are
-are left unchanged, which normally means they remain zero.
+left unchanged, which normally means they remain zero.
 When unpacking, this just returns nil.
 
 @item align @var{len}
diff --git a/etc/tutorials/TUTORIAL.nl b/etc/tutorials/TUTORIAL.nl
index 2ec3fac11b..7aaed218ff 100644
--- a/etc/tutorials/TUTORIAL.nl
+++ b/etc/tutorials/TUTORIAL.nl
@@ -1158,7 +1158,7 @@ overeenkomende commandonaam zoals find-file.
 --------------------
 
 Je kunt meer over Emacs leren door haar handleiding te lezen.  Deze is
-zowel als boek als in in Emacs beschikbaar (gebruik het Help menu of
+zowel als boek als in Emacs beschikbaar (gebruik het Help menu of
 tik C-h r).  Kijk bijvoorbeeld eens naar "completion", wat minder
 tikwerk oplevert, of "dired" wat het omgaan met bestanden
 vereenvoudigt.
diff --git a/lisp/allout.el b/lisp/allout.el
index 4624c236f5..de8ee85b39 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -26,7 +26,7 @@
 ;;; Commentary:
 
 ;; Allout outline minor mode provides extensive outline formatting and
-;; and manipulation beyond standard Emacs outline mode.  Some features:
+;; manipulation beyond standard Emacs outline mode.  Some features:
 ;;
 ;;  - Classic outline-mode topic-oriented navigation and exposure adjustment
 ;;  - Topic-oriented editing including coherent topic and subtopic
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index dc2a086bbd..ec30ee7e0f 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1949,7 +1949,7 @@ Redefine the corresponding command."
 
 ;; The variable math-exp-env is local to math-define-body, but is
 ;; used by math-define-exp, which is called (indirectly) by
-;; by math-define-body.
+;; math-define-body.
 (defvar math-exp-env)
 
 (defun math-define-body (body exp-env)
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index 76230d438a..4679500ed9 100644
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -610,7 +610,7 @@ This function is for internal use by 
`semantic-edits-incremental-parser'."
                (setq last-cond "Beginning of buffer")
                 (setq parse-start
                       ;; Don't worry about parents since
-                      ;; there there would be an exact
+                      ;; there would be an exact
                       ;; match in the tag list otherwise
                       ;; and the routine would fail.
                       (point-min)
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 57e59f4e9f..4bdaaf77ac 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -1074,7 +1074,7 @@ and variable state from the current buffer."
            ))
 
        ;; Second Cheat: copy key variables regarding macro state from the
-       ;; the originating buffer we are parsing.  We need to do this every time
+       ;; originating buffer we are parsing.  We need to do this every time
        ;; since the state changes.
        (dolist (V important-vars)
          (set V (buffer-local-value V origbuff)))
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index f35362b371..c3a4e9fc7a 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -408,7 +408,7 @@ or call the function `%s'."))))
 No problems result if this variable is not bound.
 `add-hook' automatically binds it.  (This is true for all hook variables.)"
                        modefun)))
-       ;; Allow using using `M-x customize-variable' on the hook.
+       ;; Allow using `M-x customize-variable' on the hook.
        (put ',hook 'custom-type 'hook)
        (put ',hook 'standard-value (list nil))
 
diff --git a/lisp/env.el b/lisp/env.el
index a630bf120f..a35383a13b 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -225,7 +225,7 @@ VARIABLES is a list of variable settings of the form (VAR 
VALUE),
 where VAR is the name of the variable (a string) and VALUE
 is its value (also a string).
 
-The previous values will be be restored upon exit."
+The previous values will be restored upon exit."
   (declare (indent 1) (debug (sexp body)))
   (unless (consp variables)
     (error "Invalid VARIABLES: %s" variables))
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 7eeaf2f547..206879b169 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2361,7 +2361,7 @@ This function could be MATCHER in a MATCH-ANCHORED 
`font-lock-keywords' item."
 ;; e.g. assembler code and GNU linker script in Linux kernel.
 ;; `cpp-font-lock-keywords' is handy for modes for the files.
 ;;
-;; Here we cannot use `regexp-opt' because because regex-opt is not preloaded
+;; Here we cannot use `regexp-opt' because regex-opt is not preloaded
 ;; while font-lock.el is preloaded to emacs. So values pre-calculated with
 ;; regexp-opt are used here.
 
diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index b108788571..27b725b0aa 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -711,7 +711,7 @@ FACTOR is the multiplication factor for the size."
   (interactive)
   (message
    (substitute-command-keys
-    "Zoom with with \\<emoji-zoom-map>\\[emoji-zoom-increase] and 
\\[emoji-zoom-decrease]"))
+    "Zoom with \\<emoji-zoom-map>\\[emoji-zoom-increase] and 
\\[emoji-zoom-decrease]"))
   (set-transient-map emoji-zoom-map t)
   (let* ((factor (or factor 1.1))
          (old (get-text-property (point) 'face))
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 8ce5afa962..9e7194e4a0 100644
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -208,7 +208,7 @@ The variable `unrmail-mbox-format' controls which mbox 
format to use."
              (setq mail-from (or (let ((from (mail-fetch-field "Mail-From")))
                                    ;; mail-mbox-from (below) returns a
                                    ;; string that ends in a newline, but
-                                   ;; but mail-fetch-field does not, so
+                                   ;; mail-fetch-field does not, so
                                    ;; we append a newline here.
                                    (if from
                                        (format "%s\n" from)))
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 9ffaff7c8e..69a10ce4e2 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2135,7 +2135,7 @@ and with BASE-SIZE appended as the last element."
         (lambda (elem)
           (let ((str
                  ;; Don't modify the string itself, but a copy, since the
-                 ;; the string may be read-only or used for other purposes.
+                 ;; string may be read-only or used for other purposes.
                  ;; Furthermore, since `completions' may come from
                  ;; display-completion-list, `elem' may be a list.
                  (if (consp elem)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 98e49c3598..ddcb51aecf 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1200,7 +1200,7 @@ frame with the mouse."
                            (<= (- right parent-right) snap-width)
                            snap-x (<= (- last-x snap-x) snap-width))
                       ;; Stay snapped when the mouse moved rightward but
-                      ;; not more more than `snap-width' pixels from the
+                      ;; not more than `snap-width' pixels from the
                       ;; time FRAME snapped.
                       (setq left (- parent-right native-width)))
                      (t
@@ -1222,7 +1222,7 @@ frame with the mouse."
                            (<= (- parent-top top) snap-width)
                            snap-y (<= (- snap-y last-y) snap-width))
                       ;; Stay snapped when the mouse moved upward but
-                      ;; not more more than `snap-width' pixels from the
+                      ;; not more than `snap-width' pixels from the
                       ;; time FRAME snapped.
                       (setq top parent-top))
                      (t
@@ -1244,7 +1244,7 @@ frame with the mouse."
                            (<= (- bottom parent-bottom) snap-width)
                            snap-y (<= (- last-y snap-y) snap-width))
                       ;; Stay snapped when the mouse moved downward but
-                      ;; not more more than `snap-width' pixels from the
+                      ;; not more than `snap-width' pixels from the
                       ;; time FRAME snapped.
                       (setq top (- parent-bottom native-height)))
                      (t
diff --git a/lisp/nxml/nxml-parse.el b/lisp/nxml/nxml-parse.el
index ff9eda3fd2..56ba4480bf 100644
--- a/lisp/nxml/nxml-parse.el
+++ b/lisp/nxml/nxml-parse.el
@@ -246,7 +246,7 @@ same way as well-formedness error."
                    parsed-attributes)))
       (setq atts (cdr atts)))
     ;; We want to end up with the attributes followed by the
-    ;; the namespace attributes in the same order as
+    ;; namespace attributes in the same order as
     ;; xmltok-attributes and xmltok-namespace-attributes respectively.
     (when parsed-namespace-attributes
       (setq parsed-attributes
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index e571cee83c..f51d2fcb11 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1322,7 +1322,7 @@ name, and one for the discovery of a following BLOCK.")
                ,cperl--ws+-rx
                (group-n 2 ,cperl--normal-identifier-rx))
     "A regular expression to detect a subroutine start.
-Contains three groups: One one to distinguish lexical from
+Contains three groups: One to distinguish lexical from
 \"normal\" subroutines, for the keyword \"sub\", and one for the
 subroutine name.")
 
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index edb53793e6..f55e3449e4 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -3247,7 +3247,7 @@ ignored."
         ;; In the following while statements, after one iteration
         ;; point will be at the beginning of a line in which case
         ;; the while will not be executed for the
-        ;; the first paragraph line and thus will not affect the
+        ;; first paragraph line and thus will not affect the
         ;; indentation.
         ;;
         ;; First check to see if indentation is based on hanging indent.
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 8df5204fa1..069d116907 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6415,7 +6415,7 @@ If FACE is not a valid face name, use default face."
                (ps-end-job needs-begin-file)
 
                ;; Setting this variable tells the unwind form that the
-               ;; the PostScript was generated without error.
+               ;; PostScript was generated without error.
                (setq completed-safely t))
 
            ;; Unwind form: If some bad mojo occurred while generating
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 5b468dc808..e44aa06e3d 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -1367,7 +1367,7 @@ left at the end of the node line."
            ;; There may be an @chapter or other such command between
            ;; the top node line and the next node line, as a title
            ;; for an `ifinfo' section. This @chapter command must
-           ;; must be skipped.  So the procedure is to search for
+           ;; be skipped.  So the procedure is to search for
            ;; the next `@node' line, and then copy its name.
            (if (re-search-forward "^@node" nil t)
                (progn
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 98f21ce9a5..240f99effc 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1697,7 +1697,7 @@ cleaning up these problems."
            (rstart    (min start end))
            (rend      (max start end))
            ;; Fall back to whitespace-style so we can run before
-           ;; before the mode is active.
+           ;; the mode is active.
            (style     (copy-sequence
                        (or whitespace-active-style whitespace-style)))
            (bogus-list
diff --git a/src/lread.c b/src/lread.c
index 66b1391646..ef2bb036e3 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4877,7 +4877,7 @@ oblookup (Lisp_Object obarray, register const char *ptr, 
ptrdiff_t size, ptrdiff
 
 /* Like 'oblookup', but considers 'Vread_symbol_shorthands',
    potentially recognizing that IN is shorthand for some other
-   longhand name, which is then then placed in OUT.  In that case,
+   longhand name, which is then placed in OUT.  In that case,
    memory is malloc'ed for OUT (which the caller must free) while
    SIZE_OUT and SIZE_BYTE_OUT respectively hold the character and byte
    sizes of the transformed symbol name.  If IN is not recognized
diff --git a/src/print.c b/src/print.c
index d562500b61..4d7e42df1e 100644
--- a/src/print.c
+++ b/src/print.c
@@ -727,7 +727,7 @@ Optional argument OVERRIDES should be a list of settings 
for print-related
 variables.  An element in this list can be the symbol t, which means "reset
 all the values to their defaults".  Otherwise, an element should be a pair,
 where the `car' or the pair is the setting symbol, and the `cdr' is the
-value of of the setting to use for this `prin1' call.
+value of the setting to use for this `prin1' call.
 
 For instance: