diff options
| author | Paul Eggert | 2013-06-10 16:02:33 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-06-10 16:02:33 -0700 |
| commit | c6bc7508a99546eac0ad2f926eaece09b2086d16 (patch) | |
| tree | 0350878e2582c0cc258f7e412dbbf10eb9f93858 | |
| parent | 001b9fbe7c415ef77f4e2b8a6c448989c379ae94 (diff) | |
| download | emacs-c6bc7508a99546eac0ad2f926eaece09b2086d16.tar.gz emacs-c6bc7508a99546eac0ad2f926eaece09b2086d16.zip | |
Spelling fixes.
| -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: | |||
| 366 | If the cursor is on 'this', will move point to the ; after entry.") | 366 | If 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. |
| 370 | This will move past type/field names when applicable. | 370 | This will move past type/field names when applicable. |
| 371 | Depends on `semantic-type-relation-separator-character', and will | 371 | Depends on `semantic-type-relation-separator-character', and will |
| 372 | work on C like languages." | 372 | work 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)) |