Commit 4d1e6632 authored by Kenichi Handa's avatar Kenichi Handa

Fix ccl encoding of unibyte source.

parents b7235808 1fdede8f
2010-01-18 Juanma Barranquero <lekktu@gmail.com>
* ada-mode.texi (Project File Overview): Fix typo.
2010-01-17 Chong Yidong <cyd@stupidchicken.com>
* semantic.texi: Add Richard Y. Kim credit.
......
......@@ -396,7 +396,7 @@ src_dir=/Projects/my_project/src_1
src_dir=/Projects/my_project/src_2
@end example
Some variables (like @code{src_dir}) are lists; multiple occurances
Some variables (like @code{src_dir}) are lists; multiple occurrences
are concatenated.
There must be no space between the variable name and ``='', and no
......
......@@ -240,10 +240,10 @@ struct rcsoc_state
/* A keyword we look for at the beginning of lines. If found, it is
not copied, and SAW_KEYWORD is set to true. */
char *keyword;
/* The current point we've reached in an occurance of KEYWORD in
/* The current point we've reached in an occurrence of KEYWORD in
the input stream. */
char *cur_keyword_ptr;
/* Set to true if we saw an occurance of KEYWORD. */
/* Set to true if we saw an occurrence of KEYWORD. */
int saw_keyword;
};
......@@ -354,7 +354,7 @@ scan_keyword_or_put_char (ch, state)
PRINTFLAG is positive, output string contents to outfile. If it is
negative, store contents in buf. Convert escape sequences \n and
\t to newline and tab; discard \ followed by newline.
If SAW_USAGE is non-zero, then any occurances of the string `usage:'
If SAW_USAGE is non-zero, then any occurrences of the string `usage:'
at the beginning of a line will be removed, and *SAW_USAGE set to
true if any were encountered. */
......
2010-01-19 Alan Mackenzie <acm@muc.de>
* progmodes/cc-defs.el: Fix bug#5395: typing '#' in an empty
buffer throws "args out of range".
(c-set-cpp-delimiters, c-clear-cpp-delimiters): Check for EOB
playing the role of delimiter.
2010-01-18 Stephen Leake <stephen_leake@member.fsf.org>
* lisp/progmodes/ada-mode.el: Fix bug#5400.
(ada-matching-decl-start-re): Move into ada-goto-decl-start.
(ada-goto-decl-start): Rename from ada-goto-matching-decl-start; callers
changed. Delete RECURSIVE parameter; never used. Improve doc string.
Improve comments in "is" portion. Handle null procedure declaration.
(ada-move-to-end): Improve doc string.
2010-01-18 Óscar Fuentes <ofv@wanadoo.es>
* ido.el (ido-cur-list): Initialize to nil.
Remove obsolete information from commentary.
(ido-choice-list): Initialize to nil.
(ido-get-bufname): Reject minibuffers.
(ido-make-buffer-list): If "default" is a nonexistent
buffer, ignore it, as per the function's comment.
(ido-kill-buffer-internal): New function.
(ido-kill-buffer-at-head): Use it.
(ido-visit-buffer): Likewise.
2010-01-18 Chong Yidong <cyd@stupidchicken.com>
* calendar/time-date.el (date-to-time): Doc fix (Bug#5408).
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 Chong Yidong <cyd@stupidchicken.com>
* mail/sendmail.el (mail-yank-original): Set the mark if the
......@@ -12,7 +124,7 @@
2010-01-17 Stephen Leake <stephen_leake@member.fsf.org>
* progmodes/ada-mode.el: Fix bug#1920, bug#5400.
* progmodes/ada-mode.el: Fix bug#1920.
(ada-ident-re): Delete ., allow multibyte characters.
(ada-goto-label-re): New; matches goto labels.
(ada-block-label-re): New; matches block labels.
......
......@@ -98,7 +98,8 @@ and type 2 is the list (HIGH LOW MICRO)."
;;;###autoload
(defun date-to-time (date)
"Parse a string DATE that represents a date-time and return a time value."
"Parse a string DATE that represents a date-time and return a time value.
If DATE lacks timezone information, GMT is assumed."
(condition-case ()
(apply 'encode-time
(parse-time-string
......
......@@ -69,7 +69,7 @@ specific conversions during tests."
(let ((file referencefile))
;; Replace the ! with /
(setq file (subst-char-in-string ?! ?/ file))
;; Occurances of // meant there was once a single !.
;; Occurrences of // meant there was once a single !.
(setq file (replace-regexp-in-string "//" "!" file))
;; Handle Windows special cases
......
......@@ -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
......@@ -1045,7 +1045,7 @@ The possible elements of this list include the following:
`global-semantic-highlight-func-mode' - Highlight the current tag.
`global-semantic-stickyfunc-mode' - Show current fun in header line.
`global-semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like
keybinding for tag names."
keybinding for tag names."
:group 'semantic
:type `(set ,@(mapcar (lambda (c) (list 'const c))
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)