Fix typo.

18 files changed, 19 insertions, 19 deletions

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 04998100a24..6a62d79ab82 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -418,7 +418,7 @@ local date.  The second component of date should be an integer."
 Corresponding value is nil if there is no sunrise/sunset."
   (let* (; first, get the exact moment of local noon.
          (exact-local-noon (solar-exact-local-noon date))
-         ; get the the time from the 2000 epoch.
+         ; get the time from the 2000 epoch.
          (t0 (solar-julian-ut-centuries (car exact-local-noon)))
          ; store the sidereal time at Greenwich at midnight of UT time.
          ; find if summer or winter slightly above the equator
diff --git a/lisp/comint.el b/lisp/comint.el
index 19046a3b769..472b6400eb1 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2326,7 +2326,7 @@ This command is like `M-.' in bash."
 ;; your cursor over a string that's a filename and have it taken as default.
 ;;
 ;; If the command is given in a file buffer whose major mode is in
-;; SOURCE-MODES, then the the filename is the default file, and the
+;; SOURCE-MODES, then the filename is the default file, and the
 ;; file's directory is the default directory.
 ;;
 ;; If the buffer isn't a source file buffer (e.g., it's the process buffer),
diff --git a/lisp/ediff.el b/lisp/ediff.el
index 24698441c08..d07075bbac8 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -1243,7 +1243,7 @@ buffer."
                                             ;; buffer
                                             merge-buffer-file)
   "Run Ediff by merging two revisions of a file with a common ancestor.
-The file is the the optional FILE argument or the file visited by the current
+The file is the optional FILE argument or the file visited by the current
 buffer."
   (interactive)
   (if (stringp file) (find-file file))
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 2639a93dea8..f6100122730 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -560,7 +560,7 @@ checkdoc status window instead of the usual behavior."
 Searching starts at START-HERE.  SHOWSTATUS expresses the verbosity
 of the search, and wether ending the search will auto-exit this function.
 FINDFUNC is a symbol representing a function that will position the
-cursor, and return error message text to present the the user.  It is
+cursor, and return error message text to present to the user.  It is
 assumed that the cursor will stop just before a major sexp, which will
 be highlighted to present the user with feedback as to the offending
 style."
diff --git a/lisp/gud.el b/lisp/gud.el
index 8e565d77776..98e918f098f 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -239,7 +239,7 @@ t means that there is no stack, and we are in display-file mode.")
 (defvar gud-speedbar-menu-items
   ;; Note to self.  Add expand, and turn off items when not available.
   '(["Jump to stack frame" speedbar-edit-line t])
-  "Additional menu items to add the the speedbar frame.")
+  "Additional menu items to add to the speedbar frame.")
 
 ;; Make sure our special speedbar mode is loaded
 (if (featurep 'speedbar)
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index a7f4a15c982..f351ab831ba 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1278,7 +1278,7 @@ function, for example, to archive all of your sent messages someplace
 
 
 (defvar feedmail-is-a-resend nil
-  "*Non-nil means the the message is a Resend (in the RFC-822 sense).
+  "*Non-nil means the message is a Resend (in the RFC-822 sense).
 This affects the composition of certain headers.  feedmail sets this
 variable as soon as it starts prepping the message text buffer, so any
 user-supplied functions can rely on it.  Users shouldn't set or change this
diff --git a/lisp/man.el b/lisp/man.el
index b428e4693b3..ba7ad02ba25 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1050,7 +1050,7 @@ Returns t if section is found, nil otherwise."
   (Man-find-section (aheadsym Man-sections-alist)))
 
 (defun Man-goto-see-also-section ()
-  "Move point the the \"SEE ALSO\" section.
+  "Move point to the \"SEE ALSO\" section.
 Actually the section moved to is described by `Man-see-also-regexp'."
   (interactive)
   (if (not (Man-find-section Man-see-also-regexp))
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index e97c14fe15a..4530bb386e0 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2326,7 +2326,7 @@ and NOWAIT."
   "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$")
 
 (defun ange-ftp-guess-host-type (host user)
-  "Guess at the the host type of HOST.
+  "Guess the host type of HOST.
 Works by doing a pwd and examining the directory syntax."
   (let ((host-type (ange-ftp-host-type host))
         (key (concat host "/" user "/~")))
diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el
index e635c2f1612..b9ee7658d52 100644
--- a/lisp/net/rcompile.el
+++ b/lisp/net/rcompile.el
@@ -116,7 +116,7 @@ nil means run no commands."
 
 ;;;###autoload
 (defun remote-compile (host user command)
-  "Compile the the current buffer's directory on HOST.  Log in as USER.
+  "Compile the current buffer's directory on HOST.  Log in as USER.
 See \\[compile]."
   (interactive
    (let ((parsed (or (and (featurep 'ange-ftp)
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index c5d68494159..91ad7e64f35 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -5,7 +5,7 @@
 ;; Author: code extracted from Emacs-20's simple.el
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
-;; Revision: $Id: newcomment.el,v 1.42 2001/12/02 04:19:32 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.43 2001/12/14 21:53:29 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -677,7 +677,7 @@ comment markers."
                          (forward-line 1)
                          (re-search-forward sre (line-end-position) t))
                   (replace-match "" t t nil (if (match-end 2) 2 1)))))
-            ;; Go the the end for the next comment.
+            ;; Go to the end for the next comment.
             (goto-char (point-max)))))
       (set-marker end nil))))
 
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index 11f9196a411..11f6fe38640 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -672,7 +672,7 @@ can always override the use of `c-default-style' by making calls to
        ;; decl start if the first inherit clause hangs and it's not a
        ;; func-local inherit clause (when does that occur?).
        (block-open            . 0)
-       ;; Relpos: Inexpr statement: Boi at the the preceding
+       ;; Relpos: Inexpr statement: Boi at the preceding
        ;; paren.  Otherwise: None.
        (block-close           . 0)
        ;; Relpos: At the open brace if it's at boi.  Otherwise boi at
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 156d2f7f18e..8828c6bb1d3 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2683,7 +2683,7 @@ and closing parentheses and brackets.."
                        (if (eq (preceding-char) ?\))
                            (forward-sexp -1))
                        ;; In the case it starts a subroutine, indent with
-                       ;; respect to `sub', not with respect to the the
+                       ;; respect to `sub', not with respect to the
                        ;; first thing on the line, say in the case of
                        ;; anonymous sub in a hash.
                        ;;
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 0e1b862e270..b5799b368b4 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -3323,7 +3323,7 @@ from point as default.  Value is a list (CLASS-NAME MEMBER-NAME)."
                            (completing-read prompt alist nil nil member-name)))
                    (completion-result (try-completion name alist)))
               ;; Cannot rely on `try-completion' returning t for exact
-              ;; matches!  It returns the the name as a string.
+              ;; matches!  It returns the name as a string.
               (unless (setq member-info (gethash name members))
                 (if (y-or-n-p "No exact match found.  Try substrings? ")
                     (setq name 
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 21c7b691190..a628aa9933c 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -410,7 +410,7 @@ START-EVENT is the mouse click event."
     (remove-hook 'post-command-hook     ; remove local hook
                  #'force-mode-line-update t)))
 
-;; Add ruler-mode to the the minor mode menu in the mode line
+;; Add ruler-mode to the minor mode menu in the mode line
 (define-key mode-line-mode-menu [ruler-mode]
   `(menu-item "Ruler" ruler-mode
               :button (:toggle . ruler-mode)))
diff --git a/lisp/term.el b/lisp/term.el
index 51faa6ff9ab..43350c4dd91 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2375,7 +2375,7 @@ See `term-prompt-regexp'."
 ;;; your cursor over a string that's a filename and have it taken as default.
 ;;;
 ;;; If the command is given in a file buffer whose major mode is in
-;;; SOURCE-MODES, then the the filename is the default file, and the
+;;; SOURCE-MODES, then the filename is the default file, and the
 ;;; file's directory is the default directory.
 ;;;
 ;;; If the buffer isn't a source file buffer (e.g., it's the process buffer),
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index c77bba42d28..6e5113093f5 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -594,7 +594,7 @@ and the resulting value is returned.  Generally these FORMs are
 evaluated for their side-effects rather than their values.
   If the selected form is a menu or a symbol whose value is a menu, 
 then it is displayed and evaluated as a pullright menu item.
-  If the the FORM of the first ITEM is nil, the STRING of the item
+  If the FORM of the first ITEM is nil, the STRING of the item
 is used as a label for the menu, i.e. it's inverted and not selectable."
 
   (if (symbolp menu) (setq menu (symbol-value menu)))
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 73fc15b6fbf..12f0e253b5a 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -823,7 +823,7 @@ The layout of the INFO-PART for `graphics-operation' is
 
   (TITLE (UNSHIFTED SHIFTED))
 
-TITLE is the the title that appears in the popup menu.  UNSHIFTED
+TITLE is the title that appears in the popup menu.  UNSHIFTED
 and SHIFTED specify for unshifted and shifted operation.  Both
 have the form
 
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 517de9b59bd..f938bbb91f6 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -538,7 +538,7 @@ MSG is either a help string to display, or nil to cancel the display."
 (defun tooltip-help-tips (event)
   "Hook function to display a help tooltip.
 This is installed on the hook `tooltip-hook', which is run when
-the the timer with ID `tooltip-timeout-id' fires.
+the timer with ID `tooltip-timeout-id' fires.
 Value is non-nil if this function handled the tip."
   (when (stringp tooltip-help-message)
     (tooltip-show tooltip-help-message)