diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi index 67b5dd7..bdc6f7c 100644 --- a/doc/misc/ede.texi +++ b/doc/misc/ede.texi @@ -1968,7 +1968,7 @@ Retrieves the slot @code{sourcetype} from an object of class @code{ede-target} @deffn Method ede-expand-filename :AFTER this filename &optional force Return a fully qualified file name based on target @var{THIS}. -@var{FILENAME} should a a filename which occurs in a directory in which @var{THIS} works. +@var{FILENAME} should be a filename which occurs in a directory in which @var{THIS} works. Optional argument @var{FORCE} forces the default filename to be provided even if it doesn't exist. @end deffn diff --git a/doc/misc/org.texi b/doc/misc/org.texi index 4a02658..24288cf 100644 --- a/doc/misc/org.texi +++ b/doc/misc/org.texi @@ -6181,7 +6181,7 @@ See the variable @code{org-refile-targets} for details. If you would like to select a location via a file-path-like completion along the outline path, see the variables @code{org-refile-use-outline-path} and @code{org-outline-path-complete-in-steps}. If you would like to be able to -create new nodes as new parents for for refiling on the fly, check the +create new nodes as new parents for refiling on the fly, check the variable @code{org-refile-allow-creating-parent-nodes}. @kindex C-u C-c C-w @item C-u C-c C-w diff --git a/etc/srecode/doc-cpp.srt b/etc/srecode/doc-cpp.srt index c793344..5bf04bc 100644 --- a/etc/srecode/doc-cpp.srt +++ b/etc/srecode/doc-cpp.srt @@ -58,7 +58,7 @@ Recycle doxygen comment code from the more general template set." ---- template group-comment-end :blank :indent -"A comment occuring at the end of a a group of declarations. +"A comment occuring at the end of a group of declarations. Recycle doxygen comment code from the more general template set." ---- {{>:classdecl:doxygen-function-group-end}} @@ -75,7 +75,7 @@ Recycle doxygen comment code from the more general template set." ---- template group-comment-end :blank :indent -"A comment occuring at the end of a a group of declarations. +"A comment occuring at the end of a group of declarations. Recycle doxygen comment code from the more general template set." ---- {{>:classdecl:doxygen-function-group-end}} diff --git a/etc/srecode/doc-default.srt b/etc/srecode/doc-default.srt index 76cae31..dc62d66 100644 --- a/etc/srecode/doc-default.srt +++ b/etc/srecode/doc-default.srt @@ -57,7 +57,7 @@ template group-comment-start :blank :indent ---- template group-comment-end :indent -"A comment occuring at the end of a a group of declarations." +"A comment occuring at the end of a group of declarations." ---- {{comment_start}} End {{?GROUPNAME}} {{comment_end}} ---- @@ -72,9 +72,9 @@ template group-comment-start :blank :indent ---- template group-comment-end :indent -"A comment occuring at the end of a a group of declarations." +"A comment occuring at the end of a group of declarations." ---- {{>:declaration:group-comment-end}} ---- -;; end \ No newline at end of file +;; end diff --git a/etc/srecode/doc-java.srt b/etc/srecode/doc-java.srt index 727ff09..2f72c71 100644 --- a/etc/srecode/doc-java.srt +++ b/etc/srecode/doc-java.srt @@ -59,7 +59,7 @@ Recycle javadoc comment code from the more general template set." ---- template group-comment-end :blank :indent -"A comment occuring at the end of a a group of declarations. +"A comment occuring at the end of a group of declarations. Recycle javadoc comment code from the more general template set." ---- {{>:classdecl:javadoc-function-group-end}} @@ -76,7 +76,7 @@ Recycle javadoc comment code from the more general template set." ---- template group-comment-end :blank :indent -"A comment occuring at the end of a a group of declarations. +"A comment occuring at the end of a group of declarations. Recycle javadoc comment code from the more general template set." ---- {{>:classdecl:javadoc-function-group-end}} diff --git a/lib-src/etags.c b/lib-src/etags.c index 6fce452..d77187c 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -6297,7 +6297,7 @@ readline (lbp, stream) readline (lbp, stream); return; } /* if a real #line directive */ - } /* if #line is followed by a a number */ + } /* if #line is followed by a number */ } /* if line begins with "#line " */ /* If we are here, no #line directive was found. */ diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a752954..5e388fc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -962,7 +962,7 @@ 2009-12-01 Dan Nicolaescu Make vc-print-log buttons work. - * log-view.el (log-view-mode-map): Inherit from from widget-keymap. + * log-view.el (log-view-mode-map): Inherit from widget-keymap. 2009-11-30 Ryan C. Thompson (tiny change) diff --git a/lisp/cedet/ede/cpp-root.el b/lisp/cedet/ede/cpp-root.el index d922c55..c679458 100644 --- a/lisp/cedet/ede/cpp-root.el +++ b/lisp/cedet/ede/cpp-root.el @@ -324,7 +324,7 @@ exist, it should return nil." ) ) "EDE cpp-root project class. -Each directory needs a a project file to control it.") +Each directory needs a project file to control it.") ;;; INIT ;; diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el index cf5782c..457f675 100644 --- a/lisp/cedet/ede/files.el +++ b/lisp/cedet/ede/files.el @@ -487,7 +487,7 @@ doesn't exist." (defmethod ede-expand-filename ((this ede-target) filename &optional force) "Return a fully qualified file name based on target THIS. -FILENAME should a a filename which occurs in a directory in which THIS works. +FILENAME should be a filename which occurs in a directory in which THIS works. Optional argument FORCE forces the default filename to be provided even if it doesn't exist." (ede-expand-filename (ede-target-parent this) filename force)) diff --git a/lisp/cedet/ede/simple.el b/lisp/cedet/ede/simple.el index 91c3472..57eb9eb 100644 --- a/lisp/cedet/ede/simple.el +++ b/lisp/cedet/ede/simple.el @@ -87,7 +87,7 @@ All directories need at least one target.") (file-header-line :initform ";; EDE Simple Project") ) "EDE Simple project class. -Each directory needs a a project file to control it.") +Each directory needs a project file to control it.") (defmethod ede-commit-project ((proj ede-simple-project)) "Commit any change to PROJ to its file." diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 73875c5..f3b17c7 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -192,7 +192,7 @@ Keeps STRINGS only in the history.") default-tag initial-input history) "Read a semantic tag, and return a tag for the selection. -Argument COLLECTOR is an object which can be used to to calculate +Argument COLLECTOR is an object which can be used to calculate a list of possible hits. See `semantic-completion-collector-engine' for details on COLLECTOR. Argument DISPLAYOR is an object used to display a list of possible @@ -394,7 +394,7 @@ Return value can be: ;;; Keybindings ;; -;; Keys are bound to to perform completion using our mechanisms. +;; Keys are bound to perform completion using our mechanisms. ;; Do that work here. (defun semantic-complete-done () "Accept the current input." @@ -738,7 +738,7 @@ DO NOT CALL THIS IF THE INLINE COMPLETION ENGINE IS NOT ACTIVE." (defun semantic-complete-inline-tag-engine (collector displayor buffer start end) "Perform completion based on semantic tags in a buffer. -Argument COLLECTOR is an object which can be used to to calculate +Argument COLLECTOR is an object which can be used to calculate a list of possible hits. See `semantic-completion-collector-engine' for details on COLLECTOR. Argument DISPLAYOR is an object used to display a list of possible diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el index 4b23227..6c42e5a 100644 --- a/lisp/cedet/semantic/db-el.el +++ b/lisp/cedet/semantic/db-el.el @@ -107,7 +107,7 @@ For Emacs Lisp, creates a specialized table." (defmethod semanticdb-equivalent-mode ((table semanticdb-table-emacs-lisp) &optional buffer) "Return non-nil if TABLE's mode is equivalent to BUFFER. -Equivalent modes are specified by by `semantic-equivalent-major-modes' +Equivalent modes are specified by the `semantic-equivalent-major-modes' local variable." (with-current-buffer buffer (eq (or mode-local-active-mode major-mode) 'emacs-lisp-mode))) diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el index 71e7ecc..54654d4 100644 --- a/lisp/cedet/semantic/db-global.el +++ b/lisp/cedet/semantic/db-global.el @@ -105,7 +105,7 @@ is not available for this directory." (defmethod semanticdb-equivalent-mode ((table semanticdb-table-global) &optional buffer) "Return t, pretend that this table's mode is equivalent to BUFFER. -Equivalent modes are specified by by `semantic-equivalent-major-modes' +Equivalent modes are specified by the `semantic-equivalent-major-modes' local variable." ;; @todo - hack alert! t) diff --git a/lisp/cedet/semantic/db-javascript.el b/lisp/cedet/semantic/db-javascript.el index cfd6575..f4f57ac 100644 --- a/lisp/cedet/semantic/db-javascript.el +++ b/lisp/cedet/semantic/db-javascript.el @@ -145,7 +145,7 @@ Create one of our special tables that can act as an intermediary." (defmethod semanticdb-equivalent-mode ((table semanticdb-table-javascript) &optional buffer) "Return non-nil if TABLE's mode is equivalent to BUFFER. -Equivalent modes are specified by by `semantic-equivalent-major-modes' +Equivalent modes are specified by the `semantic-equivalent-major-modes' local variable." (with-current-buffer buffer (eq (or mode-local-active-mode major-mode) 'javascript-mode))) diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 796250c..72c1470 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -735,13 +735,13 @@ all files of any type." (defmethod semanticdb-equivalent-mode ((table semanticdb-abstract-table) &optional buffer) "Return non-nil if TABLE's mode is equivalent to BUFFER. -Equivalent modes are specified by by `semantic-equivalent-major-modes' +Equivalent modes are specified by the `semantic-equivalent-major-modes' local variable." nil) (defmethod semanticdb-equivalent-mode ((table semanticdb-table) &optional buffer) "Return non-nil if TABLE's mode is equivalent to BUFFER. -Equivalent modes are specified by by `semantic-equivalent-major-modes' +Equivalent modes are specified by the `semantic-equivalent-major-modes' local variable." (save-excursion (if buffer (set-buffer buffer)) diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el index 55efaa7..c80f75a 100644 --- a/lisp/cedet/semantic/decorate/include.el +++ b/lisp/cedet/semantic/decorate/include.el @@ -461,7 +461,7 @@ wrap existing project code for Semantic's benifit. (when (or (eq mm 'c++-mode) (eq mm 'c-mode)) (princ " -For C/C++ includes located within a a project, you can use a special +For C/C++ includes located within a project, you can use a special EDE project that will wrap an existing build system. You can do that like this in your .emacs file: diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index acb2a73..fa8829b 100644 --- a/lisp/cedet/semantic/idle.el +++ b/lisp/cedet/semantic/idle.el @@ -336,7 +336,7 @@ Disable to prevent lots of excessive parsing in idle time." (defun semantic-idle-work-for-one-buffer (buffer) - "Do long-processing work for for BUFFER. + "Do long-processing work for BUFFER. Uses `semantic-safe' and returns the output. Returns t of all processing succeeded." (with-current-buffer buffer diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el index 0f0e404..c54e0cf 100644 --- a/lisp/emacs-lisp/chart.el +++ b/lisp/emacs-lisp/chart.el @@ -323,7 +323,7 @@ MARGIN, ZONE, START, and END specify restrictions in chart space." (defmethod chart-translate-namezone ((c chart) n) "Return a dot-pair representing a positional range for a name. The name in chart C of the Nth name resides. -Automatically compensates for for direction." +Automatically compensates for direction." (let* ((dir (oref c direction)) (w (if (eq dir 'vertical) (oref c x-width) (oref c y-width))) (m (if (eq dir 'vertical) (oref c y-margin) (oref c x-margin))) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 8dd2452..25c4942 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2107,7 +2107,7 @@ created." (setq edt-term "pc") (if (or (not edt-window-system) (eq edt-window-system 'tty)) (setq edt-term (getenv "TERM")))) - ;; Look for for terminal configuration file for this terminal type. + ;; Look for a terminal configuration file for this terminal type. ;; Otherwise, load the user's custom configuration file. (if (or (not edt-window-system) (memq edt-window-system '(pc tty))) (progn diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 0f9532d..ed0e145 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -25,7 +25,7 @@ ;;; Credits: -;; This file was written by by Nick Roberts following the general design +;; This file was written by Nick Roberts following the general design ;; used in gdb-ui.el for Emacs 22.1 - 23.1. It is currently being developed ;; by Dmitry Dzhus as part of the Google Summer ;; of Code 2009 Project "Emacs GDB/MI migration". diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 03cb77b..22ded1e 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -1477,7 +1477,7 @@ Keymap summary ; (defun artist-compute-popup-menu-table (menu-table) - "Create a menu from from MENU-TABLE data. + "Create a menu from MENU-TABLE data. The returned value is suitable for the `x-popup-menu' function." (cons "Artist menu" (artist-compute-popup-menu-table-sub menu-table)))