From c6bc7508a99546eac0ad2f926eaece09b2086d16 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 10 Jun 2013 16:02:33 -0700 Subject: [PATCH] Spelling fixes. --- lisp/cedet/semantic/ctxt.el | 10 +++++----- 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)) -- 2.39.2