Fix typos in docstrings, error messages, etc.
This commit is contained in:
Juanma Barranquero
parent
33972e8014
commit
db9e401b3b
20 changed files with 235 additions and 148 deletions
|
|
@ -1,3 +1,83 @@
|
|||
2010-01-18 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* cedet/ede/locate.el (ede-locate-file-in-project)
|
||||
(ede-locate-file-in-project-impl): Fix typos in docstrings.
|
||||
(ede-enable-locate-on-project): Fix typos in error messages.
|
||||
|
||||
* cedet/semantic/util-modes.el (semantic-unmatched-syntax-face)
|
||||
(semantic-stickyfunc-old-hlf, semantic-stickyfunc-header-line-format)
|
||||
(semantic-stickyfunc-sticky-classes, semantic-highlight-func-mode-setup)
|
||||
(semantic-stickyfunc-fetch-stickyline): Fix typos in docstrings.
|
||||
(semantic-stickyfunc-popup-menu, semantic-highlight-func-popup-menu):
|
||||
Fix typos in menu help.
|
||||
|
||||
* emacs-lisp/chart.el (chart-file-count, chart-rmail-from):
|
||||
Fix typos in chart titles.
|
||||
|
||||
* whitespace.el (whitespace-style, global-whitespace-newline-mode):
|
||||
* cedet/semantic.el (semantic-require-version, semantic--buffer-cache)
|
||||
(semantic-unmatched-syntax-cache-check, semantic-unmatched-syntax-hook)
|
||||
(semantic--before-fetch-tags-hook, semantic-new-buffer-fcn-was-run)
|
||||
(semantic--umatched-syntax-needs-refresh-p, semantic-elapsed-time)
|
||||
(semantic-parse-stream, semantic-parse-region)
|
||||
(semantic-parse-region-default, semantic--set-buffer-cache)
|
||||
(semantic-minimum-working-buffer-size, semantic-refresh-tags-safe)
|
||||
(semantic-bovinate-toplevel, semantic-load-system-cache-loaded)
|
||||
(semantic-default-submodes):
|
||||
* cedet/semantic/db-ebrowse.el (semanticdb-table-ebrowse)
|
||||
(semanticdb-create-ebrowse-database)
|
||||
(semanticdb-find-tags-for-completion-method)
|
||||
(semanticdb-find-tags-by-class-method)
|
||||
(semanticdb-deep-find-tags-by-name-method)
|
||||
(semanticdb-deep-find-tags-for-completion-method):
|
||||
* cedet/semantic/db-el.el (semanticdb-elisp-mapatom-collector)
|
||||
(semanticdb-find-tags-by-name-method, emacs-lisp-mode)
|
||||
(semanticdb-find-tags-for-completion-method)
|
||||
(semanticdb-find-tags-by-class-method)
|
||||
(semanticdb-deep-find-tags-for-completion-method):
|
||||
* cedet/semantic/db-find.el (semanticdb-find-translate-path)
|
||||
(semanticdb-find-need-cache-update-p, semanticdb-find-result-with-nil-p)
|
||||
(semanticdb-find-scanned-include-tags, semanticdb-find-tags-collector)
|
||||
(semanticdb-find-tags-by-name-method)
|
||||
(semanticdb-find-tags-by-name-regexp-method)
|
||||
(semanticdb-find-tags-for-completion-method)
|
||||
(semanticdb-find-tags-by-class-method)
|
||||
(semanticdb-find-tags-external-children-of-type-method)
|
||||
(semanticdb-find-tags-subclasses-of-type-method)
|
||||
(semanticdb-deep-find-tags-by-name-method)
|
||||
(semanticdb-deep-find-tags-by-name-regexp-method)
|
||||
(semanticdb-deep-find-tags-for-completion-method):
|
||||
* cedet/semantic/db-global.el (semanticdb-enable-gnu-global-hook)
|
||||
(semanticdb-enable-gnu-global-in-buffer)
|
||||
(semanticdb-find-tags-for-completion-method)
|
||||
(semanticdb-deep-find-tags-by-name-method)
|
||||
(semanticdb-deep-find-tags-for-completion-method):
|
||||
* cedet/semantic/db-javascript.el (semanticdb-javascript-tags)
|
||||
(javascript-mode, semanticdb-find-translate-path)
|
||||
(semanticdb-find-tags-for-completion-method)
|
||||
(semanticdb-find-tags-by-class-method)
|
||||
(semanticdb-deep-find-tags-by-name-method)
|
||||
(semanticdb-deep-find-tags-for-completion-method)
|
||||
(semanticdb-find-tags-external-children-of-type-method):
|
||||
* cedet/semantic/idle.el (semantic-idle-work-core-handler)
|
||||
(define-semantic-idle-service, semantic-idle-summary-useful-context-p)
|
||||
(global-semantic-idle-scheduler-mode):
|
||||
* cedet/srecode/dictionary.el (srecode-field-value)
|
||||
(srecode-dictionary-add-section-dictionary):
|
||||
* emacs-lisp/eieio.el (eieio-error-unsupported-class-tags)
|
||||
(eieio-generic-form, eieio-help-mode-augmentation-maybee, eieio-browse)
|
||||
(describe-class, eieio-describe-generic, describe-generic):
|
||||
* emacs-lisp/eieio-speedbar.el (eieio-speedbar-handle-click)
|
||||
(eieio-speedbar-expand):
|
||||
* emulation/viper-cmd.el (viper-exec-form-in-vi)
|
||||
(viper-exec-form-in-emacs, viper-harness-minor-mode, viper-ESC)
|
||||
(viper-repeat, viper-replace-state-exit-cmd, viper-toggle-search-style)
|
||||
(viper-del-backward-char-in-replace, viper-backward-indent)
|
||||
(viper-brac-function, viper-register-to-point, viper-submit-report):
|
||||
* net/tramp.el (tramp-remote-coding-commands):
|
||||
* term/x-win.el (emacs-session-save, x-menu-bar-open, icon-map-list):
|
||||
Fix typos in docstrings.
|
||||
|
||||
2010-01-17 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* vc.el (with-vc-properties): Deal with directory arguments. (Bug#5298)
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@ based on `ede-locate-setup-options'."
|
|||
(setq ans 'ede-locate-base))
|
||||
(oset proj locate-obj (make-instance ans "Loc" :root root))
|
||||
(when (called-interactively-p 'interactive)
|
||||
(message "Setting locator to %s." ans))
|
||||
(message "Setting locator to %s" ans))
|
||||
))
|
||||
|
||||
;;; LOCATE BASECLASS
|
||||
|
|
@ -142,9 +142,9 @@ based on `ede-locate-setup-options'."
|
|||
(defmethod ede-locate-file-in-project ((loc ede-locate-base)
|
||||
filesubstring
|
||||
)
|
||||
"Locate with LOC occurances of FILESUBSTRING.
|
||||
"Locate with LOC occurrences of FILESUBSTRING.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
(let ((ans (ede-locate-file-in-project-impl loc filesubstring))
|
||||
)
|
||||
(oset loc file filesubstring)
|
||||
|
|
@ -154,9 +154,9 @@ that crated this ede locat object."
|
|||
(defmethod ede-locate-file-in-project-impl ((loc ede-locate-base)
|
||||
filesubstring
|
||||
)
|
||||
"Locate with LOC occurances of FILESUBSTRING.
|
||||
"Locate with LOC occurrences of FILESUBSTRING.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
nil
|
||||
)
|
||||
|
||||
|
|
@ -180,9 +180,9 @@ configure the use of EDE locate.")
|
|||
|
||||
(defmethod ede-locate-file-in-project-impl ((loc ede-locate-locate)
|
||||
filesubstring)
|
||||
"Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
|
||||
"Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
;; We want something like:
|
||||
;; /my/project/root*/filesubstring.c
|
||||
(let* ((searchstr (concat (directory-file-name (oref loc root))
|
||||
|
|
@ -235,9 +235,9 @@ variable `cedet-global-command'.")
|
|||
|
||||
(defmethod ede-locate-file-in-project-impl ((loc ede-locate-global)
|
||||
filesubstring)
|
||||
"Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
|
||||
"Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
(require 'cedet-global)
|
||||
(let ((default-directory (oref loc root)))
|
||||
(cedet-gnu-global-expand-filename filesubstring)))
|
||||
|
|
@ -273,9 +273,9 @@ file name searching variable `cedet-idutils-file-command'.")
|
|||
|
||||
(defmethod ede-locate-file-in-project-impl ((loc ede-locate-idutils)
|
||||
filesubstring)
|
||||
"Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
|
||||
"Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
(require 'cedet-idutils)
|
||||
(let ((default-directory (oref loc root)))
|
||||
(cedet-idutils-expand-filename filesubstring)))
|
||||
|
|
@ -309,9 +309,9 @@ file name searching variable `cedet-cscope-file-command'.")
|
|||
|
||||
(defmethod ede-locate-file-in-project-impl ((loc ede-locate-cscope)
|
||||
filesubstring)
|
||||
"Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
|
||||
"Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
|
||||
Searches are done under the current root of the EDE project
|
||||
that crated this ede locat object."
|
||||
that created this EDE locate object."
|
||||
(let ((default-directory (oref loc root)))
|
||||
(cedet-cscope-expand-filename filesubstring)))
|
||||
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@
|
|||
(declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse")
|
||||
|
||||
(defun semantic-require-version (major minor &optional beta)
|
||||
"Non-nil if this version of semantic does not satisfy a specific version.
|
||||
"Non-nil if this version of Semantic does not satisfy a specific version.
|
||||
Arguments can be:
|
||||
|
||||
(MAJOR MINOR &optional BETA)
|
||||
|
|
@ -130,7 +130,7 @@ this is returned instead of re-parsing the buffer.
|
|||
DO NOT USE THIS VARIABLE IN PROGRAMS.
|
||||
|
||||
If you need a tag list, use `semantic-fetch-tags'. If you need the
|
||||
cached values for some reason, chances are you can, add a hook to
|
||||
cached values for some reason, chances are you can add a hook to
|
||||
`semantic-after-toplevel-cache-change-hook'.")
|
||||
(make-variable-buffer-local 'semantic--buffer-cache)
|
||||
(semantic-varalias-obsolete 'semantic-toplevel-bovine-cache
|
||||
|
|
@ -141,7 +141,7 @@ cached values for some reason, chances are you can, add a hook to
|
|||
(make-variable-buffer-local 'semantic-unmatched-syntax-cache)
|
||||
|
||||
(defvar semantic-unmatched-syntax-cache-check nil
|
||||
"Non nil if the unmatched syntax cache is out of date.
|
||||
"Non-nil if the unmatched syntax cache is out of date.
|
||||
This is tracked with `semantic-change-function'.")
|
||||
(make-variable-buffer-local 'semantic-unmatched-syntax-cache-check)
|
||||
|
||||
|
|
@ -154,18 +154,18 @@ will not change the tag structure, such as adding or updating
|
|||
`top-level' comments.")
|
||||
|
||||
(defvar semantic-unmatched-syntax-hook nil
|
||||
"Hooks run when semantic detects syntax not matched in a grammar.
|
||||
"Hooks run when Semantic detects syntax not matched in a grammar.
|
||||
Each individual piece of syntax (such as a symbol or punctuation
|
||||
character) is called with this hook when it doesn't match in the
|
||||
grammar, and multiple unmatched syntax elements are not grouped
|
||||
together. Each hook is called with one argument, which is a list of
|
||||
syntax tokens created by the semantic lexer. Use the functions
|
||||
together. Each hook is called with one argument, which is a list
|
||||
of syntax tokens created by the semantic lexer. Use the functions
|
||||
`semantic-lex-token-start', `semantic-lex-token-end' and
|
||||
`semantic-lex-token-text' to get information about these tokens. The
|
||||
current buffer is the buffer these tokens are derived from.")
|
||||
`semantic-lex-token-text' to get information about these tokens.
|
||||
The current buffer is the buffer these tokens are derived from.")
|
||||
|
||||
(defvar semantic--before-fetch-tags-hook nil
|
||||
"Hooks run before a buffer is parses for tags.
|
||||
"Hooks run before a buffer is parsed for tags.
|
||||
It is called before any request for tags is made via the function
|
||||
`semantic-fetch-tags' by an application.
|
||||
If any hook returns a nil value, the cached value is returned
|
||||
|
|
@ -311,7 +311,7 @@ a parse of the buffer.")
|
|||
'semantic-init-db-hook "23.2")
|
||||
|
||||
(defvar semantic-new-buffer-fcn-was-run nil
|
||||
"Non nil after `semantic-new-buffer-fcn' has been executed.")
|
||||
"Non-nil after `semantic-new-buffer-fcn' has been executed.")
|
||||
(make-variable-buffer-local 'semantic-new-buffer-fcn-was-run)
|
||||
|
||||
(defsubst semantic-active-p ()
|
||||
|
|
@ -320,7 +320,7 @@ a parse of the buffer.")
|
|||
|
||||
(defsubst semantic--umatched-syntax-needs-refresh-p ()
|
||||
"Return non-nil if the unmatched syntax cache needs a refresh.
|
||||
That is if it is dirty or if the current parse tree isn't up to date."
|
||||
That is, if it is dirty or if the current parse tree isn't up to date."
|
||||
(or semantic-unmatched-syntax-cache-check
|
||||
(not (semantic-parse-tree-up-to-date-p))))
|
||||
|
||||
|
|
@ -377,7 +377,7 @@ to use Semantic, and `semantic-init-hook' is run."
|
|||
Do not set this yourself. Call `semantic-debug'.")
|
||||
|
||||
(defun semantic-elapsed-time (start end)
|
||||
"Copied from elp.el. Was elp-elapsed-time.
|
||||
"Copied from elp.el. Was `elp-elapsed-time'.
|
||||
Argument START and END bound the time being calculated."
|
||||
(+ (* (- (car end) (car start)) 65536.0)
|
||||
(- (car (cdr end)) (car (cdr start)))
|
||||
|
|
@ -410,14 +410,14 @@ the output buffer."
|
|||
(define-overloadable-function semantic-parse-stream (stream nonterminal)
|
||||
"Parse STREAM, starting at the first NONTERMINAL rule.
|
||||
For bovine and wisent based parsers, STREAM is from the output of
|
||||
`semantic-lex', and NONTERMINAL is a rule in the apropriate language
|
||||
`semantic-lex', and NONTERMINAL is a rule in the appropriate language
|
||||
specific rules file.
|
||||
The default parser table used for bovine or wisent based parsers is
|
||||
`semantic--parse-table'.
|
||||
|
||||
Must return a list: (STREAM TAGS) where STREAM is the unused elements
|
||||
from STREAM, and TAGS is the list of semantic tags found, usually only
|
||||
one tag is returned with the exception of compound statements")
|
||||
from STREAM, and TAGS is the list of semantic tags found; usually only
|
||||
one tag is returned with the exception of compound statements.")
|
||||
|
||||
(define-overloadable-function semantic-parse-changes ()
|
||||
"Reparse changes in the current buffer.
|
||||
|
|
@ -433,7 +433,7 @@ will be silently ignored.
|
|||
|
||||
Optional arguments:
|
||||
NONTERMINAL is the rule to start parsing at.
|
||||
DEPTH specifies the lexical depth to decend for parser that use
|
||||
DEPTH specifies the lexical depth to descend for parser that use
|
||||
lexical analysis as their first step.
|
||||
RETURNONERROR specifies that parsing should stop on the first
|
||||
unmatched syntax encountered. When nil, parsing skips the syntax,
|
||||
|
|
@ -447,8 +447,8 @@ to cook raw tags.")
|
|||
(defun semantic-parse-region-default
|
||||
(start end &optional nonterminal depth returnonerror)
|
||||
"Parse the area between START and END, and return any tags found.
|
||||
If END needs to be extended due to a lexical token being too large, it
|
||||
will be silently ignored.
|
||||
If END needs to be extended due to a lexical token being too large,
|
||||
it will be silently ignored.
|
||||
Optional arguments:
|
||||
NONTERMINAL is the rule to start parsing at if it is known.
|
||||
DEPTH specifies the lexical depth to scan.
|
||||
|
|
@ -532,7 +532,7 @@ is requested."
|
|||
(defvar semantic-bovinate-nonterminal-check-obarray)
|
||||
|
||||
(defun semantic--set-buffer-cache (tagtable)
|
||||
"Set the toplevel cache cache to TAGTABLE."
|
||||
"Set the toplevel tag cache to TAGTABLE."
|
||||
(setq semantic--buffer-cache tagtable
|
||||
semantic-unmatched-syntax-cache-check nil)
|
||||
;; This is specific to the bovine parser.
|
||||
|
|
@ -560,7 +560,7 @@ is requested."
|
|||
|
||||
(defvar semantic-minimum-working-buffer-size (* 1024 5)
|
||||
"*The minimum size of a buffer before working messages are displayed.
|
||||
Buffers smaller than will parse silently.
|
||||
Buffers smaller than this will parse silently.
|
||||
Buffers larger than this will display the working progress bar.")
|
||||
|
||||
(defsubst semantic-parser-working-message (&optional arg)
|
||||
|
|
@ -652,7 +652,7 @@ was marked unparseable, then do nothing, and return the cache."
|
|||
semantic--buffer-cache)
|
||||
|
||||
(defun semantic-refresh-tags-safe ()
|
||||
"Refreshes the current buffer's tags safely.
|
||||
"Refresh the current buffer's tags safely.
|
||||
|
||||
Return non-nil if the refresh was successful.
|
||||
Return nil if there is some sort of syntax error preventing a reparse.
|
||||
|
|
@ -694,7 +694,7 @@ Does nothing if the current buffer doesn't need reparsing."
|
|||
lexically-safe))))
|
||||
|
||||
(defun semantic-bovinate-toplevel (&optional ignored)
|
||||
"Backward Compatibility Function."
|
||||
"Backward compatibility function."
|
||||
(semantic-fetch-tags))
|
||||
(make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags "23.2")
|
||||
|
||||
|
|
@ -1017,7 +1017,7 @@ Throw away all the old tags, and recreate the tag database."
|
|||
;; auxiliary minor modes.
|
||||
|
||||
(defvar semantic-load-system-cache-loaded nil
|
||||
"Non nil when the Semantic system caches have been loaded.
|
||||
"Non-nil when the Semantic system caches have been loaded.
|
||||
Prevent this load system from loading files in twice.")
|
||||
|
||||
(defconst semantic-submode-list
|
||||
|
|
|
|||
|
|
@ -90,7 +90,7 @@ be searched."
|
|||
:initarg :global-extract
|
||||
:documentation
|
||||
"Table of ebrowse tags specific to this file.
|
||||
This table is compisited from the ebrowse *Globals* section.")
|
||||
This table is composited from the ebrowse *Globals* section.")
|
||||
)
|
||||
"A table for returning search results from ebrowse.")
|
||||
|
||||
|
|
@ -128,7 +128,7 @@ EBROWSE is a C/C++ parser for use with `ebrowse' Emacs program.")
|
|||
)))
|
||||
|
||||
(defun semanticdb-create-ebrowse-database (dir)
|
||||
"Create an EBROSE database for directory DIR.
|
||||
"Create an EBROWSE database for directory DIR.
|
||||
The database file is stored in ~/.semanticdb, or whichever directory
|
||||
is specified by `semanticdb-default-save-directory'."
|
||||
(interactive "DDirectory: ")
|
||||
|
|
@ -597,7 +597,7 @@ Return a list of tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-for-completion-method
|
||||
((table semanticdb-table-ebrowse) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -607,7 +607,7 @@ Returns a table of all matching tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-by-class-method
|
||||
((table semanticdb-table-ebrowse) class &optional tags)
|
||||
"In TABLE, find all occurances of tags of CLASS.
|
||||
"In TABLE, find all occurrences of tags of CLASS.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -625,7 +625,7 @@ Returns a table of all matching tags."
|
|||
(defmethod semanticdb-deep-find-tags-by-name-method
|
||||
((table semanticdb-table-ebrowse) name &optional tags)
|
||||
"Find all tags name NAME in TABLE.
|
||||
Optional argument TAGS is a list of tags t
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-by-name-method' for ebrowse."
|
||||
;;(semanticdb-find-tags-by-name-method table name tags)
|
||||
(call-next-method))
|
||||
|
|
@ -640,7 +640,7 @@ Like `semanticdb-find-tags-by-name-method' for ebrowse."
|
|||
|
||||
(defmethod semanticdb-deep-find-tags-for-completion-method
|
||||
((table semanticdb-table-ebrowse) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-for-completion-method' for ebrowse."
|
||||
;;(semanticdb-find-tags-for-completion-method table prefix tags)
|
||||
|
|
|
|||
|
|
@ -76,7 +76,7 @@ It does not need refreshing."
|
|||
(defvar-mode-local emacs-lisp-mode semanticdb-find-default-throttle
|
||||
'(project omniscience)
|
||||
"Search project files, then search this omniscience database.
|
||||
It is not necessary to to system or recursive searching because of
|
||||
It is not necessary to do system or recursive searching because of
|
||||
the omniscience database.")
|
||||
|
||||
;;; Filename based methods
|
||||
|
|
@ -246,12 +246,12 @@ TOKTYPE is a hint to the type of tag desired."
|
|||
;;; Search Overrides
|
||||
;;
|
||||
(defvar semanticdb-elisp-mapatom-collector nil
|
||||
"Variable used to collect mapatoms output.")
|
||||
"Variable used to collect `mapatoms' output.")
|
||||
|
||||
(defmethod semanticdb-find-tags-by-name-method
|
||||
((table semanticdb-table-emacs-lisp) name &optional tags)
|
||||
"Find all tags name NAME in TABLE.
|
||||
Uses `inter-soft' to match NAME to emacs symbols.
|
||||
"Find all tags named NAME in TABLE.
|
||||
Uses `intern-soft' to match NAME to Emacs symbols.
|
||||
Return a list of tags."
|
||||
(if tags (call-next-method)
|
||||
;; No need to search. Use `intern-soft' which does the same thing for us.
|
||||
|
|
@ -281,7 +281,7 @@ Return a list of tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-for-completion-method
|
||||
((table semanticdb-table-emacs-lisp) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -290,7 +290,7 @@ Returns a table of all matching tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-by-class-method
|
||||
((table semanticdb-table-emacs-lisp) class &optional tags)
|
||||
"In TABLE, find all occurances of tags of CLASS.
|
||||
"In TABLE, find all occurrences of tags of CLASS.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -316,7 +316,7 @@ Like `semanticdb-find-tags-by-name-method' for Emacs Lisp."
|
|||
|
||||
(defmethod semanticdb-deep-find-tags-for-completion-method
|
||||
((table semanticdb-table-emacs-lisp) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-for-completion-method' for Emacs Lisp."
|
||||
(semanticdb-find-tags-for-completion-method table prefix tags))
|
||||
|
|
|
|||
|
|
@ -281,7 +281,7 @@ identified by translating PATH. Such searches use brute force to
|
|||
scan every available table.
|
||||
|
||||
The return value is a list of objects of type `semanticdb-table' or
|
||||
it's children. In the case of passing in a find result, the result
|
||||
their children. In the case of passing in a find result, the result
|
||||
is returned unchanged.
|
||||
|
||||
This routine uses `semanticdb-find-table-for-include' to translate
|
||||
|
|
@ -366,7 +366,7 @@ Default action as described in `semanticdb-find-translate-path'."
|
|||
ans))
|
||||
|
||||
(defun semanticdb-find-need-cache-update-p (table)
|
||||
"Non nil if the semanticdb TABLE cache needs to be updated."
|
||||
"Non-nil if the semanticdb TABLE cache needs to be updated."
|
||||
;; If we were passed in something related to a TABLE,
|
||||
;; do a caching lookup.
|
||||
(let* ((index (semanticdb-get-table-index table))
|
||||
|
|
@ -431,7 +431,7 @@ Default action as described in `semanticdb-find-translate-path'."
|
|||
"All include tags scanned, plus action taken on the tag.
|
||||
Each entry is an alist:
|
||||
(ACTION . TAG)
|
||||
where ACTION is one of 'scanned, 'duplicate, 'lost.
|
||||
where ACTION is one of 'scanned, 'duplicate, 'lost
|
||||
and TAG is a clone of the include tag that was found.")
|
||||
(make-variable-buffer-local 'semanticdb-find-scanned-include-tags)
|
||||
|
||||
|
|
@ -927,7 +927,7 @@ but should be good enough for debugging assertions."
|
|||
|
||||
(defun semanticdb-find-result-with-nil-p (resultp)
|
||||
"Non-nil of RESULTP is in the form of a semanticdb search result.
|
||||
nil is a valid value where a TABLE usually is, but only if the TAG
|
||||
The value nil is valid where a TABLE usually is, but only if the TAG
|
||||
results include overlays.
|
||||
This query only really tests the first entry in the list that is RESULTP,
|
||||
but should be good enough for debugging assertions."
|
||||
|
|
@ -1090,8 +1090,8 @@ Returns result."
|
|||
"Collect all tags returned by FUNCTION over PATH.
|
||||
The FUNCTION must take two arguments. The first is TABLE,
|
||||
which is a semanticdb table containing tags. The second argument
|
||||
to FUNCTION is TAGS. TAGS may be a list of tags. If TAGS is non-nil, then
|
||||
FUNCTION should search the TAG list, not through TABLE.
|
||||
to FUNCTION is TAGS. TAGS may be a list of tags. If TAGS is non-nil,
|
||||
then FUNCTION should search the TAG list, not through TABLE.
|
||||
|
||||
See `semanticdb-find-translate-path' for details on PATH.
|
||||
FIND-FILE-MATCH indicates that any time a match is found, the file
|
||||
|
|
@ -1296,38 +1296,38 @@ associated with that tag should be loaded into a buffer."
|
|||
|
||||
;;; Top level Searches
|
||||
(defmethod semanticdb-find-tags-by-name-method ((table semanticdb-abstract-table) name &optional tags)
|
||||
"In TABLE, find all occurances of tags with NAME.
|
||||
"In TABLE, find all occurrences of tags with NAME.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(semantic-find-tags-by-name name (or tags (semanticdb-get-tags table))))
|
||||
|
||||
(defmethod semanticdb-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags)
|
||||
"In TABLE, find all occurances of tags matching REGEXP.
|
||||
"In TABLE, find all occurrences of tags matching REGEXP.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(semantic-find-tags-by-name-regexp regexp (or tags (semanticdb-get-tags table))))
|
||||
|
||||
(defmethod semanticdb-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(semantic-find-tags-for-completion prefix (or tags (semanticdb-get-tags table))))
|
||||
|
||||
(defmethod semanticdb-find-tags-by-class-method ((table semanticdb-abstract-table) class &optional tags)
|
||||
"In TABLE, find all occurances of tags of CLASS.
|
||||
"In TABLE, find all occurrences of tags of CLASS.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(semantic-find-tags-by-class class (or tags (semanticdb-get-tags table))))
|
||||
|
||||
(defmethod semanticdb-find-tags-external-children-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
|
||||
"In TABLE, find all occurances of tags whose parent is the PARENT type.
|
||||
"In TABLE, find all occurrences of tags whose parent is the PARENT type.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(require 'semantic/find)
|
||||
(semantic-find-tags-external-children-of-type parent (or tags (semanticdb-get-tags table))))
|
||||
|
||||
(defmethod semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
|
||||
"In TABLE, find all occurances of tags whose parent is the PARENT type.
|
||||
"In TABLE, find all occurrences of tags whose parent is the PARENT type.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(require 'semantic/find)
|
||||
|
|
@ -1335,7 +1335,7 @@ Returns a table of all matching tags."
|
|||
|
||||
;;; Deep Searches
|
||||
(defmethod semanticdb-deep-find-tags-by-name-method ((table semanticdb-abstract-table) name &optional tags)
|
||||
"In TABLE, find all occurances of tags with NAME.
|
||||
"In TABLE, find all occurrences of tags with NAME.
|
||||
Search in all tags in TABLE, and all components of top level tags in
|
||||
TABLE.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
|
|
@ -1343,7 +1343,7 @@ Return a table of all matching tags."
|
|||
(semantic-find-tags-by-name name (semantic-flatten-tags-table (or tags (semanticdb-get-tags table)))))
|
||||
|
||||
(defmethod semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags)
|
||||
"In TABLE, find all occurances of tags matching REGEXP.
|
||||
"In TABLE, find all occurrences of tags matching REGEXP.
|
||||
Search in all tags in TABLE, and all components of top level tags in
|
||||
TABLE.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
|
|
@ -1351,7 +1351,7 @@ Return a table of all matching tags."
|
|||
(semantic-find-tags-by-name-regexp regexp (semantic-flatten-tags-table (or tags (semanticdb-get-tags table)))))
|
||||
|
||||
(defmethod semanticdb-deep-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Search in all tags in TABLE, and all components of top level tags in
|
||||
TABLE.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
|
|
|
|||
|
|
@ -66,7 +66,7 @@ in a GNU Global supported hierarchy."
|
|||
)
|
||||
|
||||
(defun semanticdb-enable-gnu-global-hook ()
|
||||
"Add support for GNU Global in the current buffer via semantic-init-hook.
|
||||
"Add support for GNU Global in the current buffer via `semantic-init-hook'.
|
||||
MODE is the major mode to support."
|
||||
(semanticdb-enable-gnu-global-in-buffer t))
|
||||
|
||||
|
|
@ -78,8 +78,8 @@ MODE is the major mode to support."
|
|||
|
||||
(defun semanticdb-enable-gnu-global-in-buffer (&optional dont-err-if-not-available)
|
||||
"Enable a GNU Global database in the current buffer.
|
||||
Argument DONT-ERR-IF-NOT-AVAILABLE will throw an error if GNU Global
|
||||
is not available for this directory."
|
||||
When GNU Global is not available for this directory, display a message
|
||||
if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else throw an error."
|
||||
(interactive "P")
|
||||
(if (cedet-gnu-global-root)
|
||||
(setq
|
||||
|
|
@ -168,7 +168,7 @@ Return a list of tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-for-completion-method
|
||||
((table semanticdb-table-global) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -195,7 +195,7 @@ Returns a table of all matching tags."
|
|||
(defmethod semanticdb-deep-find-tags-by-name-method
|
||||
((table semanticdb-table-global) name &optional tags)
|
||||
"Find all tags name NAME in TABLE.
|
||||
Optional argument TAGS is a list of tags t
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-by-name-method' for global."
|
||||
(semanticdb-find-tags-by-name-method table name tags))
|
||||
|
||||
|
|
@ -208,7 +208,7 @@ Like `semanticdb-find-tags-by-name-method' for global."
|
|||
|
||||
(defmethod semanticdb-deep-find-tags-for-completion-method
|
||||
((table semanticdb-table-global) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-for-completion-method' for global."
|
||||
(semanticdb-find-tags-for-completion-method table prefix tags))
|
||||
|
|
|
|||
|
|
@ -77,7 +77,7 @@
|
|||
(("uriComponent" variable nil nil nil)))
|
||||
nil nil))
|
||||
"Hard-coded list of javascript tags for semanticdb.
|
||||
See bottom of this file for instruction on managing this list.")
|
||||
See bottom of this file for instructions on managing this list.")
|
||||
|
||||
;;; Classes:
|
||||
(defclass semanticdb-table-javascript (semanticdb-search-results-table)
|
||||
|
|
@ -87,7 +87,7 @@ See bottom of this file for instruction on managing this list.")
|
|||
|
||||
(defclass semanticdb-project-database-javascript
|
||||
(semanticdb-project-database
|
||||
eieio-singleton ;this db is for js globals, so singleton is apropriate
|
||||
eieio-singleton ;this db is for js globals, so singleton is appropriate
|
||||
)
|
||||
((new-table-class :initform semanticdb-table-javascript
|
||||
:type class
|
||||
|
|
@ -107,7 +107,7 @@ See bottom of this file for instruction on managing this list.")
|
|||
(defvar-mode-local javascript-mode semanticdb-find-default-throttle
|
||||
'(project omniscience)
|
||||
"Search project files, then search this omniscience database.
|
||||
It is not necessary to to system or recursive searching because of
|
||||
It is not necessary to do system or recursive searching because of
|
||||
the omniscience database.")
|
||||
|
||||
;;; Filename based methods
|
||||
|
|
@ -157,7 +157,7 @@ local variable."
|
|||
;; to a search list.
|
||||
(define-mode-local-override semanticdb-find-translate-path javascript-mode
|
||||
(path brutish)
|
||||
"Return a list of semanticdb tables asociated with PATH.
|
||||
"Return a list of semanticdb tables associated with PATH.
|
||||
If brutish, do the default action.
|
||||
If not brutish, do the default action, and append the system
|
||||
database (if available.)"
|
||||
|
|
@ -216,7 +216,7 @@ Return a list of tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-for-completion-method
|
||||
((table semanticdb-table-javascript) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -226,7 +226,7 @@ Returns a table of all matching tags."
|
|||
|
||||
(defmethod semanticdb-find-tags-by-class-method
|
||||
((table semanticdb-table-javascript) class &optional tags)
|
||||
"In TABLE, find all occurances of tags of CLASS.
|
||||
"In TABLE, find all occurrences of tags of CLASS.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Returns a table of all matching tags."
|
||||
(if tags (call-next-method)
|
||||
|
|
@ -248,7 +248,7 @@ Returns a table of all matching tags."
|
|||
(defmethod semanticdb-deep-find-tags-by-name-method
|
||||
((table semanticdb-table-javascript) name &optional tags)
|
||||
"Find all tags name NAME in TABLE.
|
||||
Optional argument TAGS is a list of tags t
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-by-name-method' for javascript."
|
||||
(semanticdb-find-tags-by-name-method table name tags))
|
||||
|
||||
|
|
@ -261,7 +261,7 @@ Like `semanticdb-find-tags-by-name-method' for javascript."
|
|||
|
||||
(defmethod semanticdb-deep-find-tags-for-completion-method
|
||||
((table semanticdb-table-javascript) prefix &optional tags)
|
||||
"In TABLE, find all occurances of tags matching PREFIX.
|
||||
"In TABLE, find all occurrences of tags matching PREFIX.
|
||||
Optional argument TAGS is a list of tags to search.
|
||||
Like `semanticdb-find-tags-for-completion-method' for javascript."
|
||||
(semanticdb-find-tags-for-completion-method table prefix tags))
|
||||
|
|
@ -270,7 +270,7 @@ Like `semanticdb-find-tags-for-completion-method' for javascript."
|
|||
;;
|
||||
(defmethod semanticdb-find-tags-external-children-of-type-method
|
||||
((table semanticdb-table-javascript) 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 (call-next-method)
|
||||
|
|
|
|||
|
|
@ -367,7 +367,7 @@ Returns t if all processing succeeded."
|
|||
|
||||
(defun semantic-idle-work-core-handler ()
|
||||
"Core handler for idle work processing of long running tasks.
|
||||
Visits semantic controlled buffers, and makes sure all needed
|
||||
Visits Semantic controlled buffers, and makes sure all needed
|
||||
include files have been parsed, and that the typecache is up to date.
|
||||
Uses `semantic-idle-work-for-on-buffer' to do the work."
|
||||
(let ((errbuf nil)
|
||||
|
|
@ -577,7 +577,7 @@ Does nothing if the current buffer doesn't need reparsing."
|
|||
DOC will be a documentation string describing FORMS.
|
||||
FORMS will be called during idle time after the current buffer's
|
||||
semantic tag information has been updated.
|
||||
This routines creates the following functions and variables:"
|
||||
This routine creates the following functions and variables:"
|
||||
(let ((global (intern (concat "global-" (symbol-name name) "-mode")))
|
||||
(mode (intern (concat (symbol-name name) "-mode")))
|
||||
(hook (intern (concat (symbol-name name) "-mode-hook")))
|
||||
|
|
@ -764,7 +764,7 @@ specific to a major mode. For example, in jde mode:
|
|||
jde-java-font-lock-code-face)))")
|
||||
|
||||
(defun semantic-idle-summary-useful-context-p ()
|
||||
"Non-nil of we should show a summary based on context."
|
||||
"Non-nil if we should show a summary based on context."
|
||||
(if (and (boundp 'font-lock-mode)
|
||||
font-lock-mode
|
||||
(memq (get-text-property (point) 'face)
|
||||
|
|
@ -959,7 +959,7 @@ Call `semantic-symref-hits-in-region' to identify local references."
|
|||
;;;###autoload
|
||||
(defun global-semantic-idle-scheduler-mode (&optional arg)
|
||||
"Toggle global use of option `semantic-idle-scheduler-mode'.
|
||||
The idle scheduler with automatically reparse buffers in idle time,
|
||||
The idle scheduler will automatically reparse buffers in idle time,
|
||||
and then schedule other jobs setup with `semantic-idle-scheduler-add'.
|
||||
If ARG is positive, enable, if it is negative, disable.
|
||||
If ARG is nil, then toggle."
|
||||
|
|
|
|||
|
|
@ -767,7 +767,7 @@ This makes it appear that the first line of that tag is
|
|||
]
|
||||
[ "Narrow To Headerline Tag" senator-narrow-to-defun
|
||||
:active (semantic-current-tag)
|
||||
:help "Narrow to the bounds of the current tag."]
|
||||
:help "Narrow to the bounds of the current tag"]
|
||||
[ "Fold Headerline Tag" senator-fold-tag-toggle
|
||||
:active (semantic-current-tag)
|
||||
:style toggle
|
||||
|
|
@ -854,7 +854,7 @@ when it lands in the sticky line."
|
|||
:type 'string)
|
||||
|
||||
(defvar semantic-stickyfunc-old-hlf nil
|
||||
"Value of the header line when entering sticky func mode.")
|
||||
"Value of the header line when entering stickyfunc mode.")
|
||||
|
||||
(defconst semantic-stickyfunc-header-line-format
|
||||
(cond ((featurep 'xemacs)
|
||||
|
|
@ -868,7 +868,7 @@ when it lands in the sticky line."
|
|||
'(:eval (list semantic-stickyfunc-indent-string
|
||||
(semantic-stickyfunc-fetch-stickyline))))
|
||||
(t nil))
|
||||
"The header line format used by sticky func mode.")
|
||||
"The header line format used by stickyfunc mode.")
|
||||
|
||||
(defun semantic-stickyfunc-mode-setup ()
|
||||
"Setup option `semantic-stickyfunc-mode'.
|
||||
|
|
@ -936,7 +936,7 @@ minor mode is enabled."
|
|||
|
||||
(defvar semantic-stickyfunc-sticky-classes
|
||||
'(function type)
|
||||
"List of tag classes which sticky func will display in the header line.")
|
||||
"List of tag classes which stickyfunc will display in the header line.")
|
||||
(make-variable-buffer-local 'semantic-stickyfunc-sticky-classes)
|
||||
|
||||
(defun semantic-stickyfunc-tag-to-stick ()
|
||||
|
|
@ -953,7 +953,7 @@ minor mode is enabled."
|
|||
|
||||
(defun semantic-stickyfunc-fetch-stickyline ()
|
||||
"Make the function at the top of the current window sticky.
|
||||
Capture it's function declaration, and place it in the header line.
|
||||
Capture its function declaration, and place it in the header line.
|
||||
If there is no function, disable the header line."
|
||||
(let ((str
|
||||
(save-excursion
|
||||
|
|
@ -962,7 +962,7 @@ If there is no function, disable the header line."
|
|||
(end-of-line)
|
||||
;; Capture this function
|
||||
(let* ((tag (semantic-stickyfunc-tag-to-stick)))
|
||||
;; TAG is nil if there was nothing of the apropriate type there.
|
||||
;; TAG is nil if there was nothing of the appropriate type there.
|
||||
(if (not tag)
|
||||
;; Set it to be the text under the header line
|
||||
(buffer-substring (point-at-bol) (point-at-eol))
|
||||
|
|
@ -1080,7 +1080,7 @@ When enabled, the first line of the current tag is highlighted."
|
|||
]
|
||||
[ "Narrow To Tag" senator-narrow-to-defun
|
||||
:active (semantic-current-tag)
|
||||
:help "Narrow to the bounds of the current tag."]
|
||||
:help "Narrow to the bounds of the current tag"]
|
||||
[ "Fold Tag" senator-fold-tag-toggle
|
||||
:active (semantic-current-tag)
|
||||
:style toggle
|
||||
|
|
@ -1129,7 +1129,7 @@ Use the command `semantic-highlight-func-mode' to change this variable.")
|
|||
|
||||
(defun semantic-highlight-func-mode-setup ()
|
||||
"Setup option `semantic-highlight-func-mode'.
|
||||
For semantic enabled buffers, highlight the first line of the
|
||||
For Semantic enabled buffers, highlight the first line of the
|
||||
current tag declaration."
|
||||
(if semantic-highlight-func-mode
|
||||
(progn
|
||||
|
|
@ -1202,7 +1202,7 @@ function was called, move the overlay."
|
|||
(setq semantic-highlight-func-ct-overlay ol)
|
||||
)
|
||||
|
||||
;; TAG is nil if there was nothing of the apropriate type there.
|
||||
;; TAG is nil if there was nothing of the appropriate type there.
|
||||
(if (or (not tag) disable)
|
||||
;; No tag, make the overlay go away.
|
||||
(progn
|
||||
|
|
|
|||
|
|
@ -240,7 +240,7 @@ You can add several dictionaries to the same section macro.
|
|||
For each dictionary added to a macro, the block of codes in the
|
||||
template will be repeated.
|
||||
|
||||
If optional argument SHOW-ONLY is non-nil, then don't add a new dictionarly
|
||||
If optional argument SHOW-ONLY is non-nil, then don't add a new dictionary
|
||||
if there is already one in place. Also, don't add FIRST/LAST entries.
|
||||
These entries are not needed when we are just showing a section.
|
||||
|
||||
|
|
@ -402,7 +402,7 @@ FUNCTION and DICTIONARY are as for the baseclass."
|
|||
(defclass srecode-field-value (srecode-dictionary-compound-value)
|
||||
((firstinserter :initarg :firstinserter
|
||||
:documentation
|
||||
"The inserter object for the first occurance of this field.")
|
||||
"The inserter object for the first occurrence of this field.")
|
||||
(defaultvalue :initarg :defaultvalue
|
||||
:documentation
|
||||
"The default value for this inserter.")
|
||||
|
|
|
|||
|
|
@ -644,7 +644,7 @@ SORT-PRED if desired."
|
|||
;; Lets create the chart!
|
||||
(chart-bar-quickie 'vertical "Files Extension Distribution"
|
||||
extlst "File Extensions"
|
||||
cntlst "# of occurances"
|
||||
cntlst "# of occurrences"
|
||||
10
|
||||
'(lambda (a b) (> (cdr a) (cdr b))))
|
||||
))
|
||||
|
|
@ -740,9 +740,9 @@ SORT-PRED if desired."
|
|||
(setcar cell (1+ (car cell))))
|
||||
(setq nmlst (cons nam nmlst)
|
||||
cntlst (cons 1 cntlst))))))
|
||||
(chart-bar-quickie 'vertical "Username Occurance in RMAIL box"
|
||||
(chart-bar-quickie 'vertical "Username Occurrence in RMAIL box"
|
||||
nmlst "User Names"
|
||||
cntlst "# of occurances"
|
||||
cntlst "# of occurrences"
|
||||
10
|
||||
'(lambda (a b) (> (cdr a) (cdr b))))
|
||||
))
|
||||
|
|
|
|||
|
|
@ -227,7 +227,7 @@ attributes. These default objects will be pulled up in a custom
|
|||
object edit buffer doing an in-place edit.
|
||||
|
||||
If your object represents some other item, override this method
|
||||
and take the apropriate action."
|
||||
and take the appropriate action."
|
||||
(require 'eieio-custom)
|
||||
(speedbar-with-attached-buffer
|
||||
(eieio-customize-object object))
|
||||
|
|
@ -327,7 +327,7 @@ Argument DEPTH is the depth at which the tag line is inserted."
|
|||
|
||||
(defmethod eieio-speedbar-expand ((object eieio-speedbar) depth)
|
||||
"Expand OBJECT at indentation DEPTH.
|
||||
Inserts a list of new tag lines representing expanded elements withing
|
||||
Inserts a list of new tag lines representing expanded elements within
|
||||
OBJECT."
|
||||
(let ((children (eieio-speedbar-object-children object)))
|
||||
(cond ((eieio-object-p (car children))
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@
|
|||
"*This hook is executed, then cleared each time `defclass' is called.")
|
||||
|
||||
(defvar eieio-error-unsupported-class-tags nil
|
||||
"*Non nil to throw an error if an encountered tag us unsupported.
|
||||
"*Non-nil to throw an error if an encountered tag us unsupported.
|
||||
This may prevent classes from CLOS applications from being used with EIEIO
|
||||
since EIEIO does not support all CLOS tags.")
|
||||
|
||||
|
|
@ -2021,7 +2021,7 @@ This should only be called from a generic function."
|
|||
(run-hook-with-args 'eieio-pre-method-execution-hooks
|
||||
primarymethodlist)
|
||||
|
||||
;; Now loop through all occurances forms which we must execute
|
||||
;; Now loop through all occurrences forms which we must execute
|
||||
;; (which are happily sorted now) and execute them all!
|
||||
(let ((rval nil) (lastval nil) (rvalever nil) (found nil))
|
||||
(while lambdas
|
||||
|
|
@ -2101,7 +2101,7 @@ for this common case to improve performance."
|
|||
(setq primarymethodlist ;; Re-use even with bad name here
|
||||
(eieiomt-method-list method method-primary mclass))
|
||||
|
||||
;; Now loop through all occurances forms which we must execute
|
||||
;; Now loop through all occurrences forms which we must execute
|
||||
;; (which are happily sorted now) and execute them all!
|
||||
(let* ((rval nil) (lastval nil) (rvalever nil)
|
||||
(scoped-class (cdr lambdas))
|
||||
|
|
@ -2331,7 +2331,7 @@ nil for superclasses. This function performs no type checking!"
|
|||
If CLASS is not a class then use `generic' instead. If class has
|
||||
no form, but has a parent class, then trace to that parent class.
|
||||
The first time a form is requested from a symbol, an optimized path
|
||||
is memorized for future faster use."
|
||||
is memorized for faster future use."
|
||||
(let ((emto (aref (get method 'eieio-method-obarray)
|
||||
(if class key (+ key 3)))))
|
||||
(if (class-p class)
|
||||
|
|
@ -2814,13 +2814,13 @@ Optional argument NOESCAPE is passed to `prin1-to-string' when appropriate."
|
|||
;;; Autoloading some external symbols, and hooking into the help system
|
||||
;;
|
||||
|
||||
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for eieio.")
|
||||
(autoload 'eieio-browse "eieio-opt" "Create an object browser window" t)
|
||||
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for EIEIO.")
|
||||
(autoload 'eieio-browse "eieio-opt" "Create an object browser window." t)
|
||||
(autoload 'eieio-describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
|
||||
(autoload 'eieio-describe-constructor "eieio-opt" "Describe the constructor function FCN." t)
|
||||
(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
|
||||
(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
|
||||
(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
|
||||
(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol." t)
|
||||
(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
|
||||
(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
|
||||
|
||||
(autoload 'customize-object "eieio-custom" "Create a custom buffer editing OBJ.")
|
||||
|
||||
|
|
|
|||
|
|
@ -891,7 +891,7 @@ Vi's prefix argument will be used. Otherwise, the prefix argument passed to
|
|||
|
||||
|
||||
(defun viper-exec-form-in-vi (form)
|
||||
"Execute FORM in Vi state, regardless of the Ccurrent Vi state."
|
||||
"Execute FORM in Vi state, regardless of the current Vi state."
|
||||
(let ((buff (current-buffer))
|
||||
result)
|
||||
(viper-set-mode-vars-for 'vi-state)
|
||||
|
|
@ -910,7 +910,7 @@ Vi's prefix argument will be used. Otherwise, the prefix argument passed to
|
|||
|
||||
(defun viper-exec-form-in-emacs (form)
|
||||
"Execute FORM in Emacs, temporarily disabling Viper's minor modes.
|
||||
Similar to viper-escape-to-emacs, but accepts forms rather than keystrokes."
|
||||
Similar to `viper-escape-to-emacs', but accepts forms rather than keystrokes."
|
||||
(let ((buff (current-buffer))
|
||||
result)
|
||||
(viper-set-mode-vars-for 'emacs-state)
|
||||
|
|
@ -939,7 +939,7 @@ such minor modes.
|
|||
Usage:
|
||||
(viper-harness-minor-mode load-file)
|
||||
|
||||
LOAD-FILE is a name of the file where the specific minor mode is defined.
|
||||
LOAD-FILE is the name of the file where the specific minor mode is defined.
|
||||
Suffixes such as .el or .elc should be stripped."
|
||||
|
||||
(interactive "sEnter name of the load file: ")
|
||||
|
|
@ -961,9 +961,9 @@ Prevents multiple escape keystrokes if viper-no-multiple-ESC is true.
|
|||
If viper-no-multiple-ESC is 'twice double ESC would ding in vi-state.
|
||||
Other ESC sequences are emulated via the current Emacs's major mode
|
||||
keymap. This is more convenient on TTYs, since this won't block
|
||||
function keys such as up,down, etc. ESC will also will also work as
|
||||
a Meta key in this case. When viper-no-multiple-ESC is nil, ESC functions
|
||||
as a Meta key and any number of multiple escapes is allowed."
|
||||
function keys such as up, down, etc. ESC will also will also work as
|
||||
a Meta key in this case. When viper-no-multiple-ESC is nil, ESC works
|
||||
as a Meta key and any number of multiple escapes are allowed."
|
||||
(interactive "P")
|
||||
(let (char)
|
||||
(cond ((and (not viper-no-multiple-ESC) (eq viper-current-state 'vi-state))
|
||||
|
|
@ -1257,7 +1257,7 @@ as a Meta key and any number of multiple escapes is allowed."
|
|||
|
||||
;; as com is non-nil, this means that we have a command to execute
|
||||
(if (viper-memq-char (car com) '(?r ?R))
|
||||
;; execute apropriate region command.
|
||||
;; execute appropriate region command.
|
||||
(let ((char (car com)) (com (cdr com)))
|
||||
(setq prefix-arg (cons value com))
|
||||
(if (viper= char ?r)
|
||||
|
|
@ -1621,7 +1621,7 @@ Use the info in viper-d-com, which has the form
|
|||
where `com' is the command to be re-executed, `val' is the
|
||||
argument to `com', `ch' is a flag for repeat, and `reg' is optional;
|
||||
if it exists, it is the name of the register for `com'.
|
||||
If the prefix argument, ARG, is non-nil, it is used instead of `val'."
|
||||
If the prefix argument ARG is non-nil, it is used instead of `val'."
|
||||
(interactive "P")
|
||||
(let ((save-point (point)) ; save point before repeating prev cmd
|
||||
;; Pass along that we are repeating a destructive command
|
||||
|
|
@ -2539,7 +2539,7 @@ problems."
|
|||
|
||||
(defun viper-replace-state-exit-cmd ()
|
||||
"Binding for keys that cause Replace state to switch to Vi or to Insert.
|
||||
These keys are ESC, RET, and LineFeed"
|
||||
These keys are ESC, RET, and LineFeed."
|
||||
(interactive)
|
||||
(if overwrite-mode ; if in replace mode invoked via 'R'
|
||||
(viper-finish-R-mode)
|
||||
|
|
@ -3711,7 +3711,7 @@ controlled by the sign of prefix numeric value."
|
|||
(defun viper-toggle-search-style (arg)
|
||||
"Toggle the value of viper-case-fold-search/viper-re-search.
|
||||
Without prefix argument, will ask which search style to toggle. With prefix
|
||||
arg 1,toggles viper-case-fold-search; with arg 2 toggles viper-re-search.
|
||||
arg 1, toggles viper-case-fold-search; with arg 2 toggles viper-re-search.
|
||||
|
||||
Although this function is bound to \\[viper-toggle-search-style], the most
|
||||
convenient way to use it is to bind `//' to the macro
|
||||
|
|
@ -4262,7 +4262,7 @@ Null string will repeat previous search."
|
|||
(defun viper-del-backward-char-in-replace ()
|
||||
"Delete one character in replace mode.
|
||||
If `viper-delete-backwards-in-replace' is t, then DEL key actually deletes
|
||||
charecters. If it is nil, then the cursor just moves backwards, similarly
|
||||
characters. If it is nil, then the cursor just moves backwards, similarly
|
||||
to Vi. The variable `viper-ex-style-editing', if t, doesn't let the
|
||||
cursor move past the beginning of line."
|
||||
(interactive)
|
||||
|
|
@ -4614,7 +4614,7 @@ One can use `` and '' to temporarily jump 1 step back."
|
|||
(indent-to (+ (current-column) viper-shift-width)))
|
||||
|
||||
(defun viper-backward-indent ()
|
||||
"Backtab, C-d in VI"
|
||||
"Backtab, `C-d' in Vi."
|
||||
(interactive)
|
||||
(if viper-cted
|
||||
(let ((p (point)) (c (current-column)) bol (indent t))
|
||||
|
|
@ -4689,7 +4689,7 @@ One can use `` and '' to temporarily jump 1 step back."
|
|||
viper-InvalidRegister reg)))))
|
||||
|
||||
(defun viper-brac-function (arg)
|
||||
"Function called by \[, the brac. View textmarkers and call \[\["
|
||||
"Function called by \[, the brac. View textmarkers and call \[\[."
|
||||
(interactive "P")
|
||||
(let ((reg (read-char)))
|
||||
(cond ((viper= ?\[ reg)
|
||||
|
|
@ -4922,7 +4922,7 @@ Please, specify your level now: ")
|
|||
|
||||
;; if ENFORCE-BUFFER is not nil, error if CHAR is a marker in another buffer
|
||||
(defun viper-register-to-point (char &optional enforce-buffer)
|
||||
"Like jump-to-register, but switches to another buffer in another window."
|
||||
"Like `jump-to-register', but switches to another buffer in another window."
|
||||
(interactive "cViper register to point: ")
|
||||
(let ((val (get-register char)))
|
||||
(cond
|
||||
|
|
@ -5047,7 +5047,7 @@ PLEASE FOLLOW THESE PROCEDURES
|
|||
------------------------------
|
||||
|
||||
Before reporting a bug, please verify that it is related to Viper, and is
|
||||
not cause by other packages you are using.
|
||||
not caused by other packages you are using.
|
||||
|
||||
Don't report compilation warnings, unless you are certain that there is a
|
||||
problem. These warnings are normal and unavoidable.
|
||||
|
|
|
|||
|
|
@ -6890,7 +6890,7 @@ input.
|
|||
|
||||
If they are variables, this variable is a string containing a Perl
|
||||
implementation for this functionality. This Perl program will be transferred
|
||||
to the remote host, and it is avalible as shell function with the same name.")
|
||||
to the remote host, and it is available as shell function with the same name.")
|
||||
|
||||
(defun tramp-find-inline-encoding (vec)
|
||||
"Find an inline transfer encoding that works.
|
||||
|
|
|
|||
|
|
@ -133,9 +133,9 @@ When a session manager tells Emacs that the window system is shutting
|
|||
down, this function is called. It calls the functions in the hook
|
||||
`emacs-save-session-functions'. Functions are called with the current
|
||||
buffer set to a temporary buffer. Functions should use `insert' to insert
|
||||
lisp code to save the session state. The buffer is saved
|
||||
in a file in the home directory of the user running Emacs. The file
|
||||
is evaluated when Emacs is restarted by the session manager.
|
||||
lisp code to save the session state. The buffer is saved in a file in the
|
||||
home directory of the user running Emacs. The file is evaluated when
|
||||
Emacs is restarted by the session manager.
|
||||
|
||||
If any of the functions returns non-nil, no more functions are called
|
||||
and this function returns non-nil. This will inform the session manager
|
||||
|
|
@ -1286,7 +1286,7 @@ The value nil is the same as this list:
|
|||
")
|
||||
|
||||
;; Get a selection value of type TYPE by calling x-get-selection with
|
||||
;; an appropiate DATA-TYPE argument decided by `x-select-request-type'.
|
||||
;; an appropriate DATA-TYPE argument decided by `x-select-request-type'.
|
||||
;; The return value is already decoded. If x-get-selection causes an
|
||||
;; error, this function return nil.
|
||||
|
||||
|
|
@ -1425,7 +1425,7 @@ The value nil is the same as this list:
|
|||
(declare-function accelerate-menu "xmenu.c" (&optional frame) t)
|
||||
|
||||
(defun x-menu-bar-open (&optional frame)
|
||||
"Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
|
||||
"Open the menu bar if `menu-bar-mode' is on, otherwise call `tmm-menubar'."
|
||||
(interactive "i")
|
||||
(if (and menu-bar-mode
|
||||
(fboundp 'accelerate-menu))
|
||||
|
|
@ -1654,7 +1654,7 @@ A value that begins with n: denotes a named icon instead of a stock icon."
|
|||
:group 'x)
|
||||
|
||||
(defcustom icon-map-list '(x-gtk-stock-map)
|
||||
"A list of alists that maps icon file names to stock/named icons.
|
||||
"A list of alists that map icon file names to stock/named icons.
|
||||
The alists are searched in the order they appear. The first match is used.
|
||||
The keys in the alists are file names without extension and with two directory
|
||||
components. For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm
|
||||
|
|
|
|||
|
|
@ -397,14 +397,14 @@ It's a list containing some or all of the following values:
|
|||
spaces SPACEs and HARD SPACEs are visualized via
|
||||
faces.
|
||||
|
||||
lines lines whose have columns beyond
|
||||
lines lines which have columns beyond
|
||||
`whitespace-line-column' are highlighted via
|
||||
faces .
|
||||
faces.
|
||||
Whole line is highlighted.
|
||||
It has precedence over `lines-tail' (see
|
||||
below).
|
||||
|
||||
lines-tail lines whose have columns beyond
|
||||
lines-tail lines which have columns beyond
|
||||
`whitespace-line-column' are highlighted via
|
||||
faces.
|
||||
But only the part of line which goes
|
||||
|
|
@ -462,7 +462,7 @@ Any other value is ignored.
|
|||
If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and
|
||||
via display table.
|
||||
|
||||
There is an evaluation order for some values, if some values are
|
||||
There is an evaluation order for some values, if they are
|
||||
included in `whitespace-style' list. For example, if
|
||||
indentation, indentation::tab and/or indentation::space are
|
||||
included in `whitespace-style' list. The evaluation order for
|
||||
|
|
@ -1134,7 +1134,7 @@ otherwise, turn off visualization.
|
|||
Use `global-whitespace-newline-mode' only for NEWLINE
|
||||
visualization exclusively. For other visualizations, including
|
||||
NEWLINE visualization together with (HARD) SPACEs and/or TABs,
|
||||
please, use `global-whitespace-mode'.
|
||||
please use `global-whitespace-mode'.
|
||||
|
||||
See also `whitespace-newline' and `whitespace-display-mappings'."
|
||||
:lighter " NL"
|
||||
|
|
@ -2046,7 +2046,7 @@ See also `whitespace-toggle-option-alist'."
|
|||
((quit error)
|
||||
(whitespace-help-off)
|
||||
(error (error-message-string data)))))
|
||||
(list sym))) ; return the apropriate symbol
|
||||
(list sym))) ; return the appropriate symbol
|
||||
|
||||
|
||||
(defun whitespace-toggle-list (local-p arg the-list)
|
||||
|
|
|
|||
|
|
@ -1,3 +1,10 @@
|
|||
2010-01-18 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* cedet/semantic-tests.el (semanticdb-test-gnu-global)
|
||||
(semantic-lex-test-full-depth, semantic-symref-test-count-hits-in-tag):
|
||||
Fix typos in docstrings and error messages.
|
||||
(semanticdb-ebrowse-run-tests): Fix typos in error messages.
|
||||
|
||||
2010-01-14 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* cedet/cedet-utests.el (cedet-utest-log-shutdown, pulse-test):
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@ All systems are different. Ask questions along the way."
|
|||
(when (not (or (eq major-mode 'c-mode)
|
||||
(eq major-mode 'c++-mode)))
|
||||
(error "Please make your default buffer be a C or C++ file, then
|
||||
run the test again..")))
|
||||
run the test again")))
|
||||
|
||||
(defun semanticdb-ebrowse-dump ()
|
||||
"Find the first loaded ebrowse table, and dump out the contents."
|
||||
|
|
@ -83,7 +83,7 @@ run the test again..")))
|
|||
(defun semanticdb-test-gnu-global (searchfor &optional standardfile)
|
||||
"Test the GNU Global semanticdb.
|
||||
Argument SEARCHFOR is the text to search for.
|
||||
If optional arg STANDARDFILE is non nil, use a standard file w/ global enabled."
|
||||
If optional arg STANDARDFILE is non-nil, use a standard file w/ global enabled."
|
||||
(interactive "sSearch For Tag: \nP")
|
||||
|
||||
(require 'data-debug)
|
||||
|
|
@ -235,7 +235,7 @@ Optional argument ARG specifies not to use color."
|
|||
|
||||
(defun semantic-lex-test-full-depth (arg)
|
||||
"Test the semantic lexer in the current buffer parsing through lists.
|
||||
Usually the lexer parses
|
||||
Usually the lexer parses.
|
||||
If universal argument ARG, then try the whole buffer."
|
||||
(interactive "P")
|
||||
(let* ((start (current-time))
|
||||
|
|
@ -309,7 +309,7 @@ Analyze the area between BEG and END."
|
|||
|
||||
(defun semantic-symref-test-count-hits-in-tag ()
|
||||
"Lookup in the current tag the symbol under point.
|
||||
the count all the other references to the same symbol within the
|
||||
Then count all the other references to the same symbol within the
|
||||
tag that contains point, and return that."
|
||||
(interactive)
|
||||
(let* ((ctxt (semantic-analyze-current-context))
|
||||
|
|
@ -323,7 +323,7 @@ tag that contains point, and return that."
|
|||
(semantic-tag-start tag)
|
||||
(semantic-tag-end tag))
|
||||
(when (interactive-p)
|
||||
(message "Found %d occurances of %s in %.2f seconds"
|
||||
(message "Found %d occurrences of %s in %.2f seconds"
|
||||
Lcount (semantic-tag-name target)
|
||||
(semantic-elapsed-time start (current-time))))
|
||||
Lcount)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue