# HG changeset patch # User Juanma Barranquero # Date 1254620679 0 # Node ID 309bc750556d8861cef6204b9aa9f43538dfb634 # Parent cb1ae417fcc73cc82bc9b262865ce117a4b122ab * 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. diff -r cb1ae417fcc7 -r 309bc750556d lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/ChangeLog Sun Oct 04 01:44:39 2009 +0000 @@ -1,13 +1,26 @@ 2009-10-04 Juanma Barranquero + * 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 + * 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 diff -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/ede/makefile-edit.el --- a/lisp/cedet/ede/makefile-edit.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/ede/makefile-edit.el Sun Oct 04 01:44:39 2009 +0000 @@ -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 -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/semantic/analyze/fcn.el --- a/lisp/cedet/semantic/analyze/fcn.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/semantic/analyze/fcn.el Sun Oct 04 01:44:39 2009 +0000 @@ -288,7 +288,7 @@ (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 -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/semantic/bovine/c.el --- a/lisp/cedet/semantic/bovine/c.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/semantic/bovine/c.el Sun Oct 04 01:44:39 2009 +0000 @@ -228,7 +228,7 @@ (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 @@ (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 -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/semantic/lex.el --- a/lisp/cedet/semantic/lex.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/semantic/lex.el Sun Oct 04 01:44:39 2009 +0000 @@ -897,8 +897,8 @@ "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 -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/semantic/wisent/wisent.el --- a/lisp/cedet/semantic/wisent/wisent.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/semantic/wisent/wisent.el Sun Oct 04 01:44:39 2009 +0000 @@ -268,9 +268,9 @@ 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 -r cb1ae417fcc7 -r 309bc750556d lisp/cedet/srecode/srt-mode.el --- a/lisp/cedet/srecode/srt-mode.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/cedet/srecode/srt-mode.el Sun Oct 04 01:44:39 2009 +0000 @@ -320,7 +320,7 @@ (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 @@ (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 @@ (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)))) diff -r cb1ae417fcc7 -r 309bc750556d lisp/files-x.el --- a/lisp/files-x.el Sun Oct 04 01:36:07 2009 +0000 +++ b/lisp/files-x.el Sun Oct 04 01:44:39 2009 +0000 @@ -354,7 +354,7 @@ 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 @@ ;;;###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))))