[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 5d51403 2/2: ; Typo fixes, mostly repeated words
|
From: |
Paul Eggert |
|
Subject: |
[Emacs-diffs] emacs-26 5d51403 2/2: ; Typo fixes, mostly repeated words |
|
Date: |
Tue, 10 Oct 2017 01:55:13 -0400 (EDT) |
branch: emacs-26
commit 5d51403ceb9b86a1bfa66f00c7af39f1200e65f1
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
; Typo fixes, mostly repeated words
---
CONTRIBUTE | 2 +-
ChangeLog.2 | 2 +-
doc/emacs/anti.texi | 2 +-
doc/emacs/rmail.texi | 2 +-
doc/emacs/text.texi | 2 +-
doc/lispintro/emacs-lisp-intro.texi | 2 +-
doc/lispref/debugging.texi | 2 +-
doc/lispref/os.texi | 2 +-
doc/lispref/searching.texi | 2 +-
doc/misc/htmlfontify.texi | 2 +-
doc/misc/ses.texi | 2 +-
lisp/ChangeLog.16 | 2 +-
lisp/ChangeLog.6 | 2 +-
lisp/allout.el | 2 +-
lisp/button.el | 2 +-
lisp/cedet/ChangeLog.1 | 2 +-
lisp/cedet/cedet-idutils.el | 2 +-
lisp/cedet/ede/pmake.el | 2 +-
lisp/dired-x.el | 2 +-
lisp/elide-head.el | 2 +-
lisp/emacs-lisp/advice.el | 2 +-
lisp/gnus/ChangeLog.3 | 2 +-
lisp/gnus/gnus-mlspl.el | 3 +--
lisp/gnus/message.el | 2 +-
lisp/gnus/spam.el | 2 +-
lisp/ido.el | 2 +-
lisp/net/newst-ticker.el | 2 +-
lisp/obsolete/landmark.el | 2 +-
lisp/obsolete/levents.el | 2 +-
lisp/obsolete/otodo-mode.el | 2 +-
lisp/org/org-faces.el | 2 +-
lisp/play/gomoku.el | 2 +-
lisp/progmodes/antlr-mode.el | 2 +-
lisp/progmodes/cc-vars.el | 2 +-
lisp/progmodes/cperl-mode.el | 2 +-
lisp/term/tvi970.el | 6 +++---
lisp/textmodes/less-css-mode.el | 2 +-
lisp/textmodes/picture.el | 2 +-
lisp/vc/pcvs-defs.el | 2 +-
src/ChangeLog.10 | 2 +-
src/ChangeLog.12 | 2 +-
src/ChangeLog.4 | 2 +-
src/ChangeLog.5 | 2 +-
src/ChangeLog.7 | 2 +-
src/buffer.c | 2 +-
src/emacs-module.c | 2 +-
src/emacsgtkfixed.c | 2 +-
src/fileio.c | 2 +-
src/frame.h | 2 +-
src/keyboard.h | 2 +-
src/nsterm.m | 2 +-
src/scroll.c | 2 +-
src/termhooks.h | 2 +-
src/w32inevt.c | 2 +-
src/w32proc.c | 2 +-
test/lisp/kmacro-tests.el | 2 +-
test/lisp/net/tramp-tests.el | 2 +-
test/lisp/simple-tests.el | 2 +-
58 files changed, 60 insertions(+), 61 deletions(-)
diff --git a/CONTRIBUTE b/CONTRIBUTE
index e1ba506..d01ac8b 100644
--- a/CONTRIBUTE
+++ b/CONTRIBUTE
@@ -105,7 +105,7 @@ tested).
Emacs uses ERT, Emacs Lisp Regression Testing, for testing. See
https://www.gnu.org/software/emacs/manual/html_node/ert/
-or run 'info "(ert)"' for for more information on writing and running
+or run 'info "(ert)"' for more information on writing and running
tests.
If your test lasts longer than some few seconds, mark it in its
diff --git a/ChangeLog.2 b/ChangeLog.2
index e7befde..a412d3b 100644
--- a/ChangeLog.2
+++ b/ChangeLog.2
@@ -4415,7 +4415,7 @@
2016-05-01 Lars Ingebrigtsen <address@hidden>
- Document mode mode line variables
+ Document mode line variables
* doc/lispref/modes.texi (Mode Line Variables): Document
`mode-line-front-space, `mode-line-misc-info',
diff --git a/doc/emacs/anti.texi b/doc/emacs/anti.texi
index 547dbd1..426c18b 100644
--- a/doc/emacs/anti.texi
+++ b/doc/emacs/anti.texi
@@ -25,7 +25,7 @@ less and less available/popular as you move farther back in
time.
@item
For similar reasons, we've reverted back to building our own version
-of of @command{movemail} that retrieves POP3 mail as clear text via
+of @command{movemail} that retrieves POP3 mail as clear text via
insecure channels. As you move back in time, the availability of
secure alternatives to POP3 will diminish, and we are only keen to
support that. We've also removed the @option{--with-mailutils}
diff --git a/doc/emacs/rmail.texi b/doc/emacs/rmail.texi
index f2416a0..b073687 100644
--- a/doc/emacs/rmail.texi
+++ b/doc/emacs/rmail.texi
@@ -1363,7 +1363,7 @@ message itself is flagged as deleted.
Mailing list messages that might offend or annoy some readers are sometimes
encoded in a simple code called @dfn{rot13}---so named because it
rotates the alphabet by 13 letters. This code is not for secrecy, as it
-provides none; rather, it enables those who wish to to avoid
+provides none; rather, it enables those who wish to avoid
seeing the real text of the message. For example, a review of a film
might use rot13 to hide important plot points.
diff --git a/doc/emacs/text.texi b/doc/emacs/text.texi
index 496b43c..bb2fbc5 100644
--- a/doc/emacs/text.texi
+++ b/doc/emacs/text.texi
@@ -1725,7 +1725,7 @@ C-p} (@code{tex-print}) to print a hardcopy of the output
file.
@vindex tex-directory
By default, @kbd{C-c C-b} runs @TeX{} in the current directory. The
output of @TeX{} also goes in this directory. To run @TeX{} in a
-different directory, change the variable @code{tex-directory} to the
+different directory, change the variable @code{tex-directory} to
the desired directory. If your environment variable @env{TEXINPUTS}
contains relative names, or if your files contains
@samp{\input} commands with relative file names, then
diff --git a/doc/lispintro/emacs-lisp-intro.texi
b/doc/lispintro/emacs-lisp-intro.texi
index d949387..65ded50 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -831,7 +831,7 @@ An expert programmer who reviewed this text said to me:
@i{I prefer to learn from reference manuals. I ``dive into'' each
paragraph, and ``come up for air'' between paragraphs.}
address@hidden I get to the end of a paragraph, I assume that that subject is
address@hidden I get to the end of a paragraph, I assume that subject is
done, finished, that I know everything I need (with the
possible exception of the case when the next paragraph starts talking
about it in more detail). I expect that a well written reference manual
diff --git a/doc/lispref/debugging.texi b/doc/lispref/debugging.texi
index 2ca4a0a..fe3446a 100644
--- a/doc/lispref/debugging.texi
+++ b/doc/lispref/debugging.texi
@@ -135,7 +135,7 @@ set @code{debug-ignored-errors} to @code{nil}.
@defopt eval-expression-debug-on-error
If this variable has a address@hidden value (the default), running the
command @code{eval-expression} causes @code{debug-on-error} to be
-temporarily bound to to @code{t}. @xref{Lisp Eval,, Evaluating
+temporarily bound to @code{t}. @xref{Lisp Eval,, Evaluating
Emacs-Lisp Expressions, emacs, The GNU Emacs Manual}.
If @code{eval-expression-debug-on-error} is @code{nil}, then the value
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index af646ce..59c269a 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -222,7 +222,7 @@ If it is @code{t}, it selects the @file{*scratch*} buffer.
@c called from two places. If displaying a startup screen, they are
@c called in command-line-1 before the startup screen is shown.
@c inhibit-startup-hooks is then set and window-setup-hook set to nil.
address@hidden If not displaying a startup screen, they are are called in
address@hidden If not displaying a startup screen, they are called in
@c normal-top-level.
@c FIXME? So it seems they can be called before or after the
@c daemon/session restore step?
diff --git a/doc/lispref/searching.texi b/doc/lispref/searching.texi
index 23879aa..755fa55 100644
--- a/doc/lispref/searching.texi
+++ b/doc/lispref/searching.texi
@@ -327,7 +327,7 @@ expression. Thus, @samp{fo*} has a repeating @samp{o}, not
a repeating
The matcher processes a @samp{*} construct by matching, immediately, as
many repetitions as can be found. Then it continues with the rest of
the pattern. If that fails, backtracking occurs, discarding some of the
-matches of the @samp{*}-modified construct in the hope that that will
+matches of the @samp{*}-modified construct in the hope that this will
make it possible to match the rest of the pattern. For example, in
matching @samp{ca*ar} against the string @samp{caaar}, the @samp{a*}
first tries to match all three @samp{a}s; but the rest of the pattern is
diff --git a/doc/misc/htmlfontify.texi b/doc/misc/htmlfontify.texi
index a04fa43..f7fe539 100644
--- a/doc/misc/htmlfontify.texi
+++ b/doc/misc/htmlfontify.texi
@@ -825,7 +825,7 @@ with a class of @code{t} is considered to match any class
you specify.
This matches Emacs's behavior when deciding on which face attributes to
use, to the best of my understanding ).
-If @var{class} is @code{nil}, then you just get get whatever
+If @var{class} is @code{nil}, then you just get whatever
@code{face-attr-construct} returns; i.e., the current specification in
effect for @var{face}.
diff --git a/doc/misc/ses.texi b/doc/misc/ses.texi
index fc79b02..5f9a0f5 100644
--- a/doc/misc/ses.texi
+++ b/doc/misc/ses.texi
@@ -584,7 +584,7 @@ This example will:
When the cell is empty (ie.@: when @code{val} is @code{nil}), print an
empty string @code{""}
@item
-When the cell value is a non negative number, format the the value in
+When the cell value is a non negative number, format the value in
fixed-point notation with one decimal after point
@item
Otherwise, handle the value as erroneous by printing it as an
diff --git a/lisp/ChangeLog.16 b/lisp/ChangeLog.16
index f3d4874..33bd9a0 100644
--- a/lisp/ChangeLog.16
+++ b/lisp/ChangeLog.16
@@ -2728,7 +2728,7 @@
* vc/ediff-util.el (ediff-buffer-type): New function.
(ediff-clone-buffer-for-current-diff-comparison): Compute the buf-type
- rather than taking it as as argument.
+ rather than taking it as an argument.
(ediff-inferior-compare-regions): Adjust calls accordingly (bug#11319).
2012-12-14 Ryan Crum <address@hidden>
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6
index 8c985fb..64a9d4d 100644
--- a/lisp/ChangeLog.6
+++ b/lisp/ChangeLog.6
@@ -1473,7 +1473,7 @@
1996-04-18 Richard Stallman <address@hidden>
* term/win32-win.el (x-select-text): Remember selected text.
- (x-get-selection-value): Return nil if the clipboard data is
+ (x-get-selection-value): Return nil if the clipboard data
is the same as the remembered selected text.
1996-04-18 Lars Magne Ingebrigtsen <address@hidden>
diff --git a/lisp/allout.el b/lisp/allout.el
index d0be847..15b7b3a 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -357,7 +357,7 @@ Examples:
grandchildren, but completely collapse the final top-level topic.
(-1 () : 1 0)
Close the first topic so only the immediate subtopics are shown,
- leave the subsequent topics exposed as they are until the second
+ leave the subsequent topics exposed as they are until the
second to last topic, which is exposed at least one level, and
completely close the last topic.
(-2 : -1 *)
diff --git a/lisp/button.el b/lisp/button.el
index 7e9a712..a609047 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -36,7 +36,7 @@
;; represented by the overlay itself, or text-properties, in which case
;; the button is represented by a marker or buffer-position pointing
;; somewhere in the button. In the latter case, no markers into the
-;; buffer are retained, which is important for speed if there are are
+;; buffer are retained, which is important for speed if there are
;; extremely large numbers of buttons. Note however that if there is
;; an existing face text-property at the site of the button, the
;; button face may not be visible. Using overlays avoids this.
diff --git a/lisp/cedet/ChangeLog.1 b/lisp/cedet/ChangeLog.1
index a17e53a..35cdf80 100644
--- a/lisp/cedet/ChangeLog.1
+++ b/lisp/cedet/ChangeLog.1
@@ -457,7 +457,7 @@
complete local variables.
* semantic/scope.el (semantic-analyze-scoped-types-default): If we
- cannot find a type in the typecache, also look into the the types
+ 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.
(semantic-completable-tags-from-type): When creating the list of
diff --git a/lisp/cedet/cedet-idutils.el b/lisp/cedet/cedet-idutils.el
index 4b6c6b0..48e1b2d 100644
--- a/lisp/cedet/cedet-idutils.el
+++ b/lisp/cedet/cedet-idutils.el
@@ -98,7 +98,7 @@ Return the created buffer with program output."
(defun cedet-idutils-lid-call (flags)
"Call ID Utils lid with the list of FLAGS.
-Return the created buffer with with program output."
+Return the created buffer with program output."
(let ((b (get-buffer-create "*CEDET lid*"))
(cd default-directory)
)
diff --git a/lisp/cedet/ede/pmake.el b/lisp/cedet/ede/pmake.el
index c199cae..b836eaf 100644
--- a/lisp/cedet/ede/pmake.el
+++ b/lisp/cedet/ede/pmake.el
@@ -277,7 +277,7 @@ Execute BODY in a location where a value can be placed."
;;; SOURCE VARIABLE NAME CONSTRUCTION
(defsubst ede-pmake-varname (obj)
- "Convert OBJ into a variable name name.
+ "Convert OBJ into a variable name.
Change . to _ in the variable name."
(let ((name (oref obj name)))
(while (string-match "\\." name)
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 78fa5ed..5fa28d3 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -57,7 +57,7 @@
(defcustom dired-bind-vm nil
"Non-nil means \"V\" runs `dired-vm', otherwise \"V\" runs `dired-rmail'.
-RMAIL files in the old Babyl format (used before before Emacs 23.1)
+RMAIL files in the old Babyl format (used before Emacs 23.1)
contain \"-*- rmail -*-\" at the top, so `dired-find-file'
will run `rmail' on these files. New RMAIL files use the standard
mbox format, and so cannot be distinguished in this way."
diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index 5bede73..c6d8c90 100644
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -57,7 +57,7 @@ If not, see <http://www\\.gnu\\.org/licenses/>\\)\\.")
"SUCH DAMAGE\\.") ; BSD
("Permission is hereby granted, free of charge" . ; X11
"authorization from the X Consortium\\."))
- "Alist of regexps defining start end end of text to elide.
+ "Alist of regexps defining start and end of text to elide.
The cars of elements of the list are searched for in order. Text is
elided with an invisible overlay from the end of the line where the
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 32b6a47..8286766 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -502,7 +502,7 @@
;; important advantage is that it allows the implementation of forward advice.
;; Advice information for a certain function accumulates as the value of the
;; `advice-info' property of the function symbol. This accumulation is
-;; completely independent of the fact that that function might not yet be
+;; completely independent of the fact that the function might not yet be
;; defined. The macros `defun' and `defmacro' check whether the
;; function/macro they defined had advice information
;; associated with it. If so and forward advice is enabled, the original
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3
index c2e4846..43681f6 100644
--- a/lisp/gnus/ChangeLog.3
+++ b/lisp/gnus/ChangeLog.3
@@ -955,7 +955,7 @@
* gnus-sum.el (gnus-summary-read-group-1): Initialize the spam code if
that's needed.
- * spam.el (spam-initialize): Allow calling repeatedly, but only run the
+ * spam.el (spam-initialize): Allow calling repeatedly, but only run
the code once (bug#9069).
2014-01-18 Steinar Bang <address@hidden>
diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el
index cd6bbd0..d0810ca 100644
--- a/lisp/gnus/gnus-mlspl.el
+++ b/lisp/gnus/gnus-mlspl.el
@@ -72,8 +72,7 @@ match any of the group-specified splitting rules. See
;;;###autoload
(defun gnus-group-split-update (&optional catch-all)
"Computes nnmail-split-fancy from group params and CATCH-ALL.
-It does this by calling by calling (gnus-group-split-fancy nil
-nil CATCH-ALL).
+It does this by calling (gnus-group-split-fancy nil nil CATCH-ALL).
If CATCH-ALL is nil, `gnus-group-split-default-catch-all-group' is used
instead. This variable is set by `gnus-group-split-setup'."
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8212eea..38aea31 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -307,7 +307,7 @@ any confusion."
(defcustom message-subject-trailing-was-query t
"What to do with trailing \"(was: <old subject>)\" in subject lines.
If nil, leave the subject unchanged. If it is the symbol `ask', query
-the user what do do. In this case, the subject is matched against
+the user what to do. In this case, the subject is matched against
`message-subject-trailing-was-ask-regexp'. If
`message-subject-trailing-was-query' is t, always strip the trailing
old subject. In this case, `message-subject-trailing-was-regexp' is
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index 6378e3e..f14af74 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -628,7 +628,7 @@ order for SpamAssassin to recognize the new registered
spam."
:group 'spam-spamassassin)
(defcustom spam-sa-learn-unregister-switch "--forget"
- "The switch that sa-learn uses to unregister messages messages."
+ "The switch that sa-learn uses to unregister messages."
:type 'string
:group 'spam-spamassassin)
diff --git a/lisp/ido.el b/lisp/ido.el
index 23c039d3..47cbcb6 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -443,7 +443,7 @@ Possible values:
`other-window' Show new file in another window (same frame)
`display' Display file in another window without selecting to it
`other-frame' Show new file in another frame
-`maybe-frame' If a file is visible in another frame, prompt to ask if you
+`maybe-frame' If a file is visible in another frame, prompt to ask if
you want to see the file in the same window of the current
frame or in the other frame
`raise-frame' If a file is visible in another frame, raise that
diff --git a/lisp/net/newst-ticker.el b/lisp/net/newst-ticker.el
index 913b89b..eb6ff19 100644
--- a/lisp/net/newst-ticker.el
+++ b/lisp/net/newst-ticker.el
@@ -118,7 +118,7 @@ been added between the last two retrievals."
(defcustom newsticker-hide-obsolete-items-in-echo-area
t
- "Decides whether to show obsolete items items in the ticker.
+ "Decides whether to show obsolete items in the ticker.
If t the echo area will not show obsolete items. See also
`newsticker-hide-old-items-in-echo-area'."
:type 'boolean
diff --git a/lisp/obsolete/landmark.el b/lisp/obsolete/landmark.el
index 99fd551..7795279 100644
--- a/lisp/obsolete/landmark.el
+++ b/lisp/obsolete/landmark.el
@@ -260,7 +260,7 @@ is non-nil. One interesting value is `turn-on-font-lock'."
"Vector recording the actual score of the free squares.")
-;; The key point point about the algorithm is that, rather than considering
+;; The key point about the algorithm is that, rather than considering
;; the board as just a set of squares, we prefer to see it as a "space" of
;; internested 5-tuples of contiguous squares (called qtuples).
;;
diff --git a/lisp/obsolete/levents.el b/lisp/obsolete/levents.el
index 24de489..b9b1535 100644
--- a/lisp/obsolete/levents.el
+++ b/lisp/obsolete/levents.el
@@ -113,7 +113,7 @@ In actual Lucid Emacs, you MUST NOT use this event object
after
calling this function with it. You will lose. It is not necessary to
call this function, as event objects are garbage- collected like all
other objects; however, it may be more efficient to explicitly
-deallocate events when you are sure that that is safe.
+deallocate events when you are sure that this is safe.
This emulation does not actually deallocate or reuse events
except via garbage collection and `cons'."
diff --git a/lisp/obsolete/otodo-mode.el b/lisp/obsolete/otodo-mode.el
index c7a05ad..dd25e33 100644
--- a/lisp/obsolete/otodo-mode.el
+++ b/lisp/obsolete/otodo-mode.el
@@ -164,7 +164,7 @@
;; might be nicer and to that effect a function has been declared
;; further down in the code. You may wish to auto-load this.
;;
-;; Carsten also writes that that *changing* the prefix after the
+;; Carsten also writes that *changing* the prefix after the
;; todo list is already established is not as simple as changing
;; the variable - the todo files have to be changed by hand.
;;
diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el
index 53538e6..eab9f3e 100644
--- a/lisp/org/org-faces.el
+++ b/lisp/org/org-faces.el
@@ -291,7 +291,7 @@ determines if it is a foreground or a background color."
(defcustom org-priority-faces nil
"Faces for specific Priorities.
This is a list of cons cells, with priority character in the car
-and faces in the cdr. The face can be a symbol, a color as
+and faces in the cdr. The face can be a symbol, a color
as a string, or a property list of attributes, like
(:foreground \"blue\" :weight bold :underline t).
If it is a color string, the variable `org-faces-easy-properties'
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 7c31845..2f5f36e 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -263,7 +263,7 @@ Other useful commands:\n
"Vector recording the actual score of the free squares.")
-;; The key point point about the algorithm is that, rather than considering
+;; The key point about the algorithm is that, rather than considering
;; the board as just a set of squares, we prefer to see it as a "space" of
;; internested 5-tuples of contiguous squares (called qtuples).
;;
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index f84d94a..82ae181 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -619,7 +619,7 @@ COUNT starts with 1. GEN-SEP is used to separate long
variable values."
'((java-mode ("%sTokenTypes.java") ("%s.java"))
(c++-mode ("%sTokenTypes.hpp") ("%s.cpp" "%s.hpp")))
"Language dependent formats which specify generated files.
-Each element in this list looks looks like
+Each element in this list looks like
(MAJOR-MODE (VOCAB-FILE-FORMAT...) (CLASS-FILE-FORMAT...)).
The element whose MAJOR-MODE is equal to `antlr-language' is used to
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 6818b5e..df202e9 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -167,7 +167,7 @@ use c-constant-symbol instead."
(defmacro defcustom-c-stylevar (name val doc &rest args)
"Define a style variable NAME with VAL and DOC.
More precisely, convert the given `:type FOO', mined out of ARGS,
-to an aggregate `:type (radio STYLE (PREAMBLE FOO))', append some
+to an aggregate `:type (radio STYLE (PREAMBLE FOO))', append
some boilerplate documentation to DOC, arrange for the fallback
value of NAME to be VAL, and call `custom-declare-variable' to
do the rest of the work.
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index abd77bd..853604d 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -480,7 +480,7 @@ Font for POD headers."
(defcustom cperl-highlight-variables-indiscriminately nil
"Non-nil means perform additional highlighting on variables.
Currently only changes how scalar variables are highlighted.
-Note that that variable is only read at initialization time for
+Note that the variable is only read at initialization time for
the variable `cperl-font-lock-keywords-2', so changing it after you've
entered CPerl mode the first time will have no effect."
:type 'boolean
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el
index abcd149..1ce8220 100644
--- a/lisp/term/tvi970.el
+++ b/lisp/term/tvi970.el
@@ -36,7 +36,7 @@
;; ("\eOR" [kp-f3])
;; ("\eOS" [kp-f4])
- ;; These might bre set by terminfo.
+ ;; These might be set by terminfo.
("\e[H" [home])
("\e[Z" [backtab])
("\e[i" [print])
@@ -45,13 +45,13 @@
("\e[M" [deleteline])
("\e[U" [next]) ;; actually the `page' key
- ;; These won't be set up by either
+ ;; These won't be set up by either.
("\eOm" [kp-subtract])
("\eOl" [kp-separator])
("\eOn" [kp-decimal])
("\eOM" [kp-enter])
- ;; These won't be set up by either either
+ ;; These won't be set up by either.
("\e[K" [key_eol]) ;; Not an X keysym
("\e[J" [key_eos]) ;; Not an X keysym
("\e[2J" [key_clear]) ;; Not an X keysym
diff --git a/lisp/textmodes/less-css-mode.el b/lisp/textmodes/less-css-mode.el
index b665f91..d31414e 100644
--- a/lisp/textmodes/less-css-mode.el
+++ b/lisp/textmodes/less-css-mode.el
@@ -129,7 +129,7 @@ variable in most cases is likely to be via directory local
variables.
This can be also be set to a full path, or a relative path. If
-the path is relative, it will be relative to the the current
+the path is relative, it will be relative to the current
directory by default."
:type 'file)
;;;###autoload
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 0fb120e..60e9bbb 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -66,7 +66,7 @@
(defvar picture-desired-column 0
"Desired current column for Picture mode.
When a cursor is on a wide-column character (e.g. Chinese,
-Japanese, Korean), this may may be different from `current-column'.")
+Japanese, Korean), this may be different from `current-column'.")
(defun picture-update-desired-column (adjust-to-current)
diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el
index 9575b5f..41dc940 100644
--- a/lisp/vc/pcvs-defs.el
+++ b/lisp/vc/pcvs-defs.el
@@ -269,7 +269,7 @@ This variable is buffer local and only used in the *cvs*
buffer.")
"Regexp matching the possible names of locks in the CVS repository.")
(defconst cvs-cursor-column 22
- "Column to position cursor in in `cvs-mode'.")
+ "Column to position cursor in, in `cvs-mode'.")
;;;;
;;;; Global internal variables
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 1bd822d..f5eb88b 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -3958,7 +3958,7 @@
2006-05-12 Chong Yidong <address@hidden>
- * intervals.c (set_point_both): Fix mixup before before and after
+ * intervals.c (set_point_both): Fix mixup before and after
in variable names.
* editfns.c (Fline_beginning_position): Inhibit point-motion hooks
diff --git a/src/ChangeLog.12 b/src/ChangeLog.12
index 61251bf..2291e85 100644
--- a/src/ChangeLog.12
+++ b/src/ChangeLog.12
@@ -3348,7 +3348,7 @@
with plain -g rather than with -g3, and they need the duplicate
definitions for .gdbinit to work; see <https://bugs.gnu.org/12814#26>.
* lisp.h (GCTYPEBITS, ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG, VALMASK):
- Define as macros, as well as as enums or as constants.
+ Define as macros, as well as enums or constants.
2012-11-06 Jan Djärv <address@hidden>
diff --git a/src/ChangeLog.4 b/src/ChangeLog.4
index 2935ee5..7086553 100644
--- a/src/ChangeLog.4
+++ b/src/ChangeLog.4
@@ -3381,7 +3381,7 @@
some external definitions.
(Ffile_attributes) [MSDOS]: Set execute bits from file name.
(Ffile_name_all_completions) [FILE_SYSTEM_CASE]: Convert
- case of file name as as indicated by conditional.
+ case of file name as indicated by conditional.
* emacs.c (main) [MSDOS]: Call init_environment. Set file types to
binary for all files. Call init_dosfns.
diff --git a/src/ChangeLog.5 b/src/ChangeLog.5
index 489ccfa..99d2516 100644
--- a/src/ChangeLog.5
+++ b/src/ChangeLog.5
@@ -1372,7 +1372,7 @@
1995-04-11 Richard Stallman <address@hidden>
* keyboard.c (read_char): Rearrange code so that getcjmp is set
- only around sit_for and kbd_buffer_get_event, and
+ only around sit_for and kbd_buffer_get_event,
and polling is stopped only around the kbd_buffer_get_event call.
(Ftrack_mouse, tracking_off, read_char): Don't call prepare_menu_bars.
diff --git a/src/ChangeLog.7 b/src/ChangeLog.7
index 32472ac..a1a9fb7 100644
--- a/src/ChangeLog.7
+++ b/src/ChangeLog.7
@@ -3381,7 +3381,7 @@
1998-02-15 Richard Stallman <address@hidden>
* minibuf.c (read_minibuf): Do use DEFALT in place of empty input
- when when expflag is nonzero.
+ when expflag is nonzero.
(Fread_no_blanks_input): Arg INIT renamed to INITIAL.
1998-02-14 Richard Stallman <address@hidden>
diff --git a/src/buffer.c b/src/buffer.c
index 76670b8..cc6021b 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -6054,7 +6054,7 @@ and is the visited file's modification time, as of that
time. If the
modification time of the most recent save is different, this entry is
obsolete.
-An entry (t . 0) means means the buffer was previously unmodified but
+An entry (t . 0) means the buffer was previously unmodified but
its time stamp was unknown because it was not associated with a file.
An entry (t . -1) is similar, except that it means the buffer's visited
file did not exist.
diff --git a/src/emacs-module.c b/src/emacs-module.c
index e5833a1..6bc91a7 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -983,7 +983,7 @@ value_to_lisp (emacs_value v)
return o;
}
-/* Attempt to convert O to an emacs_value. Do not do any checking or
+/* Attempt to convert O to an emacs_value. Do not do any checking
or allocate any storage; the caller should prevent or detect
any resulting bit pattern that is not a valid emacs_value. */
static emacs_value
diff --git a/src/emacsgtkfixed.c b/src/emacsgtkfixed.c
index 1a00e0f..4243b3f 100644
--- a/src/emacsgtkfixed.c
+++ b/src/emacsgtkfixed.c
@@ -81,7 +81,7 @@ emacs_fixed_gtk_widget_size_allocate (GtkWidget *widget,
additional case for an xwidget view.
It would be nicer if the bse class method could be called first,
- and the the xview modification only would remain here. It wasn't
+ and the xview modification only would remain here. It wasn't
possible to solve it that way yet. */
EmacsFixedClass *klass;
GtkWidgetClass *parent_class;
diff --git a/src/fileio.c b/src/fileio.c
index adb3534..4bbcec6 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -124,7 +124,7 @@ static mode_t auto_save_mode_bits;
static bool auto_save_error_occurred;
/* If VALID_TIMESTAMP_FILE_SYSTEM, then TIMESTAMP_FILE_SYSTEM is the device
- number of a file system where time stamps were observed to to work. */
+ number of a file system where time stamps were observed to work. */
static bool valid_timestamp_file_system;
static dev_t timestamp_file_system;
diff --git a/src/frame.h b/src/frame.h
index d1c21da..e610fc7 100644
--- a/src/frame.h
+++ b/src/frame.h
@@ -447,7 +447,7 @@ struct frame
/* New text height and width for pending size change. 0 if no change
pending. These values represent pixels or canonical character units
- according to the value of new_pixelwise and correlate to the the
+ according to the value of new_pixelwise and correlate to the
text width/height of the frame. */
int new_width, new_height;
diff --git a/src/keyboard.h b/src/keyboard.h
index a2a5f8f..662d8e4 100644
--- a/src/keyboard.h
+++ b/src/keyboard.h
@@ -65,7 +65,7 @@ INLINE_HEADER_BEGIN
as soon as a complete key arrives from some KBOARD or other,
Emacs starts executing that key's binding. It switches to the
single-kboard state for the execution of that command,
- so that that command can get input only from its own KBOARD.
+ so that the command can get input only from its own KBOARD.
While in the single-kboard state, read_char can consider input only
from the current KBOARD. If events come from other KBOARDs, they
diff --git a/src/nsterm.m b/src/nsterm.m
index abfdffc..0b43c04 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3715,7 +3715,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r)
/* Currently on NS img->mask is always 0. Since
get_window_cursor_type specifies a hollow box cursor when on
a non-masked image we never reach this clause. But we put it
- in in anticipation of better support for image masks on
+ in, in anticipation of better support for image masks on
NS. */
tdCol = ns_lookup_indexed_color (NS_FACE_FOREGROUND (face), s->f);
}
diff --git a/src/scroll.c b/src/scroll.c
index 7004dcd..c6e0cfd 100644
--- a/src/scroll.c
+++ b/src/scroll.c
@@ -457,7 +457,7 @@ calculate_direct_scrolling (struct frame *frame,
if (baud_rate <= 0)
extra_cost = 1;
- /* Overhead of setting the scroll window, plus the extra cost
+ /* Overhead of setting the scroll window, plus the extra
cost of scrolling by a distance of one. The extra cost is
added once for consistency with the cost vectors */
scroll_overhead
diff --git a/src/termhooks.h b/src/termhooks.h
index b5171bf..dd6044a 100644
--- a/src/termhooks.h
+++ b/src/termhooks.h
@@ -625,7 +625,7 @@ struct terminal
TERMINAL indicates which terminal device to read from. Input
events should be read into HOLD_QUIT.
- A positive return value indicates that that many input events
+ A positive return value N indicates that N input events
were read into BUF.
Zero means no events were immediately available.
A value of -1 means a transient read error, while -2 indicates
diff --git a/src/w32inevt.c b/src/w32inevt.c
index 0b0f3f9..9d79bd4 100644
--- a/src/w32inevt.c
+++ b/src/w32inevt.c
@@ -526,7 +526,7 @@ do_mouse_event (MOUSE_EVENT_RECORD *event,
help_echo_window, help_echo_object,
help_echo_pos);
}
- /* We already called kbd_buffer_store_event, so indicate the
+ /* We already called kbd_buffer_store_event, so indicate to
the caller it shouldn't. */
return 0;
}
diff --git a/src/w32proc.c b/src/w32proc.c
index ca59f99..0046c9e 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -838,7 +838,7 @@ alarm (int seconds)
updates the status of the read accordingly, and signals the 2nd
event object, char_avail, on whose handle sys_select is
waiting. This tells sys_select that the file descriptor
- allocated for the subprocess or the the stream is ready to be
+ allocated for the subprocess or the stream is ready to be
read from.
When the subprocess exits or the network/serial stream is closed,
diff --git a/test/lisp/kmacro-tests.el b/test/lisp/kmacro-tests.el
index a691ec8..9f3eeaf 100644
--- a/test/lisp/kmacro-tests.el
+++ b/test/lisp/kmacro-tests.el
@@ -248,7 +248,7 @@ cause the current test to fail."
(kmacro-tests-simulate-command '(kmacro-set-counter 1))
(kmacro-tests-should-insert "1"
(kmacro-tests-simulate-command '(kmacro-insert-counter nil)))
- ;; Using universal arg to to set counter should reset to starting value.
+ ;; Using universal arg to set counter should reset to starting value.
(kmacro-tests-simulate-command '(kmacro-set-counter (4)) '(4))
(kmacro-tests-should-insert "5"
(kmacro-tests-simulate-command '(kmacro-insert-counter nil))))
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 14102e7..7cc0779 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -140,7 +140,7 @@ This shall used dynamically bound only.")
(defmacro tramp--test-instrument-test-case (verbose &rest body)
"Run BODY with `tramp-verbose' equal VERBOSE.
-Print the the content of the Tramp debug buffer, if BODY does not
+Print the content of the Tramp debug buffer, if BODY does not
eval properly in `should' or `should-not'. `should-error' is not
handled properly. BODY shall not contain a timeout."
(declare (indent 1) (debug (natnump body)))
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 90a627f..5133e68 100644
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -188,7 +188,7 @@
;; From 24 Oct - 21 Nov 2015, `open-line' took a second argument
;; INTERACTIVE and ran `post-self-insert-hook' if the argument was
;; true. This test tested that. Currently, however, `open-line'
-;; does not run run `post-self-insert-hook' at all, so for now
+;; does not run `post-self-insert-hook' at all, so for now
;; this test just makes sure that it doesn't.
(ert-deftest open-line-hook ()
(let* ((x 0)