Fix typo.

7 files changed, 11 insertions, 11 deletions

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index a3e94dc207d..87b48f088eb 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -25,7 +25,7 @@
 ;;; Acknowledgements
 
 ;; The rectangle handling and display code borrows from the standard
-;; GNU emacs rect.el package and the the rect-mark.el package by Rick
+;; GNU emacs rect.el package and the rect-mark.el package by Rick
 ;; Sladkey <jrs@world.std.com>.
 
 ;;; Commentary:
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/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index fb0be6eac99..664ff6496ad 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/12/01 12:54:29 $
+;; Date: $Date: 2002/02/16 12:50:25 $
 ;; 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 cba0b800468..412ceb06c51 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/12/31 20:42:10 $
+;; Date: $Date: 2002/02/16 12:53:42 $
 ;; 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.
@@ -3021,7 +3021,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)
@@ -3325,7 +3325,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/x-win.el b/lisp/term/x-win.el
index 4d19d33d580..3d76e00a91e 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1268,7 +1268,7 @@ as returned by (x-server-vendor)."
 ;;; current selection against it, and avoid passing back our own text
 ;;; from x-cut-buffer-or-selection-value.  We track all three
 ;;; seperately in case another X application only sets one of them
-;;; (say the the cut buffer) we aren't fooled by the PRIMARY or
+;;; (say the cut buffer) we aren't fooled by the PRIMARY or
 ;;; CLIPBOARD selection staying the same.
 (defvar x-last-selected-text-clipboard nil
   "The value of the CLIPBOARD X selection last time we selected or
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/src/process.c b/src/process.c
index 2c9ca3d9149..226e818fe7c 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3760,7 +3760,7 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 #ifdef MAC_OSX
           /* On Mac OS X, the SELECT system call always says input is
              present (for reading) at stdin, even when none is.  This
-             causes the the call to SELECT below to return 1 and
+             causes the call to SELECT below to return 1 and
              status_notify not to be called.  As a result output of
              subprocesses are incorrectly discarded.  */
           FD_CLR (0, &Atemp);