fix many doubled-word typos

24 files changed, 57 insertions, 26 deletions

diff --git a/ChangeLog b/ChangeLog
index ee27f4c1492..044d48646eb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
diff --git a/admin/notes/exit-value b/admin/notes/exit-value
index e59bb614b9b..cad6862c8aa 100644
--- a/admin/notes/exit-value
+++ b/admin/notes/exit-value
@@ -10,7 +10,7 @@ different dispatch model that is not explained further here).
 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:
 
diff --git a/doc/lispref/minibuf.texi b/doc/lispref/minibuf.texi
index acc68b0aafa..d2bb8da962f 100644
--- a/doc/lispref/minibuf.texi
+++ b/doc/lispref/minibuf.texi
@@ -1691,7 +1691,7 @@ match for some possibility; @code{nil} otherwise.
 @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
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index 67df955ca8f..13b640a09fe 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -241,7 +241,7 @@ To add the current file to an existing target, type @kbd{C-c . a}
 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.
diff --git a/etc/MH-E-NEWS b/etc/MH-E-NEWS
index 27b6d40bd89..aaafe76990b 100644
--- a/etc/MH-E-NEWS
+++ b/etc/MH-E-NEWS
@@ -320,7 +320,7 @@ changes for MH-E functions are listed here.
 
 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
diff --git a/etc/PROBLEMS b/etc/PROBLEMS
index 15d4ea227d0..2f344955cb2 100644
--- a/etc/PROBLEMS
+++ b/etc/PROBLEMS
@@ -1217,7 +1217,7 @@ be carried out at the same time:
 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)
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 67b648a44bb..307ccfdadd7 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -80,7 +80,7 @@ project file, all targets are queried to see if it should be added.
 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
diff --git a/lisp/cedet/ede/pmake.el b/lisp/cedet/ede/pmake.el
index 52a1d485324..d78e95af27f 100644
--- a/lisp/cedet/ede/pmake.el
+++ b/lisp/cedet/ede/pmake.el
@@ -478,7 +478,7 @@ These are removed with make clean."
 (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
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 47cb722e005..18c7b5a1a50 100644
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1825,7 +1825,7 @@ HISTORY is a symbol representing a variable to store the history in."
                                                         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.
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index bf5b06ccb56..75c6d5d9ce7 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -643,7 +643,7 @@ ones, in case fg and bg are nil."
           (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
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 2174beb19c9..51a0dcace14 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -818,7 +818,7 @@ The format of KBD-LAYOUT is the same as `quail-keyboard-layout'."
           (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)
diff --git a/lisp/kermit.el b/lisp/kermit.el
index b91dbb00cfa..3c8f52db0cd 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -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
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index 449a8782d0c..c93aaeb70da 100644
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -286,7 +286,7 @@ Blind aliases or users from /etc/passwd are not expanded."
              (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))))))
diff --git a/lisp/mh-e/mh-scan.el b/lisp/mh-e/mh-scan.el
index 656bcb65011..8a3e1632e2e 100644
--- a/lisp/mh-e/mh-scan.el
+++ b/lisp/mh-e/mh-scan.el
@@ -308,7 +308,7 @@ This column will have one of \" \", \"%\", \"-\", \"t\", \"c\", \"b\", or \"n\"
 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.
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 2caf8dec30f..a45cc5500c2 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -498,7 +498,7 @@ but if you have more than one in your netrc file, only the first
 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
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 9adc180b28e..8aeb4c4e5b2 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -3370,7 +3370,7 @@ By default, all four types are turned on.
 
 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
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index c99b5bf681a..b56dc6b77c3 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -4341,7 +4341,7 @@ a \"#+TBLNAME:\" directive.  The first table following this line
 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
diff --git a/lisp/org/org-wl.el b/lisp/org/org-wl.el
index 2a16d047b33..f1616f8001d 100644
--- a/lisp/org/org-wl.el
+++ b/lisp/org/org-wl.el
@@ -118,7 +118,7 @@ googlegroups otherwise."
 (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
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 076df5f0d07..4b316ab60ab 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -6496,7 +6496,7 @@ in an indirect buffer, in overview mode.  You can dive into the tree in
 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 @@ sequence appearing also before point.
 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
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index cd382d4e78d..a0437ccf9ae 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -3347,7 +3347,7 @@ If one hasn't been set, or if it's stale, prompt for a new one."
   ;; 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
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 75b706b74ec..9aaf3059b78 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -1937,7 +1937,7 @@ Here is the current list of valid syntactic element symbols:
  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
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 5fbc8a643d8..2325d7b26ff 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -1942,7 +1942,7 @@ Return a list (RETURN-CODE STDOUT STDERR)."
   ;;
   ;;    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 @@ The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
 (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)
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 68202440e1d..9b924ba7ad9 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -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
diff --git a/src/xdisp.c b/src/xdisp.c
index 88353e37925..66e51ac2c32 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -254,7 +254,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
    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 @@ x_intersect_rectangles (XRectangle *r1, XRectangle *r2, XRectangle *result)
     {
       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);