diff options
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/ede.el | 8 | ||||
| -rw-r--r-- | lisp/cedet/ede/files.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/mode-local.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-find.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/doc.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/fw.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/lex.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/sort.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/symref.el | 12 | ||||
| -rw-r--r-- | lisp/cedet/semantic/tag.el | 20 |
12 files changed, 37 insertions, 35 deletions
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 76ec3567c63..2a522bcccd8 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el @@ -81,12 +81,12 @@ "Whether a new source file should be automatically added to a target. Whenever a new file is encountered in a directory controlled by a project file, all targets are queried to see if it should be added. -If the value is 'always, then the new file is added to the first -target encountered. If the value is 'multi-ask, then if more than one +If the value is `always', then the new file is added to the first +target encountered. If the value is `multi-ask', then if more than one target wants the file, the user is asked. If only one target wants the file, then it is automatically added to that target. If the -value is 'ask, then the user is always asked, unless there is no -target willing to take the file. 'never means never perform the check." +value is `ask', then the user is always asked, unless there is no +target willing to take the file. `never' means never perform the check." :group 'ede :type '(choice (const always) (const multi-ask) diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el index 4ba823adeee..81a1a6adf2e 100644 --- a/lisp/cedet/ede/files.el +++ b/lisp/cedet/ede/files.el @@ -304,7 +304,7 @@ Do this whenever a new project is created, as opposed to loaded." ;; instead so that -P can be obsoleted. (defun ede-directory-project-p (dir &optional force) "Return a project description object if DIR is in a project. -Optional argument FORCE means to ignore a hash-hit of 'nomatch. +Optional argument FORCE means to ignore a hash-hit of `nomatch'. This depends on an up to date `ede-project-class-files' variable. Any directory that contains the file .ede-ignore will always return nil. diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index b5995ffa397..c1e06cb4586 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -627,7 +627,8 @@ SYMBOL is a function that can be overridden." (beginning-of-line) (forward-line -1)) (let ((inhibit-read-only t)) - (insert (overload-docstring-extension symbol) "\n") + (insert (substitute-command-keys (overload-docstring-extension symbol)) + "\n") ;; NOTE TO SELF: ;; LIST ALL LOADED OVERRIDES FOR SYMBOL HERE ))) @@ -641,7 +642,8 @@ SYMBOL is a function that can be overridden." (fetch-overload symbol))) modes) - (insert (overload-docstring-extension symbol) "\n\n") + (insert (substitute-command-keys (overload-docstring-extension symbol)) + "\n\n") (insert (format-message "default function: `%s'\n" default)) (if override (insert (format-message "\noverride in buffer `%s': `%s'\n" diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 290cd907beb..a9af84af3d4 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -1191,7 +1191,7 @@ This function can be used by `completion-at-point-functions'." (defun semantic-analyze-notc-completion-at-point-function () "Return possible analysis completions at point. The completions provided are via `semantic-analyze-possible-completions', -but with the 'no-tc option passed in, which means constraints based +but with the `no-tc' option passed in, which means constraints based on what is being assigned to are ignored. This function can be used by `completion-at-point-functions'." (when (semantic-active-p) @@ -1207,7 +1207,7 @@ This function can be used by `completion-at-point-functions'." (defun semantic-analyze-nolongprefix-completion-at-point-function () "Return possible analysis completions at point. The completions provided are via `semantic-analyze-possible-completions', -but with the 'no-tc and 'no-longprefix option passed in, which means +but with the `no-tc' and `no-longprefix' option passed in, which means constraints resulting in a long multi-symbol dereference are ignored. This function can be used by `completion-at-point-functions'." (when (semantic-active-p) diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 1c25c7b0808..d5af635d14c 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -1513,7 +1513,7 @@ Override function for `semantic-tag-protection'." (define-mode-local-override semantic-find-tags-included c-mode (&optional table) - "Find all tags in TABLE that are of the 'include class. + "Find all tags in TABLE that are of the `include' class. TABLE is a tag table. See `semantic-something-to-tag-table'. For C++, we also have to search namespaces for include tags." (let ((tags (semantic-find-tags-by-class 'include table)) @@ -1948,7 +1948,7 @@ For types with a :parent, create faux namespaces to put TAG into." (define-mode-local-override semanticdb-find-table-for-include c-mode (includetag &optional table) "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object -INCLUDETAG is a semantic TAG of class 'include. +INCLUDETAG is a semantic TAG of class `include'. TABLE is a semanticdb table that identifies where INCLUDETAG came from. TABLE is optional if INCLUDETAG has an overlay of :filename attribute. diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index 293f535d60b..b441cd18b63 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el @@ -854,7 +854,7 @@ This makes it appear more like the results of a `semantic-find-' call. Optional FIND-FILE-MATCH loads all files associated with RESULTS into buffers. This has the side effect of enabling `semantic-tag-buffer' to return a value. -If FIND-FILE-MATCH is 'name, then only the filename is stored +If FIND-FILE-MATCH is `name', then only the filename is stored in each tag instead of loading each file into a buffer. If the input RESULTS are not going to be used again, and if FIND-FILE-MATCH is nil, you can use `semanticdb-fast-strip-find-results' diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el index 3ceb3510ad2..65718a0532e 100644 --- a/lisp/cedet/semantic/doc.el +++ b/lisp/cedet/semantic/doc.el @@ -41,7 +41,7 @@ some documentation in a comment preceding TAG's definition which we can look for. When appropriate, this can be overridden by a language specific enhancement. Optional argument NOSNARF means to only return the lexical analyzer token for it. -If nosnarf if 'lex, then only return the lex token." +If NOSNARF is `lex', then only return the lex token." (if (not tag) (setq tag (semantic-current-tag))) (save-excursion (when (semantic-tag-with-position-p tag) @@ -66,7 +66,7 @@ If nosnarf if 'lex, then only return the lex token." If TAG is nil. use the tag under point. Searches the space between TAG and the preceding tag for a comment, and converts the comment into clean documentation. -Optional argument NOSNARF with a value of 'lex means to return +Optional argument NOSNARF with a value of `lex' means to return just the lexical token and not the string." (if (not tag) (setq tag (semantic-current-tag))) (save-excursion @@ -92,7 +92,7 @@ just the lexical token and not the string." "Snarf up the comment at POINT for `semantic-documentation-for-tag'. Attempt to strip out comment syntactic sugar. Argument NOSNARF means don't modify the found text. -If NOSNARF is 'lex, then return the lex token." +If NOSNARF is `lex', then return the lex token." (let* ((semantic-ignore-comments nil) (semantic-lex-analyzer #'semantic-comment-lexer)) (if (memq nosnarf '(lex flex)) ;; keep `flex' for compatibility diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index d8ba6f275f3..b7a6ed352d1 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -193,7 +193,7 @@ Possible Lifespans are: )) (defun semantic-cache-data-post-command-hook () - "Flush `semantic-cache-data-overlays' based 'lifespan property. + "Flush `semantic-cache-data-overlays' based `lifespan' property. Remove self from `post-command-hook' if it is empty." (let ((newcache nil) (oldcache semantic-cache-data-overlays)) diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index 7738e06ff88..c8645c2b7d3 100644 --- a/lisp/cedet/semantic/lex.el +++ b/lisp/cedet/semantic/lex.el @@ -1815,13 +1815,13 @@ to keep comments as part of the token stream.") (make-variable-buffer-local 'semantic-ignore-comments) (defvar semantic-flex-enable-newlines nil - "When flexing, report 'newlines as syntactic elements. + "When flexing, report newlines as syntactic elements. Useful for languages where the newline is a special case terminator. Only set this on a per mode basis, not globally.") (make-variable-buffer-local 'semantic-flex-enable-newlines) (defvar semantic-flex-enable-whitespace nil - "When flexing, report 'whitespace as syntactic elements. + "When flexing, report whitespace as syntactic elements. Useful for languages where the syntax is whitespace dependent. Only set this on a per mode basis, not globally.") (make-variable-buffer-local 'semantic-flex-enable-whitespace) diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el index 587d084701d..22826635986 100644 --- a/lisp/cedet/semantic/sort.el +++ b/lisp/cedet/semantic/sort.el @@ -453,7 +453,7 @@ has some sort of label defining a parent. The parent return will be a string. The default behavior, if not overridden with -`tag-member-parent' gets the 'parent extra +`tag-member-parent' gets the `parent' extra specifier of TAG. If this function is overridden, use diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 15070dc0558..04684035ac0 100644 --- a/lisp/cedet/semantic/symref.el +++ b/lisp/cedet/semantic/symref.el @@ -162,7 +162,7 @@ ARGS are the initialization arguments to pass to the created class." ;;;###autoload (defun semantic-symref-find-references-by-name (name &optional scope tool-return) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'. @@ -186,7 +186,7 @@ to perform the search. This was added for use by a test harness." ;;;###autoload (defun semantic-symref-find-tags-by-name (name &optional scope) "Find a list of tags by NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -206,7 +206,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-tags-by-regexp (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -226,7 +226,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-tags-by-completion (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -246,7 +246,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-file-references-by-name (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -267,7 +267,7 @@ Returns an object of class `semantic-symref-result'." (defun semantic-symref-find-text (text &optional scope) "Find a list of occurrences of TEXT in the current project. TEXT is a regexp formatted for use with egrep. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index 34fc8ba92ce..8ec5fffd413 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -375,7 +375,7 @@ Optional argument IGNORABLE-ATTRIBUTES is passed down to (defun semantic-tag-of-type-p (tag type) "Compare TAG's type against TYPE. Non nil if equivalent. -TYPE can be a string, or a tag of class 'type. +TYPE can be a string, or a tag of class `type'. This can be complex since some tags might have a :type that is a tag, while other tags might just have a string. This function will also be return true of TAG's type is compared directly to the declaration of a @@ -462,12 +462,12 @@ pairs eliminated: "Create a generic semantic tag. NAME is a string representing the name of this tag. CLASS is the symbol that represents the class of tag this is, -such as 'variable, or 'function. +such as `variable', or `function'. ATTRIBUTES is a list of additional attributes belonging to this tag." (list name class (semantic-tag-make-plist attributes) nil nil)) (defsubst semantic-tag-new-variable (name type &optional default-value &rest attributes) - "Create a semantic tag of class 'variable. + "Create a semantic tag of class `variable'. NAME is the name of this variable. TYPE is a string or semantic tag representing the type of this variable. Optional DEFAULT-VALUE is a string representing the default value of this @@ -479,7 +479,7 @@ tag." attributes)) (defsubst semantic-tag-new-function (name type arg-list &rest attributes) - "Create a semantic tag of class 'function. + "Create a semantic tag of class `function'. NAME is the name of this function. TYPE is a string or semantic tag representing the type of this function. ARG-LIST is a list of strings or semantic tags representing the @@ -491,7 +491,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-type (name type members parents &rest attributes) - "Create a semantic tag of class 'type. + "Create a semantic tag of class `type'. NAME is the name of this type. TYPE is a string or semantic tag representing the type of this type. MEMBERS is a list of strings or semantic tags representing the @@ -516,7 +516,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-include (name system-flag &rest attributes) - "Create a semantic tag of class 'include. + "Create a semantic tag of class `include'. NAME is the name of this include. SYSTEM-FLAG represents that we were able to identify this include as belonging to the system, as opposed to belonging to the local project. @@ -526,7 +526,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-package (name detail &rest attributes) - "Create a semantic tag of class 'package. + "Create a semantic tag of class `package'. NAME is the name of this package. DETAIL is extra information about this package, such as a location where it can be found. @@ -536,7 +536,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-code (name detail &rest attributes) - "Create a semantic tag of class 'code. + "Create a semantic tag of class `code'. NAME is a name for this code. DETAIL is extra information about the code. ATTRIBUTES is a list of additional attributes belonging to this tag." @@ -823,7 +823,7 @@ in SUPERS." (defun semantic-tag-type-superclass-protection (tag parentstring) "Return the inheritance protection in TAG from PARENTSTRING. PARENTSTRING is the name of the parent being inherited. -The return protection is a symbol, 'public, 'protection, and 'private." +The return protection is a symbol, `public', `protection', and `private'." (let ((supers (semantic-tag-get-attribute tag :superclasses))) (cond ((stringp supers) 'public) @@ -946,7 +946,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." The returned value is a tag of the class that `semantic-tag-alias-class' returns for TAG. The default is to return the value of the :definition attribute. -Return nil if TAG is not of class 'alias." +Return nil if TAG is not of class `alias'." (when (semantic-tag-of-class-p tag 'alias) (:override (semantic-tag-get-attribute tag :definition)))) |