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>
;;; 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)
(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)
(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
(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")
(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)
\f
"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
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))
(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)
(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)))
(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))))
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")))
;;;###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))))
projects / emacs.git / commitdiff