6 files changed, 13 insertions, 13 deletions
diff --git a/lisp/cedet/ede/makefile-edit.el b/lisp/cedet/ede/makefile-edit.el
index c255966d5c3..542ea703946 100644
--- a/lisp/cedet/ede/makefile-edit.el
+++ b/lisp/cedet/ede/makefile-edit.el
@@ -42,7 +42,7 @@
 ;;; Code:
 
 (defun makefile-beginning-of-command ()
-  "Move the the beginning of the current command."
+  "Move the beginning of the current command."
   (interactive)
   (if (save-excursion
 	(forward-line -1)
@@ -57,7 +57,7 @@
     (forward-line 1)))
 
 (defun makefile-end-of-command ()
-  "Move the the beginning of the current command."
+  "Move the beginning of the current command."
   (interactive)
   (end-of-line)
   (while (and (makefile-line-continued-p)
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el
index d0d5fc78b43..83ffdb4b10f 100644
--- a/lisp/cedet/semantic/analyze/fcn.el
+++ b/lisp/cedet/semantic/analyze/fcn.el
@@ -288,7 +288,7 @@ Optional argument TYPE-DECLARATION is how TYPE was found referenced."
 
 (defun semantic-analyze-dereference-metatype-1 (ans scope)
   "Do extra work after dereferencing a metatype.
-ANS is the answer from the the language specific query.
+ANS is the answer from the language specific query.
 SCOPE is the current scope."
   (require 'semantic/scope)
   ;; If ANS is a string, or if ANS is a short tag, we
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 113f49a9c6a..8a773583aee 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -228,7 +228,7 @@ if `semantic-c-member-of-autocast' is nil :
 (define-lex-spp-macro-declaration-analyzer semantic-lex-cpp-define
   "A #define of a symbol with some value.
 Record the symbol in the semantic preprocessor.
-Return the the defined symbol as a special spp lex token."
+Return the defined symbol as a special spp lex token."
   "^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1
   (goto-char (match-end 0))
   (skip-chars-forward " \t")
@@ -264,7 +264,7 @@ Return the the defined symbol as a special spp lex token."
 (define-lex-spp-macro-undeclaration-analyzer semantic-lex-cpp-undef
   "A #undef of a symbol.
 Remove the symbol from the semantic preprocessor.
-Return the the defined symbol as a special spp lex token."
+Return the defined symbol as a special spp lex token."
   "^\\s-*#\\s-*undef\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1)
 
 
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el
index 43a8a6d6819..03545ff1327 100644
--- a/lisp/cedet/semantic/lex.el
+++ b/lisp/cedet/semantic/lex.el
@@ -897,8 +897,8 @@ The collapsed tokens are saved in `semantic-lex-block-streams'."
   "Create a lexical token.
 SYMBOL is a symbol representing the class of syntax found.
 START and END define the bounds of the token in the current buffer.
-Optional STR is the string for the token only if the the bounds
-in the buffer do not cover the string they represent.  (As from
+Optional STR is the string for the token only if the bounds in
+the buffer do not cover the string they represent.  (As from
 macro expansion.)"
   ;; This if statement checks the existance of a STR argument at
   ;; compile time, where STR is some symbol or constant.  If the
diff --git a/lisp/cedet/semantic/wisent/wisent.el b/lisp/cedet/semantic/wisent/wisent.el
index febe1aa783c..0ca3e11ccaf 100644
--- a/lisp/cedet/semantic/wisent/wisent.el
+++ b/lisp/cedet/semantic/wisent/wisent.el
@@ -268,9 +268,9 @@ Return nil.
 Must be used in error recovery semantic actions.
 Optional argument BOUNDS is a pair (START . END) which indicates where
 the parenthesized block starts.  Typically the value of a `$regionN'
-variable, where `N' is the the Nth element of the current rule
-components that match the block beginning.  It defaults to the value
-of the `$region' variable."
+variable, where `N' is the Nth element of the current rule components
+that match the block beginning.  It defaults to the value of the
+`$region' variable."
   (let ((start (car (or bounds $region)))
         end input)
     (if (not (number-or-marker-p start))
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index e10c163b8db..49d77a35ddd 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -320,7 +320,7 @@ how many occur."
 	    (beginning-of-line)
 	    (while (re-search-forward es start t 2))
 	    (if (re-search-forward es start t)
-		;; If there is a single, the the answer is yes.
+		;; If there is a single, the answer is yes.
 		t
 	      ;; If there wasn't another, then the answer is no.
 	      nil)
@@ -375,7 +375,7 @@ Moves out one named section."
 (define-mode-local-override semantic-beginning-of-context
   srecode-template-mode (&optional point)
   "Move to the beginning of the current context.
-Moves the the beginning of one named section."
+Moves the beginning of one named section."
   (if (semantic-up-context point)
       t
     (let ((es (regexp-quote (srecode-template-get-escape-start)))
@@ -387,7 +387,7 @@ Moves the the beginning of one named section."
 (define-mode-local-override semantic-end-of-context
   srecode-template-mode (&optional point)
   "Move to the beginning of the current context.
-Moves the the beginning of one named section."
+Moves the beginning of one named section."
   (let ((name (srecode-up-context-get-name point))
 	(tag (semantic-current-tag))
 	(es  (regexp-quote (srecode-template-get-escape-start))))