diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2013-06-10 16:02:33 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2013-06-10 16:02:33 -0700 |
| commit | c6bc7508a99546eac0ad2f926eaece09b2086d16 (patch) | |
| tree | 0350878e2582c0cc258f7e412dbbf10eb9f93858 /lisp/cedet | |
| parent | 001b9fbe7c415ef77f4e2b8a6c448989c379ae94 (diff) | |
| download | emacs-c6bc7508a99546eac0ad2f926eaece09b2086d16.tar.gz | |
Spelling fixes.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/semantic/ctxt.el | 10 | ||||
| -rw-r--r-- | lisp/cedet/semantic/decorate/mode.el | 6 |
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: If the cursor is on 'this', will move point to the ; after entry.") (defun semantic-ctxt-end-of-symbol-default (&optional point) - "Move poin to the end of the current symbol under POINT. + "Move point to the end of the current symbol under POINT. This will move past type/field names when applicable. Depends on `semantic-type-relation-separator-character', and will work on C like languages." @@ -422,18 +422,18 @@ work on C like languages." ;; Skip the separator and the symbol. (goto-char (match-end 0)) - + (if (looking-at "\\w\\|\\s_") ;; Skip symbols (forward-sexp 1) ;; No symbol, exit the search... (setq continuesearch nil)) - + (setq end (point))) - + ;; Cont... ) - + ;; Restore position if we go to far.... (error (goto-char end)) ) 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." (let ((predicate (semantic-decorate-style-predicate name)) (highlighter (semantic-decorate-style-highlighter name)) (predicatedef (semantic-decorate-style-predicate-default name)) - (highlighterdef (semantic-decorate-style-highlighter-default name)) + (highlighterdef (semantic-decorate-style-highlighter-default name)) (defaultenable (if (plist-member flags :enabled) (plist-get flags :enabled) t)) @@ -422,14 +422,14 @@ decoration API found in this library." (add-to-list 'semantic-decoration-styles (cons ',(symbol-name name) ,defaultenable)) - ;; If there is a load file, then create the autload tokens for + ;; If there is a load file, then create the autoload tokens for ;; those functions to load the token, but only if the fsym ;; doesn't exist yet. (when (stringp ,loadfile) (unless (fboundp ',predicatedef) (autoload ',predicatedef ',loadfile "Return non-nil to decorate TAG." nil 'function)) - + (unless (fboundp ',highlighterdef) (autoload ',highlighterdef ',loadfile "Decorate TAG." nil 'function)) |