Fix typos in comments.

diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el
index 592394465aeb1f140d566f599fe225066740eb8d..1d60eb74143d486e143c9cbc0b6ef8fee83ae46f 100644 (file)
--- a/lisp/cedet/semantic/util-modes.el
+++ b/lisp/cedet/semantic/util-modes.el
@@ -1022,7 +1022,7 @@ Argument EVENT describes the event that caused this function to be called."
 ;;;;
 
 ;; Highlight the first like of the function we are in if it is different
-;; from the the tag going off the top of the screen.
+;; from the tag going off the top of the screen.
 
 ;;;###autoload
 (defun global-semantic-highlight-func-mode (&optional arg)

diff --git a/lisp/dired.el b/lisp/dired.el
index 4f0c9bc3c47607831f596443eee0bda22201e6f3..bbb71cda1a5d754aa17183c1eda6f3b42950efa3 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -937,7 +937,7 @@ BEG..END is the line where the file info is located."
   ;; spaces there (and within the filename as well, of course).
   (save-excursion
     (let (file file-col other other-col)
-      ;; Check the there is indeed a file, and that there is anoter adjacent
+      ;; Check that there is indeed a file, and that there is anoter adjacent
       ;; file with which to align, and that additional spaces are needed to
       ;; align the filenames.
       (when (and (setq file (progn (goto-char beg)

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index f9d3c85125a50a6020d004df9af3d6dc89c5b6f0..dd8b86346315c4000bd171e9d634d3294ea05daa 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -292,7 +292,7 @@
 ;;     or a string FONT-NAME,
 ;;     or an object created by `font-spec'.
 ;;
-;; FAMILY may be nil, in which case, the the corresponding name of
+;; FAMILY may be nil, in which case, the corresponding name of
 ;; default face is used.  If REGISTRY contains a character `-', the
 ;; string before that is embedded in `CHARSET_REGISTRY' field, and the
 ;; string after that is embedded in `CHARSET_ENCODING' field.  If it

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 8c8934874ff316736eb5ac9c9bbf313b8f2e3461..b9ae96f4ff0315cec4cdfe2c69c22b5ed0a53389 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -854,7 +854,7 @@ and TO is ignored."
   (let ((no-other-defaults nil)
        auto-cs)
     (unless (or (stringp from) find-file-literally)
-      ;; Find an auto-coding that is specified for the the current
+      ;; Find an auto-coding that is specified for the current
       ;; buffer and file from the region FROM and TO.
       (save-excursion
        (save-restriction

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index 7a263bc8123690ced955d863d2744967cd621a84..d005d00288f8b0cd5e0c4739fa7e8fec996ffad3 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -282,7 +282,7 @@ and displayed in a help buffer."
   "Display cheat sheet for the commands of the current prefix in minibuffer."
   (interactive)
   ;; We got here because the user pressed a "?", but he pressed a prefix key
-  ;; before that. Since the the key vector starts at index 0, the index of the
+  ;; before that. Since the key vector starts at index 0, the index of the
   ;; last keystroke is length-1 and thus the second to last keystroke is at
   ;; length-2. We use that information to obtain a suitable prefix character
   ;; from the recent keys.

diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 0b631d47d777e913a29605a90ce42f109a17a675..2c71b360748179a0aa3290dd6517dbc5373f0659 100644 (file)
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -4382,7 +4382,7 @@ comment at the start of cc-engine.el for more info."
 
 (defun c-forward-<>-arglist (all-types)
   ;; The point is assumed to be at a "<".  Try to treat it as the open
-  ;; paren of an angle bracket arglist and move forward to the the
+  ;; paren of an angle bracket arglist and move forward to the
   ;; corresponding ">".  If successful, the point is left after the
   ;; ">" and t is returned, otherwise the point isn't moved and nil is
   ;; returned.  If ALL-TYPES is t then all encountered arguments in

diff --git a/lisp/progmodes/idlw-complete-structtag.el b/lisp/progmodes/idlw-complete-structtag.el
index 7fdacbed8c15de2ad83dfe71be67d5df2928a693..613baed6bb10c4a2652a37e65622ceb2e4767083 100644 (file)
--- a/lisp/progmodes/idlw-complete-structtag.el
+++ b/lisp/progmodes/idlw-complete-structtag.el
@@ -79,7 +79,7 @@
 ;; Notes
 ;; -----
 ;;  - The structure definition assignment "state = {...}" must use the
-;;    same variable name as the the completion location "state.*".
+;;    same variable name as the completion location "state.*".
 ;;  - The structure definition must be in the same file.
 ;;  - The structure definition is searched backwards and then forward
 ;;    from the current position, until a definition with tags is found.

diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el
index 0e72d4c233a57a635ab2087441f8a7676bcc64bd..95efbc513f00bbff8fdda1f266f5dc2ebae3d1ab 100644 (file)
--- a/lisp/smerge-mode.el
+++ b/lisp/smerge-mode.el
@@ -705,7 +705,7 @@ An error is raised if not inside a conflict."
           ((save-excursion
              (goto-char mine-start)
              (re-search-forward smerge-begin-re end t))
-           ;; There's a nested conflict and we're after the the beginning
+           ;; There's a nested conflict and we're after the beginning
            ;; of the outer one but before the beginning of the inner one.
            ;; Of course, maybe this is not a nested conflict but in that
            ;; case it can only be something nastier that we don't know how

diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index f0c8645a9742d7fe001be8e031e57def00dba1fb..a8a3d13b66d86a2e09b7bb43361035c8bee54505 100644 (file)
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -4968,7 +4968,7 @@ only and must not be specified."
           (px (or internal-px (car (if (eq pivot 'left) lu-coordinate rb-coordinate))))
           (ty (- (cdr lu-coordinate) 2))
           (by (+ (cdr rb-coordinate) 2)))
-      ;; in case of finding the the first cell, get the last adding item on the list
+      ;; in case of finding the first cell, get the last adding item on the list
       (if (and (null internal-dir) first-only) (setq top-to-bottom (null top-to-bottom)))
       ;; travel up and process as recursion traces back (reverse order)
       (and cell
@@ -5008,7 +5008,7 @@ only and must not be specified."
           (py (or internal-py (if (eq pivot 'top) (cdr lu-coordinate) (1+ (cdr rb-coordinate)))))
           (lx (1- (car lu-coordinate)))
           (rx (1+ (car rb-coordinate))))
-      ;; in case of finding the the first cell, get the last adding item on the list
+      ;; in case of finding the first cell, get the last adding item on the list
       (if (and (null internal-dir) first-only) (setq left-to-right (null left-to-right)))
       ;; travel left and process as recursion traces back (reverse order)
       (and cell

diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index f78ca1806c029a4fbba4b16818ff1b0c0790c4e6..66858beddda14a68fc538ea92e538298bead859a 100644 (file)
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -321,7 +321,7 @@ If BODY uses EVENT, it should be a variable,
 
 (defun vc-dir-node-directory (node)
   ;; Compute the directory for NODE.
-  ;; If it's a directory node, get it from the the node.
+  ;; If it's a directory node, get it from the node.
   (let ((data (ewoc-data node)))
     (or (vc-dir-fileinfo->directory data)
        ;; Otherwise compute it from the file name.