From 8d68760ddee3690b4312fdb5d85210cb21b4eb7d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 2 Jul 2022 12:01:18 +0200 Subject: [PATCH] ; 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 6b1adbe03e1..e99fbe07062 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 e85d492bbb5..81799a2a577 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 00a1fe05fdd..54fc16ec9f0 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 14856b9e050..80c371e1c6a 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 2ec3fac11bd..7aaed218ff6 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 4624c236f5a..de8ee85b391 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 dc2a086bbd7..ec30ee7e0fa 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 76230d438a1..4679500ed99 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 57e59f4e9fe..4bdaaf77acf 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 f35362b371c..c3a4e9fc7ab 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 a630bf120f8..a35383a13b1 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 7eeaf2f547f..206879b1694 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 b108788571c..27b725b0aad 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-increase] and \\[emoji-zoom-decrease]")) + "Zoom with \\\\[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 8ce5afa9622..9e7194e4a02 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 9ffaff7c8e2..69a10ce4e2d 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 98e49c3598f..ddcb51aecf2 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 ff9eda3fd2a..56ba4480bfa 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 e571cee83c6..f51d2fcb115 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 edb53793e64..f55e3449e4a 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 8df5204fa12..069d116907e 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 5b468dc808b..e44aa06e3dd 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 98f21ce9a5f..240f99effc2 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 66b13916465..ef2bb036e35 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 d562500b619..4d7e42df1e8 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: -- 2.39.2