Fix typos.

32 files changed, 43 insertions, 43 deletions

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 987f29f1540..c844abedebe 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -88,7 +88,7 @@
 ;;             Each member header points to the next.  The archive is
 ;;             terminated by a bogus header with a zero next link.
 ;; -------------------------------------
-;; HOOKS: `foo' means one the the supported archive types.
+;; HOOKS: `foo' means one of the supported archive types.
 ;;
 ;; archive-mode-hook
 ;; archive-foo-mode-hook
diff --git a/lisp/array.el b/lisp/array.el
index fc128d3a7bc..93edb55980e 100644
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -822,7 +822,7 @@ but will cause many functions to give errors if they encounter one.
 
   Upon entering array mode, you will be prompted for the values of
 several variables.  Others will be calculated based on the values you
-supply.  These variables are all local the the buffer.  Other buffer
+supply.  These variables are all local to the buffer.  Other buffer
 in array mode may have different values assigned to the variables.
 The variables are:
 
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 2fa06565e7d..a5dd86a6a54 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 71d0cae28ea..40b927e88a7 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2245,7 +2245,7 @@ occurance of text matching `comint-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/ediff.el b/lisp/ediff.el
index a170d4b1a99..3fd9c1a8dee 100644
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -1193,7 +1193,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 fe075baf536..6a0c3f4ebc0 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -579,7 +579,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/emulation/edt.el b/lisp/emulation/edt.el
index d54c0bba8cb..c194350bbf0 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1233,7 +1233,7 @@ Argument NUM is the number of form feeds to insert."
 
 (defun edt-tab-insert (num)
   "Insert tab character at cursor position.
-Argument NUM is the the number of tabs to insert."
+Argument NUM is the number of tabs to insert."
   (interactive "*p")
   (edt-check-prefix num)
   (while (> num 0)
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 5ed679e5c1a..20a0ff3b15a 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1414,7 +1414,7 @@ They are saved for the TPU-edt undelete-lines command."
 
 (defun tpu-delete-to-eol (num)
   "Delete text up to end of line.
-With argument, delete up to to Nth line-end past point.
+With argument, delete up to the Nth line-end past point.
 They are saved for the TPU-edt undelete-lines command."
   (interactive "p")
   (let ((beg (point)))
@@ -1426,7 +1426,7 @@ They are saved for the TPU-edt undelete-lines command."
 
 (defun tpu-delete-to-bol (num)
   "Delete text back to beginning of line.
-With argument, delete up to to Nth line-end past point.
+With argument, delete up to the Nth line-end past point.
 They are saved for the TPU-edt undelete-lines command."
   (interactive "p")
   (let ((beg (point)))
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el
index 1ac4d6fb43a..642e3a1fee6 100644
--- a/lisp/eshell/eshell.el
+++ b/lisp/eshell/eshell.el
@@ -352,8 +352,8 @@ the tasks accomplished by such tools."
 The buffer used for Eshell sessions is determined by the value of
 `eshell-buffer-name'.  If there is already an Eshell session active in
 that buffer, Emacs will simply switch to it.  Otherwise, a new session
-will begin.  A new session is always created if the the prefix
-argument ARG is specified.  Returns the buffer selected (or created)."
+will begin.  A new session is always created if the prefix argument
+ARG is specified.  Returns the buffer selected (or created)."
   (interactive "P")
   (assert eshell-buffer-name)
   (let ((buf (if arg
diff --git a/lisp/follow.el b/lisp/follow.el
index 8b62c622812..3eb1da1a2b4 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -2073,7 +2073,7 @@ report this using the `follow-submit-feedback' function."
 		  (cond
 		   ;; The window was moved. Move it back and
 		   ;; select a new.  If no better could be found,
-		   ;; we stick the the new start position.  This
+		   ;; we stick to the new start position.  This
 		   ;; is used when the original process filter
 		   ;; tries to position the cursor at the bottom
 		   ;; of the window.  Example: `lyskom'.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index fae3dad43a1..88e0715ee65 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -3066,7 +3066,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 		     (mm-handle-id handle)))))
 
 (defun gnus-mime-copy-part (&optional handle)
-  "Put the the MIME part under point into a new buffer."
+  "Put the MIME part under point into a new buffer."
   (interactive)
   (gnus-article-check-buffer)
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 5280047d771..153b04d2383 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -651,7 +651,7 @@ If SOURCE is a directory spec, try to return the group name component."
 
 (defsubst nnmail-search-unix-mail-delim ()
   "Put point at the beginning of the next Unix mbox message."
-  ;; Algorithm used to find the the next article in the
+  ;; Algorithm used to find the next article in the
   ;; brain-dead Unix mbox format:
   ;;
   ;; 1) Search for "^From ".
@@ -680,7 +680,7 @@ If SOURCE is a directory spec, try to return the group name component."
 
 (defun nnmail-search-unix-mail-delim-backward ()
   "Put point at the beginning of the current Unix mbox message."
-  ;; Algorithm used to find the the next article in the
+  ;; Algorithm used to find the next article in the
   ;; brain-dead Unix mbox format:
   ;;
   ;; 1) Search for "^From ".
@@ -1188,7 +1188,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	  (let ((split-rest (cddr split))
 		(end (match-end 0))
 		;; The searched regexp is \(\(FIELD\).*\)\(VALUE\).  So,
-		;; start-of-value is the the point just before the
+		;; start-of-value is the point just before the
 		;; beginning of the value, whereas after-header-name is
 		;; the point just after the field name.
 		(start-of-value (match-end 1))
diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el
index 5793573f870..c72e416433b 100644
--- a/lisp/gnus/nnvirtual.el
+++ b/lisp/gnus/nnvirtual.el
@@ -523,7 +523,7 @@ If UPDATE-P is not nil, call gnus-group-update-group on the components."
 ;;; which keeps the size of the virtual active list the same as
 ;;; the sum of the component active lists.
 ;;; To achieve fair mixing of the groups, the last article in
-;;; each of N component groups will be in the the last N articles
+;;; each of N component groups will be in the last N articles
 ;;; in the virtual group.
 
 ;;; If you have 3 components A, B and C, with articles 1-8, 1-5, and 6-7
diff --git a/lisp/gud.el b/lisp/gud.el
index b1f7ff1886d..b582a6c6df9 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/international/ogonek.el b/lisp/international/ogonek.el
index 6f8a30b8f05..5684abd10c1 100644
--- a/lisp/international/ogonek.el
+++ b/lisp/international/ogonek.el
@@ -297,7 +297,7 @@ The functions come in the following groups.
 
 (defun ogonek-read-encoding (prompt default-name-var)
   "Read encoding name with completion based on `ogonek-name-encoding-alist'.
-Store the name in the the parameter-variable DEFAULT-NAME-VAR.
+Store the name in the parameter-variable DEFAULT-NAME-VAR.
 PROMPT is a string to be shown when the user is asked for a name."
  (let ((encoding 
         (completing-read 
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 7db3215c3f2..ec8244a5582 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 550d1c5f040..01451341b3f 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1048,7 +1048,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 774db5d7630..a82a927c949 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2310,7 +2310,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 at 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 d2104b26b9f..2df94390735 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.35.4.3 2001/11/19 20:35:04 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.35.4.4 2002/03/04 01:17:11 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -669,7 +669,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/play/handwrite.el b/lisp/play/handwrite.el
index cba4147b4e3..95ddac4c0bf 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -492,7 +492,7 @@ values for `handwrite-linespace' and `handwrite-numlines'."
 }def
 %%EndPreamble\n"))
 
-;;The the font size for the PostScript output.
+;;The font size for the PostScript output.
 ;;Also the x-y-translations of the PostScript stuff.
 (defun handwrite-insert-info ()
   (insert "\n%%BeginSizeTranslate\n")
diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el
index d53e2213d88..88c5e1186ca 100644
--- a/lisp/progmodes/cc-vars.el
+++ b/lisp/progmodes/cc-vars.el
@@ -672,8 +672,8 @@ 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
-       ;; paren.  Otherwise: None.
+       ;; 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
        ;; the start of the statement the open brace hangs on, or boi
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 94451abf1ec..2dc47960a89 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2617,7 +2617,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 e04726e0014..2c891f1192f 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -3324,7 +3324,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/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 346f59f1937..d760329e639 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -354,7 +354,7 @@ For example, in c-like modes, if we wish to also hide the curly braces
 should return the starting point (at the end of line) of the hidden
 region.
 
-It is called with a single argument ARG which is the the position in
+It is called with a single argument ARG which is the position in
 buffer after the block beginning.
 
 It should return the position from where we should start hiding.
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 0395de7240a..29a7fc021f0 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -4,7 +4,7 @@
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
 ;; Version: 4.7
-;; Date: $Date: 2001/07/16 12:22:59 $
+;; Date: $Date: 2001/12/01 13:14:33 $
 ;; Keywords: processes
 
 ;; This file is part of GNU Emacs.
@@ -69,7 +69,7 @@
 ;;
 ;; I don't plan on implementing directory tracking by watching the IDL
 ;; commands entered at the prompt, since too often an IDL procedure
-;; will change the current directory. If you want the the idl process
+;; will change the current directory. If you want the idl process
 ;; buffer to match the IDL current working just execute `M-x
 ;; idlwave-shell-resync-dirs' (bound to "\C-c\C-d\C-w" by default.)
 ;;
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 63e4e49771e..168a12be7b8 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -4,7 +4,7 @@
 ;; Author: Chris Chase <chase@att.com>
 ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
 ;; Version: 4.7
-;; Date: $Date: 2001/07/16 12:22:59 $
+;; Date: $Date: 2001/12/01 13:14:33 $
 ;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
@@ -1309,7 +1309,7 @@ blocks starting with a BEGIN statement.  The matches must have associations
 
 (defconst idlwave-statement-match
   (list
-   ;; "endif else" is the the only possible "end" that can be
+   ;; "endif else" is the only possible "end" that can be
    ;; followed by a statement on the same line.
    '(endelse . ("end\\(\\|if\\)\\s +else" "end\\(\\|if\\)\\s +else"))
    ;; all other "end"s can not be followed by a statement.
@@ -3024,7 +3024,7 @@ ignored."
           ;; No hang. Instead find minimum indentation of paragraph
           ;; after first line.
           ;; For the following while statement, since START is at the
-          ;; beginning of line and END is at the the end of line
+          ;; beginning of line and END is at the end of line
           ;; point is greater than START at least once (which would
           ;; be the case for a single line paragraph).
           (while (> (point) start)
@@ -3328,7 +3328,7 @@ constants - a double quote followed by an octal digit."
 	    ;; string act as an
 	    ;; escape for the delimiter in the string.
 	    ;; Two consecutive delimiters alone (i.e., not after the
-	    ;; start of a string) is the the null string.
+	    ;; start of a string) is the null string.
 	    (progn
 	      ;; Move to position after quote
 	      (goto-char (1+ (match-beginning 0)))
diff --git a/lisp/term.el b/lisp/term.el
index d5d1173daea..47df94e9427 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2378,7 +2378,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 c5b70b24853..b6bbf4b0c6d 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -594,8 +594,8 @@ 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
-is used as a label for the menu, i.e. it's inverted and not selectable."
+  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)))
   (eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu)))
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 3ace091f018..271c2bc2cc4 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/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index 11eacce77b3..8eda09de357 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -299,7 +299,7 @@
               (reftex-parse-bibtex-entry nil start (point)))
           nil)))))
 
-;; Parse the thebibliography environment
+;; Parse the bibliography environment
 (defun reftex-extract-bib-entries-from-thebibliography (files)
   ;; Extract bib-entries from the \begin{thebibliography} environment.
   ;; Parsing is not as good as for the BibTeX database stuff.
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)