fix many doubled-word typos

fix many doubled-word typos

[Jim Meyering]

FYI, I've just committed this.
I see that it didn't use my name, whereas it did before.
I would rather have had it reject the commit than use "U. Ser".

I'll fix that so it doesn't happen again.

------------------------------------------------------------
revno: 104188
committer: U. Ser <user@example.com>
branch nick: trunk
timestamp: Tue 2011-05-10 15:57:12 +0200
message:
  fix many doubled-word typos
diff:
=== modified file 'ChangeLog'
--- ChangeLog	2011-05-09 10:40:26 +0000
+++ ChangeLog	2011-05-10 13:57:12 +0000
@@ -1,3 +1,34 @@
+2011-05-10  Jim Meyering  <meyering@redhat.com>
+
+	fix doubled-word typos
+	* admin/notes/exit-value: the the -> the
+	* doc/lispref/minibuf.texi: in in -> in
+	* doc/misc/ede.texi: or or -> or
+	* etc/MH-E-NEWS: the the -> the
+	* etc/PROBLEMS: Likewise.
+	* lisp/cedet/ede/pmake.el (ede-proj-makefile-garbage-patterns): Likewise.
+	* lisp/cedet/semantic/complete.el
+	(semantic-complete-read-tag-local-members): Likewise.
+	* lisp/cedet/ede.el (ede-auto-add-method): then then -> then
+	* lisp/gnus/shr.el (shr-colorize-region): on on -> on
+	* lisp/international/quail.el (quail-insert-kbd-layout): and and -> and
+	* lisp/kermit.el: and and -> and
+	* lisp/mh-e/mh-alias.el (mh-alias-minibuffer-confirm-address):
+	if if -> if it
+	* lisp/mh-e/mh-scan.el (mh-scan-destination-width): in in -> in
+	* lisp/net/ldap.el (ldap-search-internal): to to -> to
+	* lisp/org/org-agenda.el (org-agenda-entry-types): the the -> the
+	* lisp/org/org-table.el (org-table-get-remote-range): or or -> or
+	* lisp/org/org-wl.el (org-wl-folder-type): the the -> the
+	* lisp/org/org.el (org-goto, org-inside-LaTeX-fragment-p): Likewise.
+	* lisp/progmodes/vhdl-mode.el (vhdl-offsets-alist): Likewise.
+	* lisp/progmodes/js.el (js-mode): and and -> and
+	* lisp/textmodes/artist.el (artist-move-to-xy): at at -> at
+	(artist-draw-region-trim-line-endings): if if -> if
+	And Safetyc -> Safety.
+	* lisp/textmodes/reftex-dcr.el (reftex-view-crossref): at at -> at a
+	* src/xdisp.c (x_intersect_rectangles): the the -> the
+
 2011-05-09  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* configure.in: Require GnuTLS 2.6.x or higher.

=== modified file 'admin/notes/exit-value'
--- admin/notes/exit-value	2004-05-12 14:39:34 +0000
+++ admin/notes/exit-value	2011-05-10 13:57:12 +0000
@@ -10,7 +10,7 @@
 From the point of view of the program, nowadays stdlib.h on both type of
 systems provides macros `EXIT_SUCCESS' and `EXIT_FAILURE' that should DTRT.
 
-NB: The numerical values of these macros DO NOT need to fulfill the the exit
+NB: The numerical values of these macros DO NOT need to fulfill the exit
 value requirements outlined in the first paragraph!  That is the job of the
 `exit' function.  Thus, this kind of construct shows misunderstanding:
 

=== modified file 'doc/lispref/minibuf.texi'
--- doc/lispref/minibuf.texi	2011-04-08 18:53:26 +0000
+++ doc/lispref/minibuf.texi	2011-05-10 13:57:12 +0000
@@ -1691,7 +1691,7 @@
 @item
 @code{(boundaries . SUFFIX)} specifies @code{completion-boundaries}.
 The function should return a value of the form @code{(boundaries
-START . END)} where START is the position of the beginning boundary in
+START . END)} where START is the position of the beginning boundary
 in the string to complete, and END is the position of the end boundary
 in SUFFIX.
 @end itemize

=== modified file 'doc/misc/ede.texi'
--- doc/misc/ede.texi	2011-04-13 11:58:47 +0000
+++ doc/misc/ede.texi	2011-05-10 13:57:12 +0000
@@ -241,7 +241,7 @@
 You can add a file to more than one target; this is OK.
 
 To remove the current file from a target, type @kbd{C-c . d}
-(@code{ede-remove-file}), or or use the @samp{Remove File} menu item
+(@code{ede-remove-file}), or use the @samp{Remove File} menu item
 in the @samp{Target Options} submenu.  If the file belongs to multiple
 targets, this command prompts for each target it could be removed
 from.

=== modified file 'etc/MH-E-NEWS'
--- etc/MH-E-NEWS	2011-01-25 04:08:28 +0000
+++ etc/MH-E-NEWS	2011-05-10 13:57:12 +0000
@@ -320,7 +320,7 @@
 
 Most of the changes have to do with the renaming of the functions with
 "mhn" in them to "mh" because nmh doesn't use `mhn'. The names were
-also made consistent with the the family of "mml" functions.
+also made consistent with the family of "mml" functions.
 
 The type of signing or encryption has been generalized so the method
 is now an option rather than a part of the function's name. The option

=== modified file 'etc/PROBLEMS'
--- etc/PROBLEMS	2011-01-25 04:08:28 +0000
+++ etc/PROBLEMS	2011-05-10 13:57:12 +0000
@@ -1217,7 +1217,7 @@
 2) If the connection is very slow, you might also want to consider
    switching off scroll bars, menu bar, and tool bar.  Adding the
    following forms to your .emacs file will accomplish that, but only
-   after the the initial frame is displayed:
+   after the initial frame is displayed:
 
     (scroll-bar-mode -1)
     (menu-bar-mode -1)

=== modified file 'lisp/cedet/ede.el'
--- lisp/cedet/ede.el	2011-01-25 04:08:28 +0000
+++ lisp/cedet/ede.el	2011-05-10 13:57:12 +0000
@@ -80,7 +80,7 @@
 If the value is 'always, then the new file is added to the first
 target encountered.  If the value is 'multi-ask, then if more than one
 target wants the file, the user is asked.  If only one target wants
-the file, then then it is automatically added to that target.  If the
+the file, then it is automatically added to that target.  If the
 value is 'ask, then the user is always asked, unless there is no
 target willing to take the file.  'never means never perform the check."
   :group 'ede

=== modified file 'lisp/cedet/ede/pmake.el'
--- lisp/cedet/ede/pmake.el	2011-01-25 04:08:28 +0000
+++ lisp/cedet/ede/pmake.el	2011-05-10 13:57:12 +0000
@@ -478,7 +478,7 @@
 (defmethod ede-proj-makefile-garbage-patterns ((this ede-proj-target))
   "Return a list of patterns that are considered garbage to THIS.
 These are removed with make clean."
-  ;; Get the  the source object from THIS, and use the specified garbage.
+  ;; Get the source object from THIS, and use the specified garbage.
   (let ((src (ede-target-sourcecode this))
 	(garb nil))
     (while src

=== modified file 'lisp/cedet/semantic/complete.el'
--- lisp/cedet/semantic/complete.el	2011-02-28 01:07:29 +0000
+++ lisp/cedet/semantic/complete.el	2011-05-10 13:57:12 +0000
@@ -1825,7 +1825,7 @@
 							initial-input
 							history)
   "Ask for a tag by name from the local type members.
-Available tags are from the the current scope.
+Available tags are from the current scope.
 Completion options are presented in a traditional way, with highlighting
 to resolve same-name collisions.
 PROMPT is a string to prompt with.

=== modified file 'lisp/gnus/shr.el'
--- lisp/gnus/shr.el	2011-05-10 13:20:21 +0000
+++ lisp/gnus/shr.el	2011-05-10 13:57:12 +0000
@@ -643,7 +643,7 @@
 	  (shr-put-color start end :background (car new-colors))))
       new-colors)))
 
-;; Put a color in the region, but avoid putting colors on on blank
+;; Put a color in the region, but avoid putting colors on blank
 ;; text at the start of the line, and the newline at the end, to avoid
 ;; ugliness.  Also, don't overwrite any existing color information,
 ;; since this can be called recursively, and we want the "inner" color

=== modified file 'lisp/international/quail.el'
--- lisp/international/quail.el	2011-01-31 23:54:50 +0000
+++ lisp/international/quail.el	2011-05-10 13:57:12 +0000
@@ -818,7 +818,7 @@
 	  (bar "|")
 	  lower upper row)
       ;; Make table without horizontal lines.  Each column for a key
-      ;; has the form "| LU |" where L is for lower key and and U is
+      ;; has the form "| LU |" where L is for lower key and U is
       ;; for a upper key.  If width of L (U) is greater than 1,
       ;; preceding (following) space is not inserted.
       (put-text-property 0 1 'face 'bold bar)

=== modified file 'lisp/kermit.el'
--- lisp/kermit.el	2011-01-25 04:08:28 +0000
+++ lisp/kermit.el	2011-05-10 13:57:12 +0000
@@ -63,7 +63,7 @@
 ;; the -c (connect) command line option, which means you also have to specify a
 ;; line and baud on the command line, as in "kermit -l /dev/tty53 -b 9600 -c".
 ;; However, this will cause kermit to exit when the connection is closed.  So
-;; in order to do a file transfer, you have to think ahead and and add -r
+;; in order to do a file transfer, you have to think ahead and add -r
 ;; (receive) to the command line.  This means that you can't use the server
 ;; feature.  The only fix I can see is to muck around with the source code for
 ;; kermit, although this probably wouldn't be too hard.  What is needed is an

=== modified file 'lisp/mh-e/mh-alias.el'
--- lisp/mh-e/mh-alias.el	2011-04-28 15:32:28 +0000
+++ lisp/mh-e/mh-alias.el	2011-05-10 13:57:12 +0000
@@ -286,7 +286,7 @@
              (the-name (buffer-substring-no-properties beg (point))))
         (if (mh-assoc-string the-name mh-alias-alist t)
             (message "%s -> %s" the-name (mh-alias-expand the-name))
-          ;; Check if if was a single word likely to be an alias
+          ;; Check if it was a single word likely to be an alias
           (if (and (equal mh-alias-flash-on-comma 1)
                    (not (string-match " " the-name)))
               (message "No alias for %s" the-name))))))

=== modified file 'lisp/mh-e/mh-scan.el'
--- lisp/mh-e/mh-scan.el	2011-01-26 08:36:39 +0000
+++ lisp/mh-e/mh-scan.el	2011-05-10 13:57:12 +0000
@@ -308,7 +308,7 @@
 in it.
 
   \" \" blank space is the default character.
-  \"%\" indicates that the message in in a named MH sequence.
+  \"%\" indicates that the message in a named MH sequence.
   \"-\" indicates that the message has been annotated with a replied field.
   \"t\" indicates that the message contains mymbox in the To: field.
   \"c\" indicates that the message contains mymbox in the Cc: field.

=== modified file 'lisp/net/ldap.el'
--- lisp/net/ldap.el	2011-03-13 22:17:17 +0000
+++ lisp/net/ldap.el	2011-05-10 13:57:12 +0000
@@ -498,7 +498,7 @@
 matching one will be used.  Note the \"port ldap\" part is NOT
 required.
 
-  `host' is a string naming one or more (blank-separated) LDAP servers to
+  `host' is a string naming one or more (blank-separated) LDAP servers
 to try to connect to.  Each host name may optionally be of the form HOST:PORT.
   `filter' is a filter string for the search as described in RFC 1558.
   `attributes' is a list of strings indicating which attributes to retrieve

=== modified file 'lisp/org/org-agenda.el'
--- lisp/org/org-agenda.el	2011-02-28 01:07:29 +0000
+++ lisp/org/org-agenda.el	2011-05-10 13:57:12 +0000
@@ -3370,7 +3370,7 @@
 
 Never set this variable globally using `setq', because then it
 will apply to all future agenda commands.  Instead, bind it with
-`let' to scope it dynamically into the the agenda-constructing
+`let' to scope it dynamically into the agenda-constructing
 command.  A good way to set it is through options in
 `org-agenda-custom-commands'.  For a more flexible (though
 somewhat less efficient) way of determining what is included in

=== modified file 'lisp/org/org-table.el'
--- lisp/org/org-table.el	2011-02-28 01:07:29 +0000
+++ lisp/org/org-table.el	2011-05-10 13:57:12 +0000
@@ -4341,7 +4341,7 @@
 will then be used.  Alternatively, it may be an ID referring to
 any entry, also in a different file.  In this case, the first table
 in that entry will be referenced.
-FORM is a field or range descriptor like \"@2$3\" or or \"B3\" or
+FORM is a field or range descriptor like \"@2$3\" or \"B3\" or
 \"@I$2..@II$2\".  All the references must be absolute, not relative.
 
 The return value is either a single string for a single field, or a

=== modified file 'lisp/org/org-wl.el'
--- lisp/org/org-wl.el	2011-01-26 08:36:39 +0000
+++ lisp/org/org-wl.el	2011-05-10 13:57:12 +0000
@@ -118,7 +118,7 @@
 (defun org-wl-folder-type (folder)
   "Return symbol that indicates the type of FOLDER.
 FOLDER is the wanderlust folder name.  The first character of the
-folder name determines the the folder type."
+folder name determines the folder type."
   (let* ((indicator (substring folder 0 1))
 	 (type (cdr (assoc indicator org-wl-folder-types))))
     ;; maybe access or file folder

=== modified file 'lisp/org/org.el'
--- lisp/org/org.el	2011-03-06 02:43:19 +0000
+++ lisp/org/org.el	2011-05-10 13:57:12 +0000
@@ -6496,7 +6496,7 @@
 that copy, use org-occur and incremental search to find a location.
 When pressing RET or `Q', the command returns to the original buffer in
 which the visibility is still unchanged.  After RET is will also jump to
-the location selected in the indirect buffer and expose the
+the location selected in the indirect buffer and expose
 the headline hierarchy above."
   (interactive "P")
   (let* ((org-refile-targets `((nil . (:maxlevel . ,org-goto-max-level))))
@@ -15746,7 +15746,7 @@
 Even though the matchers for math are configurable, this function assumes
 that \\begin, \\(, \\[, and $$ are always used.  Only the single dollar
 delimiters are skipped when they have been removed by customization.
-The return value is nil, or a cons cell with the delimiter and
+The return value is nil, or a cons cell with the delimiter
 and the position of this delimiter.
 
 This function does a reasonably good job, but can locally be fooled by

=== modified file 'lisp/progmodes/js.el'
--- lisp/progmodes/js.el	2011-04-22 18:44:26 +0000
+++ lisp/progmodes/js.el	2011-05-10 13:57:12 +0000
@@ -3347,7 +3347,7 @@
   ;; Important to fontify the whole buffer syntactically! If we don't,
   ;; then we might have regular expression literals that aren't marked
   ;; as strings, which will screw up parse-partial-sexp, scan-lists,
-  ;; etc. and and produce maddening "unbalanced parenthesis" errors.
+  ;; etc. and produce maddening "unbalanced parenthesis" errors.
   ;; When we attempt to find the error and scroll to the portion of
   ;; the buffer containing the problem, JIT-lock will apply the
   ;; correct syntax to the regular expresion literal and the problem

=== modified file 'lisp/progmodes/vhdl-mode.el'
--- lisp/progmodes/vhdl-mode.el	2011-02-28 01:07:29 +0000
+++ lisp/progmodes/vhdl-mode.el	2011-05-10 13:57:12 +0000
@@ -1937,7 +1937,7 @@
  comment                -- a line containing only a comment
  arglist-intro          -- the first line in an argument list
  arglist-cont           -- subsequent argument list lines when no
-                           arguments follow on the same line as the
+                           arguments follow on the same line as
                            the arglist opening paren
  arglist-cont-nonempty  -- subsequent argument list lines when at
                            least one argument follows on the same

=== modified file 'lisp/textmodes/artist.el'
--- lisp/textmodes/artist.el	2011-03-02 03:48:01 +0000
+++ lisp/textmodes/artist.el	2011-05-10 13:57:12 +0000
@@ -1942,7 +1942,7 @@
   ;;
   ;;	Example: In the figure below, the `X' is the very last
   ;;		 character in the buffer ("a non-empty line at the
-  ;;             end"). Suppose point is at at P. Then (forward-line 1)
+  ;;             end"). Suppose point is at P. Then (forward-line 1)
   ;;             returns 0 and puts point after the `X'.
   ;;
   ;;			--------top of buffer--------
@@ -4030,7 +4030,7 @@
 (defun artist-draw-region-trim-line-endings (min-y max-y)
   "Trim lines in current draw-region from MIN-Y to MAX-Y.
 Trimming here means removing white space at end of a line."
-  ;; Safetyc check: switch min-y and max-y if if max-y is smaller
+  ;; Safety check: switch min-y and max-y if max-y is smaller
   (if (< max-y min-y)
       (let ((tmp min-y))
 	(setq min-y max-y)

=== modified file 'lisp/textmodes/reftex-dcr.el'
--- lisp/textmodes/reftex-dcr.el	2011-01-25 04:08:28 +0000
+++ lisp/textmodes/reftex-dcr.el	2011-05-10 13:57:12 +0000
@@ -34,7 +34,7 @@
 
 (defun reftex-view-crossref (&optional arg auto-how fail-quietly)
   "View cross reference of macro at point.  Point must be on the KEY
-argument.  When at at `\\ref' macro, show corresponding `\\label'
+argument.  When at a `\\ref' macro, show corresponding `\\label'
 definition, also in external documents (`xr').  When on a label, show
 a locations where KEY is referenced.  Subsequent calls find additional
 locations.  When on a `\\cite', show the associated `\\bibitem' macro or

=== modified file 'src/xdisp.c'
--- src/xdisp.c	2011-04-29 17:56:27 +0000
+++ src/xdisp.c	2011-05-10 13:57:12 +0000
@@ -254,7 +254,7 @@
    still left to right, i.e. the iterator "thinks" the first character
    is at the leftmost pixel position.  The iterator does not know that
    PRODUCE_GLYPHS reverses the order of the glyphs that the iterator
-   delivers.  This is important when functions from the the move_it_*
+   delivers.  This is important when functions from the move_it_*
    family are used to get to certain screen position or to match
    screen coordinates with buffer coordinates: these functions use the
    iterator geometry, which is left to right even in R2L paragraphs.
@@ -26254,7 +26254,7 @@
     {
       result->x = right->x;
 
-      /* The right end of the intersection is the minimum of the
+      /* The right end of the intersection is the minimum of
 	 the right ends of left and right.  */
       result->width = (min (left->x + left->width, right->x + right->width)
 		       - result->x);

Re: fix many doubled-word typos

[Eli Zaretskii]

> From: Jim Meyering <jim@meyering.net>
> Date: Tue, 10 May 2011 16:02:32 +0200
> 
> FYI, I've just committed this.
> I see that it didn't use my name, whereas it did before.
> I would rather have had it reject the commit than use "U. Ser".

If by "it" you mean bzr, then this comes from your
~/.bazaar/bazaar.conf, in the [DEFAULT] section.  I don't think the
default is "U. Ser", I think it's your user ID on the machine where
bzr runs.  At least that's what I once got when I forgot to invoke
"bzr whoami" before the first commit.

Re: fix many doubled-word typos

[Jim Meyering]

Eli Zaretskii wrote:
>> From: Jim Meyering <jim@meyering.net>
>> Date: Tue, 10 May 2011 16:02:32 +0200
>>
>> FYI, I've just committed this.
>> I see that it didn't use my name, whereas it did before.
>> I would rather have had it reject the commit than use "U. Ser".
>
> If by "it" you mean bzr, then this comes from your
> ~/.bazaar/bazaar.conf, in the [DEFAULT] section.  I don't think the
> default is "U. Ser", I think it's your user ID on the machine where
> bzr runs.  At least that's what I once got when I forgot to invoke
> "bzr whoami" before the first commit.

Thanks, but I've had a name and email address specified in
~/.bazaar/bazaar.conf (version-controlled, even) since 2009.
And my username/name are specified as you might imagine in /etc/passwd,
and there is no "U. Ser" in my environment.

And of course, bzr whoami reports what I'd expect:

    $ bzr whoami
    Jim Meyering <meyering@redhat.com>

I'm at a loss, so far.

Re: fix many doubled-word typos

[Glenn Morris]

Jim Meyering wrote:

> I'm at a loss, so far.

Web search is interesting (may be a total coincidence...):

http://lists.gnu.org/archive/html/bug-vc-dwim/2010-11/msg00004.html

:)

Re: fix many doubled-word typos

[Eli Zaretskii]

> From: Jim Meyering <jim@meyering.net>
> Cc: emacs-devel@gnu.org
> Date: Tue, 10 May 2011 18:17:04 +0200
> 
> > If by "it" you mean bzr, then this comes from your
> > ~/.bazaar/bazaar.conf, in the [DEFAULT] section.  I don't think the
> > default is "U. Ser", I think it's your user ID on the machine where
> > bzr runs.  At least that's what I once got when I forgot to invoke
> > "bzr whoami" before the first commit.
> 
> Thanks, but I've had a name and email address specified in
> ~/.bazaar/bazaar.conf (version-controlled, even) since 2009.
> And my username/name are specified as you might imagine in /etc/passwd,
> and there is no "U. Ser" in my environment.
> 
> And of course, bzr whoami reports what I'd expect:
> 
>     $ bzr whoami
>     Jim Meyering <meyering@redhat.com>
> 
> I'm at a loss, so far.

Indeed, very strange.  The full revision-id of your commit is
"user@example.com-20110510135712-e6q49fh8zpdxu79c", which means bzr
didn't use your ID in bazaar.conf for some reason.

Hmm...  Does your ~/.bzr.log show something interesting between the
last time it worked correctly and this time?

If .bzr.log gives no clue, perhaps post a question about this to
bazaar@lists.canonical.com, they are a helpful bunch of people.

Re: fix many doubled-word typos

[Jim Meyering]

Glenn Morris wrote:
> Jim Meyering wrote:
>
>> I'm at a loss, so far.
>
> Web search is interesting (may be a total coincidence...):
>
> http://lists.gnu.org/archive/html/bug-vc-dwim/2010-11/msg00004.html

Ha!  That must be it.
I don't have a backup of ~/.bazaar/bazaar.conf on that system,
and I ran bzr whoami ... to set it before looking at what was
there.  So I can only assume that while developing that test
for vc-dwim (which runs "bzr whoami 'U. Ser <user@example.com>'"),
I inadvertently ran it once without first making HOME point to a
temporary directory.

Thanks!

Re: fix many doubled-word typos

[Bastien]

Hi Jim,

Jim Meyering <jim@meyering.net> writes:

> +	* lisp/org/org-agenda.el (org-agenda-entry-types): the the -> the
> +	* lisp/org/org-table.el (org-table-get-remote-range): or or -> or
> +	* lisp/org/org-wl.el (org-wl-folder-type): the the -> the
> +	* lisp/org/org.el (org-goto, org-inside-LaTeX-fragment-p): Likewise.

Fixed in Org's repository, thanks for this!

-- 
 Bastien