aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2013-06-10 16:02:33 -0700
committerPaul Eggert2013-06-10 16:02:33 -0700
commitc6bc7508a99546eac0ad2f926eaece09b2086d16 (patch)
tree0350878e2582c0cc258f7e412dbbf10eb9f93858
parent001b9fbe7c415ef77f4e2b8a6c448989c379ae94 (diff)
downloademacs-c6bc7508a99546eac0ad2f926eaece09b2086d16.tar.gz
emacs-c6bc7508a99546eac0ad2f926eaece09b2086d16.zip
Spelling fixes.
-rw-r--r--lisp/cedet/semantic/ctxt.el10
-rw-r--r--lisp/cedet/semantic/decorate/mode.el6
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index efaec4f63b4..629bbdee561 100644
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -366,7 +366,7 @@ For example, in the C statement:
366If the cursor is on 'this', will move point to the ; after entry.") 366If the cursor is on 'this', will move point to the ; after entry.")
367 367
368(defun semantic-ctxt-end-of-symbol-default (&optional point) 368(defun semantic-ctxt-end-of-symbol-default (&optional point)
369 "Move poin to the end of the current symbol under POINT. 369 "Move point to the end of the current symbol under POINT.
370This will move past type/field names when applicable. 370This will move past type/field names when applicable.
371Depends on `semantic-type-relation-separator-character', and will 371Depends on `semantic-type-relation-separator-character', and will
372work on C like languages." 372work on C like languages."
@@ -422,18 +422,18 @@ work on C like languages."
422 422
423 ;; Skip the separator and the symbol. 423 ;; Skip the separator and the symbol.
424 (goto-char (match-end 0)) 424 (goto-char (match-end 0))
425 425
426 (if (looking-at "\\w\\|\\s_") 426 (if (looking-at "\\w\\|\\s_")
427 ;; Skip symbols 427 ;; Skip symbols
428 (forward-sexp 1) 428 (forward-sexp 1)
429 ;; No symbol, exit the search... 429 ;; No symbol, exit the search...
430 (setq continuesearch nil)) 430 (setq continuesearch nil))
431 431
432 (setq end (point))) 432 (setq end (point)))
433 433
434 ;; Cont... 434 ;; Cont...
435 ) 435 )
436 436
437 ;; Restore position if we go to far.... 437 ;; Restore position if we go to far....
438 (error (goto-char end)) ) 438 (error (goto-char end)) )
439 439
diff --git a/lisp/cedet/semantic/decorate/mode.el b/lisp/cedet/semantic/decorate/mode.el
index 3487e615168..a4aa535eb1a 100644
--- a/lisp/cedet/semantic/decorate/mode.el
+++ b/lisp/cedet/semantic/decorate/mode.el
@@ -396,7 +396,7 @@ decoration API found in this library."
396 (let ((predicate (semantic-decorate-style-predicate name)) 396 (let ((predicate (semantic-decorate-style-predicate name))
397 (highlighter (semantic-decorate-style-highlighter name)) 397 (highlighter (semantic-decorate-style-highlighter name))
398 (predicatedef (semantic-decorate-style-predicate-default name)) 398 (predicatedef (semantic-decorate-style-predicate-default name))
399 (highlighterdef (semantic-decorate-style-highlighter-default name)) 399 (highlighterdef (semantic-decorate-style-highlighter-default name))
400 (defaultenable (if (plist-member flags :enabled) 400 (defaultenable (if (plist-member flags :enabled)
401 (plist-get flags :enabled) 401 (plist-get flags :enabled)
402 t)) 402 t))
@@ -422,14 +422,14 @@ decoration API found in this library."
422 (add-to-list 'semantic-decoration-styles 422 (add-to-list 'semantic-decoration-styles
423 (cons ',(symbol-name name) 423 (cons ',(symbol-name name)
424 ,defaultenable)) 424 ,defaultenable))
425 ;; If there is a load file, then create the autload tokens for 425 ;; If there is a load file, then create the autoload tokens for
426 ;; those functions to load the token, but only if the fsym 426 ;; those functions to load the token, but only if the fsym
427 ;; doesn't exist yet. 427 ;; doesn't exist yet.
428 (when (stringp ,loadfile) 428 (when (stringp ,loadfile)
429 (unless (fboundp ',predicatedef) 429 (unless (fboundp ',predicatedef)
430 (autoload ',predicatedef ',loadfile "Return non-nil to decorate TAG." 430 (autoload ',predicatedef ',loadfile "Return non-nil to decorate TAG."
431 nil 'function)) 431 nil 'function))
432 432
433 (unless (fboundp ',highlighterdef) 433 (unless (fboundp ',highlighterdef)
434 (autoload ',highlighterdef ',loadfile "Decorate TAG." 434 (autoload ',highlighterdef ',loadfile "Decorate TAG."
435 nil 'function)) 435 nil 'function))