diff options
Diffstat (limited to 'lisp/cedet/semantic/bovine/c.el')
| -rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index d8b004df1bd..4da23498cfc 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -298,7 +298,7 @@ Moves completely over balanced #if blocks." ;; @TODO - can we use the new c-scan-conditionals (c-forward-conditional 1)) ((looking-at "^\\s-*#\\s-*elif") - ;; We need to let the preprocessor analize this one. + ;; We need to let the preprocessor analyze this one. (beginning-of-line) (setq done t) ) @@ -344,7 +344,7 @@ Uses known macro tables in SPP to determine what block to skip." (string= sym "0")) (and ifdef (not (semantic-lex-spp-symbol-p sym))) (and ifndef (semantic-lex-spp-symbol-p sym))) - ;; The if indecates to skip this preprocessor section + ;; The if indicates to skip this preprocessor section. (let ((pt nil)) ;; (message "%s %s yes" ift sym) (beginning-of-line) @@ -650,7 +650,7 @@ as for the parent." (setq depth 0) ;; This is a copy of semantic-parse-region-default where we - ;; are doing something special with the lexication of the + ;; are doing something special with the lexing of the ;; contents of the semantic-list token. Stuff not used by C ;; removed. (let ((tokstream @@ -816,7 +816,7 @@ now. ;; ;; will create 2 toplevel tags, one is type A, and the other variable B ;; where the :type of B is just a type tag A that is a prototype, and - ;; the actual struct info of A is it's own toplevel tag. + ;; the actual struct info of A is its own toplevel tag. (when (or (semantic-tag-of-class-p tag 'function) (semantic-tag-of-class-p tag 'variable)) (let* ((basetype (semantic-tag-type tag)) @@ -954,7 +954,7 @@ now. (nth 1 (car names)) ; name "typedef" (semantic-tag-type-members tag) - ;; parent is just tbe name of what + ;; parent is just the name of what ;; is passed down as a tag. (list (semantic-tag-name @@ -1311,7 +1311,7 @@ Optional PARENT and COLOR as specified with "Return non-nil if TAG is considered abstract. PARENT is tag's parent. In C, a method is abstract if it is `virtual', which is already -handled. A class is abstract iff it's destructor is virtual." +handled. A class is abstract iff its destructor is virtual." (cond ((eq (semantic-tag-class tag) 'type) (require 'semantic/find) @@ -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)))) |