* files-x.el (modify-dir-local-variable)

(copy-dir-locals-to-file-locals-prop-line):
* cedet/ede/makefile-edit.el (makefile-beginning-of-command)
  (makefile-end-of-command):
* cedet/semantic/lex.el (semantic-lex-token):
* cedet/semantic/analyze/fcn.el
  (semantic-analyze-dereference-metatype-1):
* cedet/semantic/bovine/c.el (semantic-lex-cpp-define)
  (semantic-lex-cpp-undef):
* cedet/semantic/wisent/wisent.el (wisent-skip-block):
* cedet/srecode/srt-mode.el (semantic-beginning-of-context)
  (semantic-end-of-context): Fix typos in docstrings.

lisp/ChangeLog

@@ -1,13 +1,26 @@
 2009-10-04  Juanma Barranquero  <lekktu@gmail.com>
 
+	* files-x.el (modify-dir-local-variable)
+	(copy-dir-locals-to-file-locals-prop-line):
+	* cedet/ede/makefile-edit.el (makefile-beginning-of-command)
+	(makefile-end-of-command):
+	* cedet/semantic/lex.el (semantic-lex-token):
+	* cedet/semantic/analyze/fcn.el
+	(semantic-analyze-dereference-metatype-1):
+	* cedet/semantic/bovine/c.el (semantic-lex-cpp-define)
+	(semantic-lex-cpp-undef):
+	* cedet/semantic/wisent/wisent.el (wisent-skip-block):
+	* cedet/srecode/srt-mode.el (semantic-beginning-of-context)
+	(semantic-end-of-context): Fix typos in docstrings.
+
 	* recentf.el (recentf-unload-function): New function.
 
 2009-10-04  Chong Yidong  <cyd@stupidchicken.com>
 
+	* cedet/ede.el (ede-project-placeholder-cache-file):
 	* cedet/semantic/db-file.el (semanticdb-default-save-directory):
 	* cedet/srecode/map.el (srecode-map-save-file):
-	* cedet/ede.el (ede-project-placeholder-cache-file): Use
-	locate-user-emacs-file.  Suggested by Juanma Barranquero.
+	Use locate-user-emacs-file.  Suggested by Juanma Barranquero.
 
 2009-10-04  Glenn Morris  <rgm@gnu.org>
 

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)

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

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)
 
 

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

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))

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))))

lisp/files-x.el

@@ -354,7 +354,7 @@ If .dir-locals.el was not found and OP is not `delete' then create
 this file in the current directory.
 
 If OP is `delete' then delete all existing settings of VARIABLE
-from the the MODE alist ignoring the input argument VALUE."
+from the MODE alist ignoring the input argument VALUE."
   (catch 'exit
     (unless enable-local-variables
       (throw 'exit (message "Directory-local variables are disabled")))
@@ -450,7 +450,7 @@ from the the MODE alist ignoring the input argument VALUE."
 
 ;;;###autoload
 (defun copy-dir-locals-to-file-locals-prop-line ()
-  "Copy directory-local variables to the the -*- line."
+  "Copy directory-local variables to the -*- line."
   (interactive)
   (dolist (elt dir-local-variables-alist)
     (add-file-local-variable-prop-line (car elt) (cdr elt))))