diff options
Diffstat (limited to 'lisp/cedet')
29 files changed, 48 insertions, 52 deletions
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el index ee9d0116af3..da6a3f3e903 100644 --- a/lisp/cedet/ede/auto.el +++ b/lisp/cedet/ede/auto.el @@ -69,7 +69,7 @@ into memory.") (let* ((fc (oref dirmatch fromconfig)) (found (cond ((stringp fc) fc) ((functionp fc) (funcall fc)) - (t (error "Unknown dirmatch object match style."))))) + (t (error "Unknown dirmatch object match style"))))) (expand-file-name found) )) @@ -129,7 +129,7 @@ into memory.") ;; Error if none others known (t - (error "Unknown dirmatch object match style."))) + (error "Unknown dirmatch object match style"))) )) (declare-function ede-directory-safe-p "ede") diff --git a/lisp/cedet/ede/cpp-root.el b/lisp/cedet/ede/cpp-root.el index 652d6476f02..fd37e53ed42 100644 --- a/lisp/cedet/ede/cpp-root.el +++ b/lisp/cedet/ede/cpp-root.el @@ -103,7 +103,7 @@ ;; ;; If the cpp-root project style is right for you, but you want a ;; dynamic loader, instead of hard-coding values in your .emacs, you -;; can do that too, but you will need to write some lisp code. +;; can do that too, but you will need to write some Lisp code. ;; ;; To do that, you need to add an entry to the ;; `ede-project-class-files' list, and also provide two functions to diff --git a/lisp/cedet/ede/makefile-edit.el b/lisp/cedet/ede/makefile-edit.el index d6965945494..709963d6faf 100644 --- a/lisp/cedet/ede/makefile-edit.el +++ b/lisp/cedet/ede/makefile-edit.el @@ -30,7 +30,7 @@ ;; Formatting of a makefile ;; ;; 1) Creating an automakefile, stick in a top level comment about -;; being created by emacs +;; being created by Emacs. ;; 2) Leave order of variable contents alone, except for SOURCE ;; SOURCE always keep in the order of .c, .h, the other stuff. diff --git a/lisp/cedet/ede/proj-elisp.el b/lisp/cedet/ede/proj-elisp.el index 7e0f5a89346..7a3b36f30f6 100644 --- a/lisp/cedet/ede/proj-elisp.el +++ b/lisp/cedet/ede/proj-elisp.el @@ -54,8 +54,8 @@ load path." Each package name will be loaded with `require'. Each package's directory should also appear in :aux-packages via a package name.") ) - "This target consists of a group of lisp files. -A lisp target may be one general program with many separate lisp files in it.") + "This target consists of a group of Lisp files. +A Lisp target may be one general program with many separate Lisp files in it.") (cl-defmethod ede-proj-makefile-insert-rules :after ((this ede-proj-target-elisp)) "Insert rules needed by THIS target. diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el index c8c34d092f1..1352e5c193d 100644 --- a/lisp/cedet/ede/proj.el +++ b/lisp/cedet/ede/proj.el @@ -562,7 +562,7 @@ Converts all symbols into the objects to be used." ;; Provide a good error msg. (unless comp (error "Could not find compiler match for source code extension \"%s\". -You may need to add support for this type of file." +You may need to add support for this type of file" (if sources (file-name-extension (car sources)) ""))) diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index 258917f01b9..e7f5640c07f 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el @@ -130,7 +130,7 @@ other meta-variable based on this name.") (defclass project-am-program (project-am-objectcode) ((ldadd :initarg :ldadd :documentation "Additional LD args." :initform nil)) - "A top level program to build") + "A top level program to build.") (defclass project-am-header (project-am-target) () @@ -154,7 +154,7 @@ other meta-variable based on this name.") (defclass project-am-lib (project-am-objectcode) nil - "A top level library to build") + "A top level library to build.") (defclass project-am-lisp (project-am-target) () @@ -705,7 +705,7 @@ Strip out duplicates, and recurse on variables." (oset this source (makefile-macro-file-list (project-am-macro this)))) (cl-defmethod project-rescan ((this project-am-lisp)) - "Rescan the lisp sources." + "Rescan the Lisp sources." (oset this source (makefile-macro-file-list (project-am-macro this)))) (cl-defmethod project-rescan ((this project-am-header)) diff --git a/lisp/cedet/ede/source.el b/lisp/cedet/ede/source.el index 5dbad4fcc00..338b03d25dc 100644 --- a/lisp/cedet/ede/source.el +++ b/lisp/cedet/ede/source.el @@ -91,12 +91,12 @@ that they are willing to use.") (ede-want-file-auxiliary-p this filename))) (cl-defmethod ede-want-file-source-p ((this ede-sourcecode) filename) - "Return non-nil if THIS will take FILENAME as an auxiliary ." + "Return non-nil if THIS will take FILENAME as an auxiliary." (let ((case-fold-search nil)) (string-match (oref this sourcepattern) filename))) (cl-defmethod ede-want-file-auxiliary-p ((this ede-sourcecode) filename) - "Return non-nil if THIS will take FILENAME as an auxiliary ." + "Return non-nil if THIS will take FILENAME as an auxiliary." (let ((case-fold-search nil)) (and (slot-boundp this 'auxsourcepattern) (oref this auxsourcepattern) diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 247f78ecff7..02d69a1686c 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -773,11 +773,11 @@ SYMBOL is a function that can be overridden." (defconst xref-mode-local-find-overloadable-regexp "(define-overload\\(able-function\\)? +%s" "Regexp used by `xref-find-definitions' when searching for a - mode-local overloadable function definition.") +mode-local overloadable function definition.") (defun xref-mode-local-find-override (meta-name) "Function used by `xref-find-definitions' when searching for an - override of a mode-local overloadable function. +override of a mode-local overloadable function. META-NAME is a cons (OVERLOADABLE-SYMBOL . MAJOR-MODE)." (let* ((override (car meta-name)) (mode (cdr meta-name)) diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index fb443fa4a32..205d6a812a2 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -271,7 +271,7 @@ a parse of the buffer.") (defsubst semantic-error-if-unparsed () "Raise an error if current buffer was not parsed by Semantic." (unless semantic-new-buffer-fcn-was-run - (error "Buffer was not parsed by Semantic."))) + (error "Buffer was not parsed by Semantic"))) (defsubst semantic--umatched-syntax-needs-refresh-p () "Return non-nil if the unmatched syntax cache needs a refresh. diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el index ccf405d62e2..1e8cd9af088 100644 --- a/lisp/cedet/semantic/analyze/complete.el +++ b/lisp/cedet/semantic/analyze/complete.el @@ -107,7 +107,7 @@ in a buffer." ;; Buffer was not parsed by Semantic. ;; Raise error if called interactively. (when (called-interactively-p 'any) - (error "Buffer was not parsed by Semantic.")))) + (error "Buffer was not parsed by Semantic")))) (defvar semantic--prefixtypes) diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index e7ecb61513f..c7d59def1f1 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -1937,7 +1937,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 + "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object. 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. @@ -2034,7 +2034,7 @@ for arguments compared." (if blankok t (semantic--tag-similar-names-p-default tag1 tag2 nil))) (define-mode-local-override semantic--tag-similar-types-p c-mode (tag1 tag2) - "For c-mode, deal with TAG1 and TAG2 being used in different namespaces. + "For `c-mode', deal with TAG1 and TAG2 being used in different namespaces. In this case, one type will be shorter than the other. Instead of fully resolving all namespaces currently in scope for both types, we simply compare as many elements as the shorter type @@ -2064,7 +2064,7 @@ provides." (define-mode-local-override semantic--tag-attribute-similar-p c-mode (attr value1 value2 ignorable-attributes) - "For c-mode, allow function :arguments to ignore the :name attributes." + "For `c-mode', allow function :arguments to ignore the :name attributes." (cond ((eq attr :arguments) (semantic--tag-attribute-similar-p-default attr value1 value2 (cons :name ignorable-attributes))) diff --git a/lisp/cedet/semantic/bovine/debug.el b/lisp/cedet/semantic/bovine/debug.el index 47850a5d1f4..64ccbb45195 100644 --- a/lisp/cedet/semantic/bovine/debug.el +++ b/lisp/cedet/semantic/bovine/debug.el @@ -113,7 +113,7 @@ LEXTOKEN, is a token returned by the lexer which is being matched." :documentation "An error condition caught in an action.") ) - "Debugger frame representation of a lisp error thrown during parsing.") + "Debugger frame representation of a Lisp error thrown during parsing.") (defun semantic-create-bovine-debug-error-frame (condition) "Create an error frame for bovine debugger. diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 5d34b308d0a..6cfbdd5f03f 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -930,7 +930,7 @@ inserted into the current context.") (cl-defmethod semantic-collector-calculate-completions-raw ((obj semantic-collector-analyze-completions) prefix _completionlist) - "calculate the completions for prefix from COMPLETIONLIST." + "Calculate the completions for prefix from COMPLETIONLIST." ;; if there are no completions yet, calculate them. (if (not (slot-boundp obj 'first-pass-completions)) (oset obj first-pass-completions diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el index 41e48b0bc30..c9ae68e9fa7 100644 --- a/lisp/cedet/semantic/db-el.el +++ b/lisp/cedet/semantic/db-el.el @@ -328,7 +328,7 @@ Like `semanticdb-find-tags-for-completion-method' for Emacs Lisp." ;; (cl-defmethod semanticdb-find-tags-external-children-of-type-method ((_table semanticdb-table-emacs-lisp) type &optional tags) - "Find all nonterminals which are child elements of TYPE + "Find all nonterminals which are child elements of TYPE. Optional argument TAGS is a list of tags to search. Return a list of tags." (if tags (cl-call-next-method) diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index c96a426280e..61baaa020f8 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el @@ -315,7 +315,7 @@ Default action as described in `semanticdb-find-translate-path'." ;;;###autoload (define-overloadable-function semanticdb-find-table-for-include (includetag &optional table) - "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object + "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object. 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-typecache.el b/lisp/cedet/semantic/db-typecache.el index c0fee3b2bd9..03158171a29 100644 --- a/lisp/cedet/semantic/db-typecache.el +++ b/lisp/cedet/semantic/db-typecache.el @@ -547,8 +547,7 @@ found tag to be loaded." (cl-defmethod semanticdb-typecache-for-database ((db semanticdb-project-database) &optional mode) "Return the typecache for the project database DB. -If there isn't one, create it. -" +If there isn't one, create it." (let ((lmode (or mode major-mode)) (cache (semanticdb-get-typecache db)) (stream nil) diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el index 4f96746166b..c13952265e6 100644 --- a/lisp/cedet/semantic/debug.el +++ b/lisp/cedet/semantic/debug.el @@ -108,7 +108,7 @@ These buffers are brought into view when layout occurs.") :documentation "Any active overlays being used to show the debug position.") ) - "Controls action when in `semantic-debug-mode'") + "Controls action when in `semantic-debug-mode'.") ;; Methods (cl-defmethod semantic-debug-set-frame ((iface semantic-debug-interface) frame) @@ -559,10 +559,8 @@ down to your parser later." (cl-defmethod semantic-debug-parser-frames ((_parser semantic-debug-parser)) "Return a list of frames for the current parser. A frame is of the form: - ( .. .what ? .. ) -" - (error "Parser has not implemented frame values") - ) + ( .. .what ? .. )" + (error "Parser has not implemented frame values")) (provide 'semantic/debug) diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el index 389b3062c5d..ae2895c2b93 100644 --- a/lisp/cedet/semantic/decorate/include.el +++ b/lisp/cedet/semantic/decorate/include.el @@ -66,7 +66,7 @@ Used by the decoration style: `semantic-decoration-on-includes'." (easy-menu-define semantic-decoration-on-include-menu semantic-decoration-on-include-map - "Include Menu" + "Include Menu." (list "Include" ["What Is This?" semantic-decoration-include-describe @@ -124,7 +124,7 @@ Used by the decoration style: `semantic-decoration-on-unknown-includes'." (easy-menu-define semantic-decoration-on-unknown-include-menu semantic-decoration-on-unknown-include-map - "Unknown Include Menu" + "Unknown Include Menu." (list "Unknown Include" ["What Is This?" semantic-decoration-unknown-include-describe @@ -179,7 +179,7 @@ Used by the decoration style: `semantic-decoration-on-fileless-includes'." (easy-menu-define semantic-decoration-on-fileless-include-menu semantic-decoration-on-fileless-include-map - "Fileless Include Menu" + "Fileless Include Menu." (list "Fileless Include" ["What Is This?" semantic-decoration-fileless-include-describe @@ -234,7 +234,7 @@ Used by the decoration style: `semantic-decoration-on-unparsed-includes'." (easy-menu-define semantic-decoration-on-unparsed-include-menu semantic-decoration-on-unparsed-include-map - "Unparsed Include Menu" + "Unparsed Include Menu." (list "Unparsed Include" ["What Is This?" semantic-decoration-unparsed-include-describe diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el index 19d4184fa45..9a4d412d5d3 100644 --- a/lisp/cedet/semantic/ede-grammar.el +++ b/lisp/cedet/semantic/ede-grammar.el @@ -185,7 +185,7 @@ max-lisp-eval-depth 700)'\n" (cl-defmethod ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar)) "Insert dist dependencies, or intermediate targets. -This makes sure that all grammar lisp files are created before the dist +This makes sure that all grammar Lisp files are created before the dist runs, so they are always up to date. Argument THIS is the target that should insert stuff." (cl-call-next-method) diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index 4ad70ff7c64..16e8ce8de95 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -284,7 +284,7 @@ later installation should be done in MODE hook." (defvar semantic-current-input-throw-symbol nil "The current throw symbol for `semantic-exit-on-input'.") (defvar semantic--on-input-start-marker nil - "The marker when starting a semantic-exit-on-input form.") + "The marker when starting a `semantic-exit-on-input' form.") (defmacro semantic-exit-on-input (symbol &rest forms) "Using SYMBOL as an argument to `throw', execute FORMS. diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 4c3bb6c238b..33c66da9a62 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el @@ -840,7 +840,7 @@ If optional argument FORCE is non-nil, unconditionally re-generate the Lisp code." (interactive "P") (unless (semantic-active-p) - (error "You have to activate semantic-mode to create a package.")) + (error "You have to activate semantic-mode to create a package")) (setq force (or force current-prefix-arg)) (semantic-fetch-tags) (let* ( diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index c058e8a8b50..b1805f720d0 100644 --- a/lisp/cedet/semantic/idle.el +++ b/lisp/cedet/semantic/idle.el @@ -1070,7 +1070,7 @@ be called." (easy-menu-define semantic-idle-breadcrumbs-popup-menu semantic-idle-breadcrumbs-popup-map - "Semantic Breadcrumbs Mode Menu" + "Semantic Breadcrumbs Mode Menu." (list "Breadcrumb Tag" (vector diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el index e06a3c10078..53745b429a2 100644 --- a/lisp/cedet/semantic/symref/grep.el +++ b/lisp/cedet/semantic/symref/grep.el @@ -39,7 +39,7 @@ ) "A symref tool implementation using grep. This tool uses EDE to find the root of the project, then executes -find-grep in the project. The output is parsed for hits and +`find-grep' in the project. The output is parsed for hits and those hits returned.") (defvar semantic-symref-filepattern-alist diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index 2e447bbc582..b1b36132b35 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -152,7 +152,7 @@ Display the references in `semantic-symref-results-mode'." (easy-menu-define semantic-symref-list-menu semantic-symref-results-mode-map - "Symref Mode Menu" + "Symref Mode Menu." semantic-symref-list-menu-entries) (defcustom semantic-symref-auto-expand-results nil diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index b6386d71db0..a86ed020bbb 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -119,8 +119,7 @@ Statement that represents a file from which more tags can be found. Statement that declares this file's package name. @item code Code that has not name or binding to any other symbol, such as in a script. -@end table -" +@end table" (nth 1 tag)) (defsubst semantic-tag-attributes (tag) @@ -703,7 +702,7 @@ It is safe for FILTER to modify the input tag and return it." It is safe to modify ATTR, and return a permutation of that list. -FILTER takes TAG as an argument, and should returns a semantic-tag. +FILTER takes TAG as an argument, and should return a semantic-tag. It is safe for FILTER to modify the input tag and return it." (when (car attrs) (when (not (symbolp (car attrs))) (error "Bad Attribute List in tag")) @@ -716,7 +715,7 @@ It is safe for FILTER to modify the input tag and return it." It is safe to modify VALUE, and return a permutation of that list. -FILTER takes TAG as an argument, and should returns a semantic-tag. +FILTER takes TAG as an argument, and should return a semantic-tag. It is safe for FILTER to modify the input tag and return it." (cond ;; Another tag. @@ -735,7 +734,7 @@ It is safe for FILTER to modify the input tag and return it." It is safe to modify the TAGS list, and return a permutation of that list. -FILTER takes TAG as an argument, and should returns a semantic-tag. +FILTER takes TAG as an argument, and should return a semantic-tag. It is safe for FILTER to modify the input tag and return it." (when (car tags) (if (semantic-tag-p (car tags)) @@ -1309,12 +1308,12 @@ This function is overridable with the symbol `insert-foreign-tag'." ;;; Support log modes here (define-mode-local-override semantic-insert-foreign-tag log-edit-mode (foreign-tag) - "Insert foreign tags into log-edit mode." + "Insert foreign tags into `log-edit' mode." (insert (concat "(" (semantic-format-tag-name foreign-tag) "): "))) (define-mode-local-override semantic-insert-foreign-tag change-log-mode (foreign-tag) - "Insert foreign tags into log-edit mode." + "Insert foreign tags into `log-edit' mode." (insert (concat "(" (semantic-format-tag-name foreign-tag) "): "))) diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el index 106862837a1..5ce1108044a 100644 --- a/lisp/cedet/semantic/util-modes.el +++ b/lisp/cedet/semantic/util-modes.el @@ -565,7 +565,7 @@ to indicate a parse in progress." (easy-menu-define semantic-stickyfunc-popup-menu semantic-stickyfunc-mode-map - "Stickyfunc Menu" + "Stickyfunc Menu." '("Stickyfunc Mode" :visible (progn nil) [ "Copy Headerline Tag" senator-copy-tag :active (semantic-current-tag) @@ -837,7 +837,7 @@ Used by `semantic-highlight-func-mode'.") (easy-menu-define semantic-highlight-func-popup-menu semantic-highlight-func-mode-map - "Highlight-Func Menu" + "Highlight-Func Menu." '("Highlight-Func Mode" :visible (progn nil) [ "Copy Tag" senator-copy-tag :active (semantic-current-tag) diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el index c49237b94cf..fe887c281c3 100644 --- a/lisp/cedet/srecode/ctxt.el +++ b/lisp/cedet/srecode/ctxt.el @@ -60,7 +60,7 @@ Some useful context values used by the provided srecode templates are: \"pure\" - and those virtual items are pure virtual \"type\" - In or near type declarations. \"comment\" - In a comment in a block of code - -- these items show up at the end of the context list. -- + -- these items show up at the end of the context list. -- \"public\", \"protected\", \"private\" - In or near a section of public/protected/private entries. \"code\" - In a block of code. diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 5da045e17f1..d6dfc58411e 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el @@ -410,7 +410,7 @@ OTHERDICT." "Return information about DICT's value for NAME. DICT is a dictionary, and NAME is a string that is treated as the name of an entry in the dictionary. If such an entry exists, its -value is returned. Otherwise, nil is returned. Normally, the +value is returned. Otherwise, nil is returned. Normally, the lookup is recursive in the sense that the parent of DICT is searched for NAME if it is not found in DICT. This recursive lookup can be disabled by the optional argument NON-RECURSIVE. diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el index 101246cae6f..fbb6984dc15 100644 --- a/lisp/cedet/srecode/semantic.el +++ b/lisp/cedet/srecode/semantic.el @@ -201,7 +201,7 @@ variable default values, and other things." (let ((tag (or srecode-semantic-selected-tag (srecode-semantic-tag-from-kill-ring)))) (when (not tag) - (error "No tag for current template. Use the semantic kill-ring.")) + (error "No tag for current template. Use the semantic kill-ring")) (srecode-semantic-apply-tag-to-dict (srecode-semantic-tag (semantic-tag-name tag) :prime tag) |