diff options
Diffstat (limited to 'lisp/cedet/semantic')
| -rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 20 | ||||
| -rw-r--r-- | lisp/cedet/semantic/complete.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/ctxt.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/java.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/senator.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/wisent/comp.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/wisent/python.el | 4 |
8 files changed, 22 insertions, 22 deletions
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index e86f09c114d..6639f178e86 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -225,7 +225,7 @@ to store your global macros in a more natural way." ) (defcustom semantic-c-member-of-autocast 't - "Non-nil means classes with a '->' operator will cast to its return type. + "Non-nil means classes with a `->' operator will cast to its return type. For Examples: @@ -1049,8 +1049,8 @@ now. return-list)) (defun semantic-expand-c-extern-C (tag) - "Expand TAG containing an 'extern \"C\"' statement. -This will return all members of TAG with 'extern \"C\"' added to + "Expand TAG containing an `extern \"C\"' statement. +This will return all members of TAG with `extern \"C\"' added to the typemodifiers attribute." (when (eq (semantic-tag-class tag) 'extern) (let* ((mb (semantic-tag-get-attribute tag :members)) @@ -1065,7 +1065,7 @@ the typemodifiers attribute." (defun semantic-expand-c-complex-type (tag) "Check if TAG has a full :type with a name on its own. If so, extract it, and replace it with a reference to that type. -Thus, 'struct A { int a; } B;' will create 2 toplevel tags, one +Thus, `struct A { int a; } B;' 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 its own toplevel tag. This function will return (cons A B)." @@ -1656,7 +1656,7 @@ SPEC-LIST is the template specifier of the datatype instantiated." (defun semantic-c--template-name-1 (spec-list) "Return a string used to compute template class name. -Based on SPEC-LIST, for ref<Foo,Bar> it will return 'Foo,Bar'." +Based on SPEC-LIST, for ref<Foo,Bar> it will return `Foo,Bar'." (when (car spec-list) (let* ((endpart (semantic-c--template-name-1 (cdr spec-list))) (separator (and endpart ","))) @@ -1665,7 +1665,7 @@ Based on SPEC-LIST, for ref<Foo,Bar> it will return 'Foo,Bar'." (defun semantic-c--template-name (type spec-list) "Return a template class name for TYPE based on SPEC-LIST. For a type `ref' with a template specifier of (Foo Bar) it will -return 'ref<Foo,Bar>'." +return `ref<Foo,Bar>'." (concat (semantic-tag-name type) "<" (semantic-c--template-name-1 (cdr spec-list)) ">")) @@ -1693,7 +1693,7 @@ instantiated as specified in TYPE-DECLARATION." ;;; Patch here by "Raf" for instantiating templates. (defun semantic-c-dereference-member-of (type scope &optional type-declaration) "Dereference through the `->' operator of TYPE. -Uses the return type of the '->' operator if it is contained in TYPE. +Uses the return type of the `->' operator if it is contained in TYPE. SCOPE is the current local scope to perform searches in. TYPE-DECLARATION is passed through." (if semantic-c-member-of-autocast @@ -1709,8 +1709,8 @@ TYPE-DECLARATION is passed through." ;; tests 5 and following. (defun semantic-c-dereference-namespace (type scope &optional type-declaration) - "Dereference namespace which might hold an 'alias' for TYPE. -Such an alias can be created through 'using' statements in a + "Dereference namespace which might hold an `alias' for TYPE. +Such an alias can be created through `using' statements in a namespace declaration. This function checks the namespaces in SCOPE for such statements." (let ((scopetypes (oref scope scopetypes)) @@ -1826,7 +1826,7 @@ or nil if it cannot be found." (define-mode-local-override semantic-analyze-dereference-metatype c-mode (type scope &optional type-declaration) "Dereference TYPE as described in `semantic-analyze-dereference-metatype'. -Handle typedef, template instantiation, and '->' operator." +Handle typedef, template instantiation, and `->' operator." (let* ((dereferencer-list '(semantic-c-dereference-typedef semantic-c-dereference-template semantic-c-dereference-member-of diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index ce9e3252ec8..9c32388669b 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -1491,7 +1491,7 @@ Not meaningful return value." "Display completions in *Completions* buffer, with focus highlight. A traditional displayor which can focus on a tag by showing it. Same as `semantic-displayor-traditional', but with selection between -multiple tags with the same name done by 'focusing' on the source +multiple tags with the same name done by focusing on the source location of the different tags to differentiate them.") (cl-defmethod semantic-displayor-focus-request @@ -1684,7 +1684,7 @@ Display mechanism using tooltip for a list of possible completions.") (setq msg-tail (concat "\n[<TAB> " (number-to-string (- numcompl max-tags)) " more]")) (setq msg-tail (concat "\n[<n/a> " (number-to-string (- numcompl max-tags)) " more]")) (when (>= (oref obj typing-count) 2) - (message "Refine search to display results beyond the '%s' limit" + (message "Refine search to display results beyond the ‘%s’ limit" (symbol-name 'semantic-complete-inline-max-tags-extended))))) ((= numcompl 1) ;; two possible cases diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el index 456ef8d0ac1..33b9a2e6037 100644 --- a/lisp/cedet/semantic/ctxt.el +++ b/lisp/cedet/semantic/ctxt.el @@ -362,7 +362,7 @@ This skips forward over symbols in a complex reference. For example, in the C statement: this.that().entry; -If the cursor is on 'this', will move point to the ; after entry.") +If the cursor is on `this', will move point to the ; after entry.") (defun semantic-ctxt-end-of-symbol-default (&optional point) "Move point to the end of the current symbol under POINT. diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 7380bddd2bb..e4ac56cdab4 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -142,7 +142,7 @@ Abstract tables do not have file names associated with them." nil) (cl-defmethod semanticdb-dirty-p ((obj semanticdb-abstract-table)) - "Return non-nil if OBJ is 'dirty'." + "Return non-nil if OBJ is dirty." nil) (cl-defmethod semanticdb-set-dirty ((obj semanticdb-abstract-table)) @@ -313,7 +313,7 @@ If OBJ's file is not loaded, read it in first." (oref (oref obj parent-db) reference-directory))) (cl-defmethod semanticdb-dirty-p ((obj semanticdb-table)) - "Return non-nil if OBJ is 'dirty'." + "Return non-nil if OBJ is dirty." (oref obj dirty)) (cl-defmethod semanticdb-set-dirty ((obj semanticdb-table)) @@ -369,7 +369,7 @@ Abstract tables do not have file names associated with them." nil) (cl-defmethod semanticdb-dirty-p ((DB semanticdb-project-database)) - "Return non-nil if DB is 'dirty'. + "Return non-nil if DB is dirty. A database is dirty if the state of the database changed in a way where it may need to resynchronize with some persistent storage." (let ((dirty nil) diff --git a/lisp/cedet/semantic/java.el b/lisp/cedet/semantic/java.el index 7dcd7f1be85..fc02d034dca 100644 --- a/lisp/cedet/semantic/java.el +++ b/lisp/cedet/semantic/java.el @@ -369,7 +369,7 @@ That is @NAME." (defsubst semantic-java-doc-tag-name (tag) "Return name of the doc TAG symbol. -That is TAG `symbol-name' without the leading '@'." +That is TAG `symbol-name' without the leading ‘@’." (substring (symbol-name tag) 1)) (defun semantic-java-doc-keyword-before-p (k1 k2) diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index c58def60585..372e1d920e7 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el @@ -507,7 +507,7 @@ filters in `senator-search-tag-filter-functions' remain active." (define-overloadable-function semantic-up-reference (tag) "Return a tag that is referred to by TAG. A \"reference\" could be any interesting feature of TAG. -In C++, a function may have a 'parent' which is non-local. +In C++, a function may have a `parent' which is non-local. If that parent which is only a reference in the function tag is found, we can jump to it. Some tags such as includes have other reference features.") @@ -516,7 +516,7 @@ Some tags such as includes have other reference features.") (defun senator-go-to-up-reference (&optional tag) "Move up one reference from the current TAG. A \"reference\" could be any interesting feature of TAG. -In C++, a function may have a 'parent' which is non-local. +In C++, a function may have a `parent' which is non-local. If that parent which is only a reference in the function tag is found, we can jump to it. Some tags such as includes have other reference features." diff --git a/lisp/cedet/semantic/wisent/comp.el b/lisp/cedet/semantic/wisent/comp.el index 90c5ebd0095..6730e8e5bc7 100644 --- a/lisp/cedet/semantic/wisent/comp.el +++ b/lisp/cedet/semantic/wisent/comp.el @@ -2892,7 +2892,7 @@ Also warn if X is a $N or $regionN symbol with N < 1 or N > M." "Parse BODY of semantic action. N is the maximum number of $N variables that can be referenced in BODY. Warn on references out of permitted range. -Optional argument FOUND is the accumulated list of '$N' references +Optional argument FOUND is the accumulated list of $N references encountered so far. Return a cons (FOUND . XBODY), where FOUND is the list of $N references found in BODY, and XBODY is BODY expression with diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el index 6abeb4a2440..2dc3dd3c2ad 100644 --- a/lisp/cedet/semantic/wisent/python.el +++ b/lisp/cedet/semantic/wisent/python.el @@ -130,7 +130,7 @@ curly braces." (defun wisent-python-forward-balanced-expression () "Move point to the end of the balanced expression at point. -Here 'balanced expression' means anything matched by Emacs' +Here “balanced expression” means anything matched by Emacs's open/close parenthesis syntax classes. We can't use forward-sexp for this because that Emacs built-in can't parse Python's triple-quoted string syntax." @@ -490,7 +490,7 @@ Return nil if there is nothing relevant." ;; (define-mode-local-override semantic-format-tag-abbreviate python-mode (tag &optional parent color) "Format an abbreviated tag for python. -Shortens 'code' tags, but passes through for others." +Shortens `code' tags, but passes through for others." (cond ((semantic-tag-of-class-p tag 'code) ;; Just take the first line. (let ((name (semantic-tag-name tag))) |