summaryrefslogtreecommitdiff
path: root/lisp/cedet
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cedet')
-rw-r--r--lisp/cedet/ChangeLog24
-rw-r--r--lisp/cedet/cedet-cscope.el4
-rw-r--r--lisp/cedet/cedet-files.el2
-rw-r--r--lisp/cedet/cedet-global.el6
-rw-r--r--lisp/cedet/cedet-idutils.el8
-rw-r--r--lisp/cedet/cedet.el4
-rw-r--r--lisp/cedet/data-debug.el4
-rw-r--r--lisp/cedet/ede.el20
-rw-r--r--lisp/cedet/ede/proj-comp.el4
-rw-r--r--lisp/cedet/inversion.el6
-rw-r--r--lisp/cedet/mode-local.el10
-rw-r--r--lisp/cedet/pulse.el6
-rw-r--r--lisp/cedet/semantic.el10
-rw-r--r--lisp/cedet/semantic/bovine/c.el2
-rw-r--r--lisp/cedet/semantic/bovine/debug.el2
-rw-r--r--lisp/cedet/semantic/db-typecache.el2
-rw-r--r--lisp/cedet/semantic/debug.el8
-rw-r--r--lisp/cedet/semantic/edit.el2
-rw-r--r--lisp/cedet/semantic/idle.el6
-rw-r--r--lisp/cedet/semantic/symref/list.el4
-rw-r--r--lisp/cedet/srecode/dictionary.el2
21 files changed, 80 insertions, 56 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index e5969a3c291..788bf71845f 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,27 @@
+2011-11-20 Juanma Barranquero <lekktu@gmail.com>
+
+ * cedet-cscope.el (cedet-cscope-version-check):
+ * cedet-global.el (cedet-global-min-version)
+ (cedet-gnu-global-version-check):
+ * cedet.el (cedet-version):
+ * data-debug.el (data-debug-prev, data-debug-contract-current-line):
+ * ede.el (ede-buffer-belongs-to-project-p, ede-auto-add-to-target)
+ (ede-new, ede-invoke-method, project-edit-file-target, project-rescan)
+ (ede-add-project-to-global-list, ede-map-all-subprojects):
+ * inversion.el (inversion-check-version):
+ * mode-local.el (mode-local-map-file-buffers, define-child-mode)
+ (define-overloadable-function):
+ * pulse.el (pulse-flag, pulse):
+ * semantic.el (semantic-elapsed-time, semantic-parse-region)
+ (navigate-menu):
+ * ede/proj-comp.el (ede-compilation-program):
+ * semantic/debug.el (semantic-debug-parser-go)
+ (semantic-debug-parser-fail, semantic-debug-parser-quit)
+ (semantic-debug-parser-abort):
+ * semantic/idle.el (semantic-idle-core-handler):
+ * semantic/bovine/debug.el (semantic-bovine-debug-error-frame):
+ Fix typos.
+
2011-11-16 Juanma Barranquero <lekktu@gmail.com>
* semantic/lex.el (semantic-lex-tokens):
diff --git a/lisp/cedet/cedet-cscope.el b/lisp/cedet/cedet-cscope.el
index 74892533ab6..71942698c5f 100644
--- a/lisp/cedet/cedet-cscope.el
+++ b/lisp/cedet/cedet-cscope.el
@@ -135,8 +135,8 @@ the error code."
(defun cedet-cscope-version-check (&optional noerror)
"Check the version of the installed CScope command.
-If optional programatic argument NOERROR is non-nil, then
-instead of throwing an error if CScope isn't available, then
+If optional programmatic argument NOERROR is non-nil,
+then instead of throwing an error if CScope isn't available,
return nil."
(interactive)
(require 'inversion)
diff --git a/lisp/cedet/cedet-files.el b/lisp/cedet/cedet-files.el
index ae037028bf7..6f40ee7030f 100644
--- a/lisp/cedet/cedet-files.el
+++ b/lisp/cedet/cedet-files.el
@@ -83,7 +83,7 @@ specific conversions during tests."
(setq file (concat driveletter ":"
(substring file (match-end 1))))))
- ;; Handle the \\file\name nomenclature on some windows boxes.
+ ;; Handle the \\file\name nomenclature on some Windows boxes.
(when (string-match "^!" file)
(setq file (concat "//" (substring file 1)))))
file))
diff --git a/lisp/cedet/cedet-global.el b/lisp/cedet/cedet-global.el
index d2a9794ec81..aa18c0d2f42 100644
--- a/lisp/cedet/cedet-global.el
+++ b/lisp/cedet/cedet-global.el
@@ -27,7 +27,7 @@
(declare-function inversion-check-version "inversion")
(defvar cedet-global-min-version "5.0"
- "Minimum version of GNU global required.")
+ "Minimum version of GNU Global required.")
(defcustom cedet-global-command "global"
"Command name for the GNU Global executable."
@@ -131,8 +131,8 @@ If a default starting DIR is not specified, the current buffer's
(defun cedet-gnu-global-version-check (&optional noerror)
"Check the version of the installed GNU Global command.
-If optional programatic argument NOERROR is non-nil, then
-instead of throwing an error if Global isn't available, then
+If optional programmatic argument NOERROR is non-nil,
+then instead of throwing an error if Global isn't available,
return nil."
(interactive)
(require 'inversion)
diff --git a/lisp/cedet/cedet-idutils.el b/lisp/cedet/cedet-idutils.el
index e071265c143..ee8e432ddd9 100644
--- a/lisp/cedet/cedet-idutils.el
+++ b/lisp/cedet/cedet-idutils.el
@@ -84,7 +84,7 @@ Note: Scope is not yet supported."
(defun cedet-idutils-fnid-call (flags)
"Call ID Utils fnid with the list of FLAGS.
-Return the created buffer with with program output."
+Return the created buffer with program output."
(let ((b (get-buffer-create "*CEDET fnid*"))
(cd default-directory)
)
@@ -112,7 +112,7 @@ Return the created buffer with with program output."
(defun cedet-idutils-mkid-call (flags)
"Call ID Utils mkid with the list of FLAGS.
-Return the created buffer with with program output."
+Return the created buffer with program output."
(let ((b (get-buffer-create "*CEDET mkid*"))
(cd default-directory)
)
@@ -163,8 +163,8 @@ the error code."
(defun cedet-idutils-version-check (&optional noerror)
"Check the version of the installed ID Utils command.
-If optional programatic argument NOERROR is non-nil, then
-instead of throwing an error if Global isn't available, then
+If optional programmatic argument NOERROR is non-nil,
+then instead of throwing an error if Global isn't available,
return nil."
(interactive)
(require 'inversion)
diff --git a/lisp/cedet/cedet.el b/lisp/cedet/cedet.el
index d7645bc97ed..9ccf74de27a 100644
--- a/lisp/cedet/cedet.el
+++ b/lisp/cedet/cedet.el
@@ -75,7 +75,7 @@
This is used by `semantic-mode' and `global-ede-mode'.")
(defun cedet-version ()
- "Display all active versions of CEDET and Dependent packages.
+ "Display all active versions of CEDET and dependent packages.
The PACKAGE column is the name of a given package from CEDET.
@@ -85,7 +85,7 @@ See `cedet-packages' for details.
FILE VERSION is the version number found in the source file
for the specified PACKAGE.
-LOADED VERSION is the version of PACKAGE current loaded in Emacs
+LOADED VERSION is the version of PACKAGE currently loaded in Emacs
memory and (presumably) running in this Emacs instance. Value is X
if the package has not been loaded."
(interactive)
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el
index e50e9993af0..329d1c608c2 100644
--- a/lisp/cedet/data-debug.el
+++ b/lisp/cedet/data-debug.el
@@ -916,7 +916,7 @@ If PARENT is non-nil, it is somehow related as a parent to thing."
(skip-chars-forward " *-><[]" (point-at-eol)))
(defun data-debug-prev ()
- "Go to the next line in the Ddebug buffer."
+ "Go to the previous line in the Ddebug buffer."
(interactive)
(forward-line -1)
(beginning-of-line)
@@ -972,7 +972,7 @@ Do nothing if already expanded."
(defun data-debug-contract-current-line ()
"Contract the current line (if possible).
-Do nothing if already expanded."
+Do nothing if already contracted."
(when (and (data-debug-current-line-expanded-p)
;; Don't contract if the current line is not expandable.
(get-text-property (point) 'ddebug-function))
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el
index 987351a25e0..741e1ffbe5f 100644
--- a/lisp/cedet/ede.el
+++ b/lisp/cedet/ede.el
@@ -214,7 +214,7 @@ Argument LIST-O-O is the list of objects to choose from."
(and obj (obj-of-class-p obj ede-target))))
(defun ede-buffer-belongs-to-project-p ()
- "Return non-nil if this buffer belongs to at least one target."
+ "Return non-nil if this buffer belongs to at least one project."
(if (or (null ede-object) (consp ede-object)) nil
(obj-of-class-p ede-object ede-project)))
@@ -243,7 +243,7 @@ Argument MENU-DEF is the menu definition to use."
ede-obj (if (listp ede-object) ede-object (list ede-object)))
;; First, collect the build items from the project
(setq newmenu (append newmenu (ede-menu-items-build obj t)))
- ;; Second, Declare the current target menu items
+ ;; Second, declare the current target menu items
(if (and ede-obj (ede-menu-obj-of-class-p ede-target))
(while ede-obj
(setq newmenu (append newmenu
@@ -264,7 +264,7 @@ Argument MENU-DEF is the menu definition to use."
(setq targets (cdr targets)))
;; Fourth, build sub projects.
;; -- nerp
- ;; Fifth, Add make distribution
+ ;; Fifth, add make distribution
(append newmenu (list [ "Make distribution" ede-make-dist t ]))
)))))
@@ -512,7 +512,7 @@ an EDE controlled project."
"Look for a target that wants to own the current file.
Follow the preference set with `ede-auto-add-method' and get the list
of objects with the `ede-want-file-p' method."
- (if ede-object (error "Ede-object already defined for %s" (buffer-name)))
+ (if ede-object (error "ede-object already defined for %s" (buffer-name)))
(if (or (eq ede-auto-add-method 'never)
(ede-ignore-file (buffer-file-name)))
nil
@@ -566,7 +566,7 @@ Argument FILE is the file or directory to load a project from."
(ede-load-project-file (file-name-directory file))))
(defun ede-new (type &optional name)
- "Create a new project starting of project type TYPE.
+ "Create a new project starting from project type TYPE.
Optional argument NAME is the name to give this project."
(interactive
(list (completing-read "Project Type: "
@@ -642,7 +642,7 @@ Optional argument NAME is the name to give this project."
(defun ede-invoke-method (sym &rest args)
"Invoke method SYM on the current buffer's project object.
-ARGS are additional arguments to pass to method sym."
+ARGS are additional arguments to pass to method SYM."
(if (not ede-object)
(error "Cannot invoke %s for %s" (symbol-name sym)
(buffer-name)))
@@ -815,7 +815,7 @@ Argument FNND is an argument."
(error "remove-file not supported by %s" (object-name ot)))
(defmethod project-edit-file-target ((ot ede-target))
- "Edit the target OT associated w/ this file."
+ "Edit the target OT associated with this file."
(find-file (oref (ede-current-project) file)))
(defmethod project-new-target ((proj ede-project) &rest args)
@@ -857,7 +857,7 @@ Argument COMMAND is the command to use for compiling the target."
(error "Dist-files is not supported by %s" (object-name this)))
(defmethod project-rescan ((this ede-project))
- "Rescan the EDE proj project THIS."
+ "Rescan the EDE project THIS."
(error "Rescanning a project is not supported by %s" (object-name this)))
(defun ede-ecb-project-paths ()
@@ -879,7 +879,7 @@ On success, return the added project."
(when (not proj)
(error "No project created to add to master list"))
(when (not (eieio-object-p proj))
- (error "Attempt to add Non-object to master project list"))
+ (error "Attempt to add non-object to master project list"))
(when (not (obj-of-class-p proj ede-project-placeholder))
(error "Attempt to add a non-project to the ede projects list"))
(add-to-list 'ede-projects proj)
@@ -1157,7 +1157,7 @@ See also `ede-map-all-subprojects'."
(mapcar proc (oref this subproj)))
(defmethod ede-map-all-subprojects ((this ede-project) allproc)
- "For object THIS, execute PROC on THIS and all subprojects.
+ "For object THIS, execute PROC on THIS and all subprojects.
This function also applies PROC to sub-sub projects.
See also `ede-map-subprojects'."
(apply 'append
diff --git a/lisp/cedet/ede/proj-comp.el b/lisp/cedet/ede/proj-comp.el
index ae5796e042b..84bf8ebf1a0 100644
--- a/lisp/cedet/ede/proj-comp.el
+++ b/lisp/cedet/ede/proj-comp.el
@@ -97,8 +97,8 @@ use the same autoconf form.")
(objectextention :initarg :objectextention
:type string
:documentation
- "A string which is the extention used for object files.
-For example, C code uses .o on unix, and Emacs Lisp uses .elc.")
+ "A string which is the extension used for object files.
+For example, C code uses .o on Unix, and Emacs Lisp uses .elc.")
)
"A program used to compile or link a program via a Makefile.
Contains everything needed to output code into a Makefile, or autoconf
diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el
index 065ac6d0559..53639b19a96 100644
--- a/lisp/cedet/inversion.el
+++ b/lisp/cedet/inversion.el
@@ -216,14 +216,14 @@ not an indication of new features or bug fixes."
)))
(defun inversion-check-version (version incompatible-version
- minimum &rest reserved)
+ minimum &rest reserved)
"Check that a given version meets the minimum requirement.
VERSION, INCOMPATIBLE-VERSION and MINIMUM are of similar format to
return entries of `inversion-decode-version', or a classic version
string. INCOMPATIBLE-VERSION can be nil.
RESERVED arguments are kept for a later use.
Return:
-- nil if everything is ok
+- nil if everything is ok.
- 'outdated if VERSION is less than MINIMUM.
- 'incompatible if VERSION is not backward compatible with MINIMUM.
- t if the check failed."
@@ -374,7 +374,7 @@ Return nil when VERSION-STRING was not found."
(with-temp-buffer
;; The 3000 is a bit arbitrary, but should cut down on
;; fileio as version info usually is at the very top
- ;; of a file. AFter a long commentary could be bad.
+ ;; of a file. After a long commentary could be bad.
(insert-file-contents-literally file nil 0 3000)
(goto-char (point-min))
(when (re-search-forward (format tag package 'version) nil t)
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index 0e7657642c2..511a3cd1d8b 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -36,7 +36,7 @@
;;
;; You should use a mode-local variable or override to allow extension
;; only if you expect a mode author to provide that extension. If a
-;; user might wish to customize a give variable or function then
+;; user might wish to customize a given variable or function then
;; the existing customization mechanism should be used.
;; To Do:
@@ -55,7 +55,7 @@
FUNCTION does not have arguments; when it is entered `current-buffer'
is the currently selected file buffer.
If optional argument PREDICATE is non nil, only select file buffers
-for which the function PREDICATE return non-nil.
+for which the function PREDICATE returns non-nil.
If optional argument BUFFERS is non-nil, it is a list of buffers to
walk through. It defaults to `buffer-list'."
(dolist (b (or buffers (buffer-list)))
@@ -146,7 +146,7 @@ local variables have been defined."
(mode-local-map-mode-buffers #'activate-mode-local-bindings mode))
(defmacro define-child-mode (mode parent &optional docstring)
- "Make major mode MODE inherits behavior from PARENT mode.
+ "Make major mode MODE inherit behavior from PARENT mode.
DOCSTRING is optional and not used.
To work properly, this should be put after PARENT mode local variables
definition."
@@ -523,11 +523,11 @@ See also the function `define-overload'."
result)))
(defmacro define-overloadable-function (name args docstring &rest body)
- "Define a new function, as with `defun' which can be overloaded.
+ "Define a new function, as with `defun', which can be overloaded.
NAME is the name of the function to create.
ARGS are the arguments to the function.
DOCSTRING is a documentation string to describe the function. The
-docstring will automatically had details about its overload symbol
+docstring will automatically have details about its overload symbol
appended to the end.
BODY is code that would be run when there is no override defined. The
default is to call the function `NAME-default' with the appropriate
diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el
index e3d2bd967b6..4929feb0302 100644
--- a/lisp/cedet/pulse.el
+++ b/lisp/cedet/pulse.el
@@ -36,7 +36,7 @@
;;
;; `pulse-momentary-highlight-one-line' - Pulse a single line at POINT.
;; `pulse-momentary-highlight-region' - Pulse a region.
-;; `pulse-momentary-highlight-overlay' - Pulse an overlay
+;; `pulse-momentary-highlight-overlay' - Pulse an overlay.
;; These three functions will just blink the specified area if
;; the version of Emacs you are using doesn't support pulsing.
;;
@@ -65,7 +65,7 @@ background color.
If the value is nil, highlight with an unchanging color until a
key is pressed.
If the value is `never', do no coloring at all.
-Any other value means to the default pulsing behavior.
+Any other value means to do the default pulsing behavior.
If `pulse-flag' is non-nil, but `pulse-available-p' is nil, then
this flag is ignored."
@@ -163,7 +163,7 @@ Return t if there is more drift to do, nil if completed."
(defun pulse (&optional face)
"Pulse the colors on our highlight face.
-If optional FACE is provide, reset the face to FACE color,
+If optional FACE is provided, reset the face to FACE color,
instead of `pulse-highlight-start-face'.
Be sure to call `pulse-reset-face' after calling pulse."
(unwind-protect
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 639b46ad2cf..3ffb6baee9f 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -344,7 +344,7 @@ to use Semantic, and `semantic-init-hook' is run."
;; don't go along for the ride.
(add-hook 'clone-indirect-buffer-hook 'semantic-clear-toplevel-cache
nil t)
- ;; Specify that this function has done it's work. At this point
+ ;; Specify that this function has done its work. At this point
;; we can consider that semantic is active in this buffer.
(setq semantic-new-buffer-fcn-was-run t)
;; Here are some buffer local variables we can initialize ourselves
@@ -378,7 +378,7 @@ Do not set this yourself. Call `semantic-debug'.")
(defun semantic-elapsed-time (start end)
"Copied from elp.el. Was `elp-elapsed-time'.
-Argument START and END bound the time being calculated."
+Arguments START and END bound the time being calculated."
(float-time (time-subtract end start)))
(defun bovinate (&optional clear)
@@ -431,7 +431,7 @@ will be silently ignored.
Optional arguments:
NONTERMINAL is the rule to start parsing at.
-DEPTH specifies the lexical depth to descend for parser that use
+DEPTH specifies the lexical depth to descend for parsers that use
lexical analysis as their first step.
RETURNONERROR specifies that parsing should stop on the first
unmatched syntax encountered. When nil, parsing skips the syntax,
@@ -960,7 +960,7 @@ Throw away all the old tags, and recreate the tag database."
'("--"))
(define-key navigate-menu [senator-go-to-up-reference]
'(menu-item "Parent Tag" senator-go-to-up-reference
- :help "Navigate up one reference by tag."))
+ :help "Navigate up one reference by tag"))
(define-key navigate-menu [senator-next-tag]
'(menu-item "Next Tag" senator-next-tag
:help "Go to the next tag"))
@@ -971,7 +971,7 @@ Throw away all the old tags, and recreate the tag database."
;; Top level menu items:
(define-key cedet-menu-map [semantic-force-refresh]
'(menu-item "Reparse Buffer" semantic-force-refresh
- :help "Force a full reparse of the current buffer."
+ :help "Force a full reparse of the current buffer"
:visible semantic-mode))
(define-key cedet-menu-map [semantic-edit-menu]
`(menu-item "Edit Tags" ,edit-menu
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 9a862c64d10..7de0011ce92 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -1591,7 +1591,7 @@ DO NOT return the list of tags encompassing point."
(setq tagreturn (cons (semantic-tag-type (car (semanticdb-find-result-nth tmp idx))) tagreturn))
(setq idx (1+ idx)))
)
- ;; Use the encompased types around point to also look for using statements.
+ ;; Use the encompassed types around point to also look for using statements.
;;(setq tagreturn (cons "bread_name" tagreturn))
(while (cdr tagsaroundpoint) ; don't search the last one
(setq tmp (semantic-find-tags-by-class 'using (semantic-tag-components (car tagsaroundpoint))))
diff --git a/lisp/cedet/semantic/bovine/debug.el b/lisp/cedet/semantic/bovine/debug.el
index 9ca7409e335..684db1e7bbf 100644
--- a/lisp/cedet/semantic/bovine/debug.el
+++ b/lisp/cedet/semantic/bovine/debug.el
@@ -114,7 +114,7 @@ LEXTOKEN, is a token returned by the lexer which is being matched."
:documentation
"An error condition caught in an action.")
)
- "Debugger frame representaion of a lisp error thrown during parsing.")
+ "Debugger frame representation of a lisp error thrown during parsing.")
(defun semantic-create-bovine-debug-error-frame (condition)
"Create an error frame for bovine debugger.
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index a4c4bd99f26..7d23ad17009 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -368,7 +368,7 @@ a master list."
(semanticdb-typecache-merge-streams
incstream
;; Getting the cache from this table will also cause this
- ;; file to update its cache from its decendents.
+ ;; file to update its cache from its descendants.
;;
;; In theory, caches are only built for most includes
;; only once (in the loop before this one), so this ends
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el
index ecab73a80dc..45b807df12b 100644
--- a/lisp/cedet/semantic/debug.el
+++ b/lisp/cedet/semantic/debug.el
@@ -519,22 +519,22 @@ down to your parser later."
)
(defmethod semantic-debug-parser-go ((parser semantic-debug-parser))
- "Continue executiong in this PARSER until the next breakpoint."
+ "Continue execution in this PARSER until the next breakpoint."
(setq semantic-debug-user-command 'go)
)
(defmethod semantic-debug-parser-fail ((parser semantic-debug-parser))
- "Continue executiong in this PARSER until the next breakpoint."
+ "Continue execution in this PARSER until the next breakpoint."
(setq semantic-debug-user-command 'fail)
)
(defmethod semantic-debug-parser-quit ((parser semantic-debug-parser))
- "Continue executiong in this PARSER until the next breakpoint."
+ "Continue execution in this PARSER until the next breakpoint."
(setq semantic-debug-user-command 'quit)
)
(defmethod semantic-debug-parser-abort ((parser semantic-debug-parser))
- "Continue executiong in this PARSER until the next breakpoint."
+ "Continue execution in this PARSER until the next breakpoint."
(setq semantic-debug-user-command 'abort)
)
diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index a007f21b69f..0780a628254 100644
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -549,7 +549,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
;; is not the first change for this
;; iteration, and it starts before the end
;; of current parse region, then it is
- ;; encompased within the bounds of tags
+ ;; encompassed within the bounds of tags
;; modified by the previous iteration's
;; change.
(< (semantic-overlay-start (car changes))
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index b49d1db1ad5..6761a7f532b 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -245,7 +245,7 @@ And also manages services that depend on tag values."
;; services. Stop on keypress.
;; NOTE ON COMMENTED SAFE HERE
- ;; We used to not execute the services if the buffer wsa
+ ;; We used to not execute the services if the buffer was
;; unparseable. We now assume that they are lexically
;; safe to do, because we have marked the buffer unparseable
;; if there was a problem.
@@ -254,11 +254,11 @@ And also manages services that depend on tag values."
(save-excursion
(semantic-throw-on-input 'idle-queue)
(when semantic-idle-scheduler-verbose-flag
- (message "IDLE: execture service %s..." service))
+ (message "IDLE: execute service %s..." service))
(semantic-safe (format "Idle Service Error %s: %%S" service)
(funcall service))
(when semantic-idle-scheduler-verbose-flag
- (message "IDLE: execture service %s...done" service))
+ (message "IDLE: execute service %s...done" service))
)))
;;)
;; Finally loop over remaining buffers, trying to update them as
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el
index a09928c7dfc..ce3500f83e1 100644
--- a/lisp/cedet/semantic/symref/list.el
+++ b/lisp/cedet/semantic/symref/list.el
@@ -24,7 +24,7 @@
;; Provide a simple user facing API to finding symbol references.
;;
;; This UI is the base of some refactoring tools. For any refactor,
-;; the user will execture [FIXME what?] `semantic-symref' in a tag.
+;; the user will execute `semantic-symref' in a tag.
;; Once that data is collected, the output will be listed in a buffer.
;; In the output buffer, the user can then initiate different
;; refactoring operations.
@@ -103,7 +103,7 @@ Display the references in`semantic-symref-results-mode'."
(when (not res) (error "No references found"))
(semantic-symref-result-get-tags res t)
(message "Gathering References...done")
- ;; Build a refrences buffer.
+ ;; Build a references buffer.
(let ((buff (get-buffer-create
(format "*Symref %s" str)))
)
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index 62ceff82448..1575ce7ae3b 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -437,7 +437,7 @@ The root dictionary is usually for a current or active insertion."
;;; COMPOUND VALUE METHODS
;;
;; Compound values must provide at least the toString method
-;; for use in converting the compound value into sometehing insertable.
+;; for use in converting the compound value into something insertable.
(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value)
function
View Lorry Controller Status