Fix typo.

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 04998100a243a4ead517a0e53300be873ed278f8..6a62d79ab822f9d8fe55ac94b766bcfb74a6dd86 100644 (file)
--- 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 19046a3b769a9898917bcfa0f89a22daa786ab8d..472b6400eb1938b1bcedd41ca5d8aea54eccc14c 100644 (file)
--- 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 24698441c08627e42a470a951c2ff7793f240e26..d07075bbac8b53fb8082aa3b142ff3ed94675800 100644 (file)
--- 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 2639a93dea86e3cbde53a001a4499a753e48eb4c..f6100122730d5969287fb85f8b72c34126956bf0 100644 (file)
--- 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 8e565d7777696653ac0df875f22e625cab01b529..98e918f098f10d3c39b3d4118ce211f6ada8edd1 100644 (file)
--- 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 a7f4a15c9822ff7249efbd766fd456514448dce7..f351ab831baff8af3c0da04191fb023231616f5e 100644 (file)
--- 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 b428e4693b385312dd0236b16475b0a9f3ab2ec2..ba7ad02ba25522002ac0ce0e4cc17ee350c01b2b 100644 (file)
--- 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 e97c14fe15a7d67cfa051f0a9cb32826a7983480..4530bb386e0bbd435a74022f6652bb86653249f7 100644 (file)
--- 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 e635c2f16128c23f05d47a9380d8398d146f1d1b..b9ee7658d52d4fcd2dbe3a21c54ed7668dfbad92 100644 (file)
--- 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 c5d68494159ce42971b29e0f4fdf50861916a8b8..91ad7e64f35ce66e0d217b4bda3986a416bf8eef 100644 (file)
--- 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 11f9196a4111cd02c8210cc852ff62317b184795..11f6fe386402919ec3126e88b3f0c4e8c8ec0418 100644 (file)
--- 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 156d2f7f18e7c424fb134063ad0f313f90f5b78c..8828c6bb1d3b71e6d4fe48d67fe399e88a524ff5 100644 (file)
--- 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 0e1b862e2703e9e24569ae78ed2881265f163594..b5799b368b44d236bc843965555b1f3fbda8a7a6 100644 (file)
--- 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 21c7b69119037ff74868e609e068348823ca52f1..a628aa9933c1f996dc78bdc78308c82781e166c3 100644 (file)
--- 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)))
 \f
-;; 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 51faa6ff9ab002976984388b30ee2de9fe4a3b87..43350c4dd91217aa4312564b4c5aea0fe5ddba28 100644 (file)
--- 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 c77bba42d289b49649b342d9d05122253a5c32d2..6e5113093f590603a76d4638e2d9a831864c288f 100644 (file)
--- 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 73fc15b6fbf9c25e74daee854f9f9ab9460d8ea9..12f0e253b5a12ab04ed1a67b5e5ae9f15efdd9f4 100644 (file)
--- 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 517de9b59bd04b6105e021b77a98ad12f2dda7cd..f938bbb91f682e02347e1b4f3122d1b52e859d3b 100644 (file)
--- 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)