Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/idle.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require semantic semantic/ctxt semantic/format semantic/tag semantic/analyze timer] 2)
#@44 Timer used to schedule tasks in idle time.
(defvar semantic-idle-scheduler-timer nil (#$ . 588))
#@66 Timer used to schedule tasks in idle time that may take a while.
(defvar semantic-idle-scheduler-work-timer nil (#$ . 691))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313\314\315& \210\300\316\317\320\304\305\306\313\314\321& \207" [custom-declare-variable semantic-idle-scheduler-verbose-flag nil "Non-nil means that the idle scheduler should provide debug messages.\nUse this setting to debug idle activities." :group semantic :type boolean semantic-idle-scheduler-idle-time 1 "Time in seconds of idle before scheduling events.\nThis time should be short enough to ensure that idle-scheduler will be\nrun as soon as Emacs is idle." number :set #[(sym val) "\303 \"\210\304\n!\205 \305\n!\210\306\307 \207" [sym val semantic-idle-scheduler-timer set-default timerp cancel-timer nil semantic-idle-scheduler-setup-timers] 3] semantic-idle-scheduler-work-idle-time 60 "Time in seconds of idle before scheduling big work.\nThis time should be long enough that once any big work is started,\nit is unlikely the user would be ready to type again right away." #[(sym val) "\303 \"\210\304\n!\205 \305\n!\210\306\307 \207" [sym val semantic-idle-scheduler-timer set-default timerp cancel-timer nil semantic-idle-scheduler-setup-timers] 3]] 10)
#@51 Lazy initialization of the auto parse idle timer.
(defalias 'semantic-idle-scheduler-setup-timers #[nil "\304!\204\f \305 \306\307#\304\n!\206 \305 \306\310#\211\207" [semantic-idle-scheduler-timer semantic-idle-scheduler-idle-time semantic-idle-scheduler-work-timer semantic-idle-scheduler-work-idle-time timerp run-with-idle-timer t semantic-idle-scheduler-function semantic-idle-scheduler-work-function] 4 (#$ . 1976)])
#@33 Kill the auto parse idle timer.
(defalias 'semantic-idle-scheduler-kill-timer #[nil "\301!\203\n \302!\210\303\211\207" [semantic-idle-scheduler-timer timerp cancel-timer nil] 2 (#$ . 2409)])
#@69 Hook run at the end of the function `semantic-idle-scheduler-mode'.
(custom-declare-variable 'semantic-idle-scheduler-mode-hook nil '(#$ . 2610) :group 'semantic :type 'hook)
#@122 Non-nil if idle-scheduler minor mode is enabled.
Use the command `semantic-idle-scheduler-mode' to change this variable.
(defvar semantic-idle-scheduler-mode nil (#$ . 2792))
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [make-variable-buffer-local semantic-idle-scheduler-mode custom-declare-variable semantic-idle-scheduler-max-buffer-size 0 "Maximum size in bytes of buffers where idle-scheduler is enabled.\nIf this value is less than or equal to 0, idle-scheduler is enabled in\nall buffers regardless of their size." :group semantic :type number] 8)
#@191 Return non-nil if idle-scheduler is enabled for this buffer.
idle-scheduler is disabled when debugging or if the buffer size
exceeds the `semantic-idle-scheduler-max-buffer-size' threshold.
(defalias 'semantic-idle-scheduler-enabled-p #[nil ";\205 \306!\n\205B \307\303!\205 ?\205B \f?\205B \204, ;\203, \310!\2048 \205B \306\311\312#\205B
\313X\206B \314
W)\207" [buffer-file-name remote-file\? semantic-idle-scheduler-mode semantic-debug-enabled semantic-lex-debug semantic-idle-scheduler-max-buffer-size file-remote-p boundp file-exists-p nil t 0 buffer-size] 4 (#$ . 3374)])
(put 'semantic-idle-scheduler-enabled-p 'byte-optimizer 'byte-compile-inline-expand)
#@125 Non-nil if Semantic-Idle-Scheduler mode is enabled.
Use the command `semantic-idle-scheduler-mode' to change this variable.
(defvar semantic-idle-scheduler-mode nil (#$ . 4058))
(make-variable-buffer-local 'semantic-idle-scheduler-mode)
#@737 Minor mode to auto parse buffer following a change.
When this mode is off, a buffer is only rescanned for tokens when
some command requests the list of available tokens. When idle-scheduler
is enabled, Emacs periodically checks to see if the buffer is out of
date, and reparses while the user is idle (not typing.)
If called interactively, enable Semantic-Idle-Scheduler mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing. Return
non-nil if the minor mode is enabled.
(defalias 'semantic-idle-scheduler-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2030 \311\312!\203\" \204- \313\314\315\316 \"\210\2020 \317 \210\320\321\n\203: \322\202; \323\"\210\324\325!\203` \305 \203O \305 \232\203` \326 \327\330\n\203[ \331\202\\ \332\f#\210))\333 \210\n\207" [#1=#:last-message arg semantic-idle-scheduler-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up idle time scheduling" buffer-name semantic-idle-scheduler-setup-timers run-hooks semantic-idle-scheduler-mode-hook semantic-idle-scheduler-mode-on-hook semantic-idle-scheduler-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Idle-Scheduler mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 4302) (list (or current-prefix-arg 'toggle))])
(defvar semantic-idle-scheduler-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\306\312\"\207" [semantic-idle-scheduler-mode-map semantic-idle-scheduler-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-scheduler-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode semantic-idle-scheduler-mode nil boundp semantic-add-minor-mode "ARP"] 6)
#@237 List of functions to execute during idle time.
These functions will be called in the current buffer after that
buffer has had its tags made up to date. These functions
will not be called if there are errors parsing the
current buffer.
(defvar semantic-idle-scheduler-queue nil (#$ . 6459))
#@46 Schedule FUNCTION to occur during idle time.
(defalias 'semantic-idle-scheduler-add #[(function) " \235\203 \207 B\211\207" [function semantic-idle-scheduler-queue] 2 (#$ . 6756)])
#@48 Unschedule FUNCTION to occur during idle time.
(defalias 'semantic-idle-scheduler-remove #[(function) "\302 \"\211\207" [function semantic-idle-scheduler-queue delete] 3 (#$ . 6948)])
#@97 Core idle function that handles reparsing.
And also manages services that depend on tag values.
(defalias 'semantic-idle-core-handler #[nil "\203 \306\307!\210\310\311 \3102\200\312\313p\313\312\314\315\316 \"\"\" \312\211 )\312 *+;\2051 \317+! ,-\205v \320\321!\205@ ?\205v .?\205v ,\204\\ +;\203\\ \322+!\204j ,\205v \317+\312\323#\205v /\324X\206v \325 /W)\203\351\2120*1\203\211 \326 \202\243 \3271\223 \326 0\202\243 2\306\330\331\332p\3332!#\"\210)\312\f\312 3\211 4\203l4@3\n\203\321 \334 \204\314 r\335 !q\210\212 b\210\336 *\203\321 \337\n\340\"\210r3q\2100*=\203\\+;\205\350 \317+! ,-\205-\320\321!\205\367 ?\205-.?\205-,\204+;\203\322+!\204!,\205-\317+\312\323#\205-/\324X\206-\325 /W)\203b1\203<\326 \210\202b\3411F\326 0\202X 2\306\330\331\332p\3332!#\"\210)\202b\210\202bp)B))4A\2114\204\256 *))5\312 6\211 4\203\3504@6\212\n\203\240\334 \204\233r\335 !q\210\212 b\210\336 *\203\240\337\n\342\"\210\203\252\306\3436\"\2101\203\2666 \210\202\324\3441\3016 0\202\323 2\306\331\3456\"\331\332p\3332!#\")\210\203\336\306\3466\"\210)4A\2114\204|*\212\f\312 3\211 4\205}4@3\n\203\334 \204r\335 !q\210\212 b\210\336 *\203\337\n\347\"\210r3q\210+;\205&\317+! ,-\205k\320\321!\2055?\205k.?\205k,\204Q+;\203Q\322+!\204_,\205k\317+\312\323#\205k/\324X\206k\325 /W)\203r\326 \210)4A\2114\204\364\312.0\210*\205\211\306\350!\207" [semantic-idle-scheduler-verbose-flag semantic--on-input-start-marker semantic-current-input-throw-symbol inhibit-quit buffers safe message "IDLE: Core handler..." idle-timer point-marker nil delq mapcar #[(b) "\301!\205 \207" [b buffer-file-name] 2] buffer-list file-remote-p boundp semantic-debug-enabled file-exists-p t 0 buffer-size semantic-idle-scheduler-refresh-tags (error) "Idle Parse Error: %S" format "%S - %s" error-message-string input-pending-p marker-buffer accept-process-output throw parsing-mode-buffers (error) idle-queue "IDLE: execute service %s..." (error) "Idle Service Error %s: %%S" "IDLE: execute service %s...done" parsing-other-buffers "IDLE: Core handler...done" others mode buffer-file-name remote-file\? semantic-idle-scheduler-mode semantic-lex-debug semantic-idle-scheduler-max-buffer-size major-mode debug-on-error err b --dolist-tail-- semantic-idle-scheduler-queue service] 8 (#$ . 7140)])
#@58 Run the Semantic idle function with debugging turned on.
(defalias 'semantic-debug-idle-function #[nil "\301\302 )\207" [debug-on-error t semantic-idle-core-handler] 1 (#$ . 9545) nil])
#@187 Function run when after `semantic-idle-scheduler-idle-time'.
This function will reparse the current buffer, and if successful,
call additional functions registered with the timer calls.
(defalias 'semantic-idle-scheduler-function #[nil "\302 \303U\205 \304\305 \306\216\307 +\207" [debug-on-error save-match-data-internal recursion-depth 0 nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] semantic-idle-core-handler] 2 (#$ . 9739)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\307&\207" [custom-declare-variable semantic-idle-work-parse-neighboring-files-flag nil "Non-nil means to parse files in the same dir as the current buffer.\nDisable to prevent lots of excessive parsing in idle time." :group semantic :type boolean semantic-idle-work-update-headers-flag "Non-nil means to parse through header files in idle time.\nDisable to prevent idle time parsing of many files. If completion\nis called that work will be done then instead."] 8)
#@121 Do long-processing work for BUFFER.
Uses `semantic-safe' and returns the output.
Returns t if all processing succeeded.
(defalias 'semantic-idle-work-for-one-buffer #[(buffer) "rq\210 \203 \304 \210\202+ \3051 \304 \210\3060\202( \307\310\311\312p\313\n!#\"\210)\314\205\253 \205\253 \203J \315\316!\203x \317 \203x \320\321!\210\322\314\"\210\202x \3231g \315\316!\203b \317 \203b \320\321!\210\322\314\"\210\3060\202u \307\324\311\312p\313\n!#\"\210)\314\205\253 \203\212 \315\325!\203\206 \326!\210\306\202\253 \3271\235 \315\325!\203\230 \326!\210\3060\202\253 \307\330\311\312p\313\n!#\"\210)\314)?\207" [buffer debug-on-error err semantic-idle-work-update-headers-flag semantic-idle-scheduler-refresh-tags (error) t message "Idle Work Parse Error: %S" format "%S - %s" error-message-string nil featurep semantic/db semanticdb-minor-mode-p require semantic/db-find semanticdb-find-translate-path (error) "Idle Work Including Error: %S" semantic/db-typecache semanticdb-typecache-refresh-for-buffer (error) "Idle Work Typecaching Error: %S"] 7 (#$ . 10773)])
#@250 Core handler for idle work processing of long running tasks.
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.
(defalias 'semantic-idle-work-core-handler #[nil "\306\307\310 \3072\264\306p\311p\311\306\312\313\314 \"\"\" \306\211 )*;\205) \315*! +,\205n \316\317!\2058 ?\205n -?\205n +\204T *;\203T \320*!\204b +\205n \315*\306\321#\205n .\322X\206n \323 .W)\203x \212\324p!)
\204\202 p)B)\f\306 /\211 0\203p0@/ \203\257 \325 \204\252 r\326!q\210\212b\210\327 *\203\257 \330 \331\"\210r/q\210*;\205\276 \315*! +,\205\316\317!\205\315 ?\205-?\205+\204\351 *;\203\351 \320*!\204\367 +\205\315*\306\321#\205.\322X\206\323 .W)\203f*;\205\315*! +,\205V\316\317!\205 ?\205V-?\205V+\204<*;\203<\320*!\204J+\205V\315*\306\321#\205V.\322X\206V\323 .W)\203f\324p!\204fp)B))0A\2110\204\214 *\332\333!\203\261\334 \203\261\335 \2101\203\2562\203\222 q\210\336 \210\202\256\3371\237 q\210\336 0\202\255 3\340\341\342\343p\3443!#\")\210\335 \210-\3060* 4 )4\203\302\345\202\340)\204\313\346\202\340)A\204\332\342\347)@\"\202\340\342\350)G\"*\207" [semantic--on-input-start-marker semantic-current-input-throw-symbol inhibit-quit cb buffers safe nil idle-work-timer point-marker delq mapcar #[(b) "\301!\205 \207" [b buffer-file-name] 2] buffer-list file-remote-p boundp semantic-debug-enabled file-exists-p t 0 buffer-size semantic-idle-work-for-one-buffer input-pending-p marker-buffer accept-process-output throw parsing-mode-buffers featurep semantic/db semanticdb-minor-mode-p semanticdb-save-all-db-idle semantic-idle-scheduler-work-parse-neighboring-files (error) message "Idle Work Parse Neighboring Files: %S" format "%S - %s" error-message-string "Interrupted" "done" "done with 1 error in %s" "done with errors in %d buffers." errbuf buffer-file-name remote-file\? semantic-idle-scheduler-mode semantic-lex-debug semantic-idle-scheduler-max-buffer-size b --dolist-tail-- semantic-idle-work-parse-neighboring-files-flag debug-on-error err interrupted] 9 (#$ . 11856)])
#@63 Run the Semantic idle work function with debugging turned on.
(defalias 'semantic-debug-idle-work-function #[nil "\301\302 )\207" [debug-on-error t semantic-idle-work-core-handler] 1 (#$ . 14073) nil])
#@233 Function run when after `semantic-idle-scheduler-work-idle-time'.
This routine handles difficult tasks that require a lot of parsing, such as
parsing all the header files used by our active sources, or building up complex
datasets.
(defalias 'semantic-idle-scheduler-work-function #[nil "\203 \303\304!\210\305 \306\216\307 *\205 \303\310\n\")\207" [semantic-idle-scheduler-verbose-flag save-match-data-internal exit-type message "Long Work Idle Timer..." match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] semantic-idle-work-core-handler "Long Work Idle Timer...%s"] 3 (#$ . 14283)])
#@69 Parse all the files in similar directories to buffers being edited.
(defalias 'semantic-idle-scheduler-work-parse-neighboring-files #[nil "\306\307\310\311\n\"\210\312 \313\314\313$\307 \211 \205+
@\3152\" \310\316\"0\210
A\211\204 \307,\207" [matching-auto-mode-patterns ede-auto-add-method auto-mode-alist default-directory file --dolist-tail-- never nil mapc #[(pat) "A =\205
@\nB\211\207" [pat major-mode matching-auto-mode-patterns] 2] directory-files t ".*" found #[(pat) "\203 \304 \204 r\305 !q\210\212 b\210\306 *\203 \307\310\"\210\311\n \"\2051 \212\312 !)\2051 \307\313\314\"\207" [semantic-current-input-throw-symbol semantic--on-input-start-marker pat file input-pending-p marker-buffer accept-process-output throw parsing-mode-buffers string-match semanticdb-file-table-object found t] 3]] 6 (#$ . 14919)])
#@183 Hook run before option `semantic-idle-scheduler' begins parsing.
If any hook function throws an error, this variable is reset to nil.
This hook is not protected from lexical errors.
(defvar semantic-before-idle-scheduler-reparse-hook nil (#$ . 15764))
#@178 Hook run after option `semantic-idle-scheduler' has parsed.
If any hook function throws an error, this variable is reset to nil.
This hook is not protected from lexical errors.
(defvar semantic-after-idle-scheduler-reparse-hook nil (#$ . 16023))
(byte-code "\300\301\302\303#\210\300\304\305\303#\207" [semantic-varalias-obsolete semantic-before-idle-scheduler-reparse-hooks semantic-before-idle-scheduler-reparse-hook "23.2" semantic-after-idle-scheduler-reparse-hooks semantic-after-idle-scheduler-reparse-hook] 4)
#@316 Refreshes the current buffer's tags.
This is called by `semantic-idle-scheduler-function' to update the
tags in the current buffer.
Return non-nil if the refresh was successful.
Return nil if there is some sort of syntax error preventing a full
reparse.
Does nothing if the current buffer doesn't need reparsing.
(defalias 'semantic-idle-scheduler-refresh-tags #[nil "\306=\203\n \307\202` \204 \310\202` \307\310\3111! \312\303!0\202% \210\307\211\210\313\216\f\2032 \314\315\316 \"\210\317\211 \3202C \212\212\321 \210*\3070\211 \203K \306+\203S \307\f\203] \314\322\316 \"\210)\n*\323\324!\210\325p!\210\207" [semantic-parse-tree-state inhibit-quit lexically-safe semantic-before-idle-scheduler-reparse-hook semantic-idle-scheduler-verbose-flag semantic-lex-unterminated-syntax-end-function unparseable nil t (error) run-hooks #[nil "\3011 \302\300!0\207\210\303\211\207" [semantic-after-idle-scheduler-reparse-hook (error) run-hooks nil] 2] message "IDLE: reparse %s..." buffer-name #[(#1=#:syntax #2=#:start #3=#:end) "\301\302\"\207" [#1# throw idle-scheduler] 3] idle-scheduler semantic-fetch-tags "IDLE: reparse %s...done" require semantic/decorate/mode semantic-decorate-flush-pending-decorations semantic-flex-unterminated-syntax-end-function #4=#:ret] 4 (#$ . 16547)])
#@260 Create a new idle services with NAME.
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 routine creates the following functions and variables:
(defalias 'define-semantic-idle-service '(macro . #[(name doc &rest forms) "\306\307\310!\311Q!\306\310!\311P!\306\310!\312P!\306\310!\313P!\306\310!\314P!\306\310!\315P! 2\316\3172\320\3102!\321\310
!\322\260\323\324\325\326\325\327\330\331\332\333
D\3342\335BBE\257\f\336\f\337\340\310
!\341Q\342BBBB\343 \344\345\310
!\341QF\317
3\346 \334
\334\347\316\350
\351BB\352BB\353\354 DDF\355\354 DDF\257\356\333
D\357BB\360 \337\361\310
!\341Q4BBBB\257.\207" [name func setup map hook mode intern "global-" symbol-name "-mode" "-mode-hook" "-mode-map" "-mode-setup" "-idle-function" progn define-minor-mode "Toggle " ".\nWith ARG, turn the minor mode on if ARG is positive, off otherwise.\n\nWhen this minor mode is enabled, `" "' is\nturned on in every Semantic-supported buffer." :global t :group 'semantic 'semantic-modes :require 'semantic/idle semantic-toggle-minor-mode-globally quote if (1 -1) defcustom nil "Hook run at the end of function `" "'." (:group 'semantic :type 'hook) defvar (let ((km (make-sparse-keymap))) km) "Keymap for `" :keymap (not (and (featurep 'semantic) (semantic-active-p))) setq (nil) ((error "Buffer %s was not set up for parsing" (buffer-name))) semantic-idle-scheduler-add function semantic-idle-scheduler-remove semantic-add-minor-mode ("") defun "Perform idle activity for the minor mode `" global doc forms] 17 (#$ . 17852)]))
(byte-code "\301\302\303\304#\210\305\306\307\"\210\310\311\312\313\314\315\316\317&\210\310\320\321\322\314\315\316&\207" [semantic-format-tag-custom-list put define-semantic-idle-service lisp-indent-function 1 add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put define-semantic-idle-service edebug-form-spec (&define name stringp def-body)] 4] custom-declare-variable semantic-idle-truncate-long-summaries t "Truncate summaries that are too long to fit in the minibuffer.\nThis can prevent minibuffer resizing in idle time." :group semantic :type boolean semantic-idle-summary-function 'semantic-format-tag-summarize-with-file "Function to call when displaying tag information during idle time.\nThis function should take a single argument, a Semantic tag, and\nreturn a string to display.\nSome useful functions are found in `semantic-format-tag-functions'."] 8)
#@161 Search for a semantic tag with name SYM in database tables.
Return the tag found or nil if not found.
If semanticdb is not in use, use the current buffer only.
(defalias 'semantic-idle-summary-find-current-symbol-tag #[(sym) "\306\307!\203 \203 \310\311!\203 \312 !@A\202A \n\313\314p!!\315 \211 \203>
@\211 @)\230\2037
@\fB
A\211\204& \f\237+@\207" [semanticdb-current-database sym semantic-case-fold case-fold-search result tags featurep semantic/db require semantic/db-find semanticdb-deep-find-tags-by-name semantic-something-to-tag-table semantic-flatten-tags-table nil tag] 4 (#$ . 20380)])
(put 'semantic-idle-summary-find-current-symbol-tag 'byte-optimizer 'byte-compile-inline-expand)
#@161 Return a string message describing the current context.
Gets a symbol with `semantic-ctxt-current-thing' and then
tries to find it with a deep targeted search.
(defalias 'semantic-idle-summary-current-symbol-info-brutish #[nil "\306 @\211\205M \307\310!\203\" \203\" \311\312!\203\" \313!@A\202K \n\314\315p!!\316 \211 \203H
@\211 @)\230\203A
@\fB
A\211\2040 \f\237+@))\207" [sym semanticdb-current-database semantic-case-fold case-fold-search result tags semantic-ctxt-current-thing featurep semantic/db require semantic/db-find semanticdb-deep-find-tags-by-name semantic-something-to-tag-table semantic-flatten-tags-table nil tag] 4 (#$ . 21092)])
#@97 Return a string message describing the current symbol.
Returns a value only if it is a keyword.
(defalias 'semantic-idle-summary-current-symbol-keyword #[nil "\302 @\211\205L \211\303 !\205 \211;\205 \304 \"\262\211\262\205# \211J\262\205L \305\303 !\205: \211;\205: \304 \"\262\211\203F \211N\202J \306\307\310\"\266\203)\207" [sym semantic-flex-keywords-obarray semantic-ctxt-current-thing obarrayp intern-soft summary signal wrong-type-argument (semantic-lex-keyword-p name)] 7 (#$ . 21760)])
#@115 Return a string message describing the current context.
Use the semantic analyzer to find the symbol information.
(defalias 'semantic-idle-summary-current-symbol-info-context #[nil "\3011 \302`!0\202
\210\303\211\205 \304!)\207" [analysis (error) semantic-analyze-current-context nil semantic-analyze-interesting-tag] 3 (#$ . 22276)])
#@161 Return a string message describing the current context.
This function will disable loading of previously unloaded files
by semanticdb as a time-saving measure.
(defalias 'semantic-idle-summary-current-symbol-info-default #[nil "\301\302!\205\n \303\304\"\212\305 \206 \306 \206 \307 *\207" [semanticdb-find-default-throttle featurep semantic/db-find remq unloaded semantic-idle-summary-current-symbol-keyword semantic-idle-summary-current-symbol-info-context semantic-idle-summary-current-symbol-info-brutish] 3 (#$ . 22623)])
#@607 List of font-lock faces that indicate a useless summary context.
Those are generally faces used to highlight comments.
It might be useful to override this variable to add comment faces
specific to a major mode. For example, in jde mode:
(defvar-mode-local jde-mode semantic-idle-summary-out-of-context-faces
(append (default-value \='semantic-idle-summary-out-of-context-faces)
\='(jde-java-font-lock-doc-tag-face
jde-java-font-lock-link-face
jde-java-font-lock-bold-face
jde-java-font-lock-underline-face
jde-java-font-lock-pre-face
jde-java-font-lock-code-face)))
(defvar semantic-idle-summary-out-of-context-faces '(font-lock-comment-face font-lock-string-face font-lock-doc-face) (#$ . 23161))
#@55 Non-nil if we should show a summary based on context.
(defalias 'semantic-idle-summary-useful-context-p #[nil "\302\300!\205 \205 \303`\304\" >?\205 \305\207" [font-lock-mode semantic-idle-summary-out-of-context-faces boundp get-text-property face t] 3 (#$ . 23905)])
#@57 Return a string message describing the current context.
(defalias 'semantic-idle-summary-current-symbol-info #[nil "\304\211\305\306\307!\305\204\" \211\262\204\" \262\n\205 \310\n\"\262\203M \211\204M \302N\203< \310\302N\"\211\262\204\" \211\311N\206F \211\312N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\313N\262\205\326 \211\211\313N\262\305\306\307!\305\204\225 \211\262\204\225 \262\n\205\223 \310\n\"\262\203\300 \211\204\300 \302N\203\257 \310\302N\"\211\262\204\225 \211\311N\206\271 \211\312N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\342 \202\344 \314 )\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override semantic-idle-summary-current-symbol-info nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-idle-summary-current-symbol-info-default] 13 (#$ . 24183)])
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\310\311\312\313\314\315\316&\207" [put semantic-idle-summary-current-symbol-info mode-local-overload t make-obsolete-overload semantic-eldoc-current-symbol-info "23.2" custom-declare-variable semantic-idle-summary-mode-hook nil "Hook run at the end of `semantic-idle-summary'." :group semantic :type hook] 8)
#@163 Display a tag summary of the lexical token under the cursor.
Call `semantic-idle-summary-current-symbol-info' for getting the
current tag to display information.
(defalias 'semantic-idle-summary-idle-function #[nil "\306=\206\232 \307 ?\206\232 \310 \211;\203 \202P \3111E \n:\205A \n@;\205A \nA@9\205A \nA@\205A \312\n8<\205A \313\n8<0\202G \210\314)\205P \314\315#\211 \203_ \316\305!\203_
\204v \317\320 !S \fGV\203u \321\f\322#)\203\226 \317\320 !S\fG V\203\225 \321\f\322#*\323\f!*\207" [major-mode found tag semantic-idle-summary-function str eldoc-echo-area-use-multiline-p emacs-lisp-mode semantic-idle-summary-useful-context-p semantic-idle-summary-current-symbol-info (error) 2 3 nil t boundp window-width minibuffer-window substring 0 eldoc-message w semantic-idle-truncate-long-summaries strlen ea-width] 5 (#$ . 25555)])
#@121 Non-nil if Semantic-Idle-Summary mode is enabled.
Use the command `semantic-idle-summary-mode' to change this variable.
(defvar semantic-idle-summary-mode nil (#$ . 26423))
(make-variable-buffer-local 'semantic-idle-summary-mode)
#@411 Toggle Semantic Idle Summary mode.
If called interactively, enable Semantic-Idle-Summary mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
When this minor mode is enabled, the echo area displays a summary
of the lexical token at point whenever Emacs is idle.
(defalias 'semantic-idle-summary-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203; \311\312!\203\" \204* \313\314\315\316 \"\210\317\320!\210\321\322!\210\323\324\325\326#\210\202E \327\322!\210\330\324\325\326#\210\331\332\n\203O \333\202P \334\"\210\335\336!\203u \305 \203d \305 \232\203u \337 \340\341\n\203p \342\202q \343\f#\210))\344 \210\n\207" [#1=#:last-message arg semantic-idle-summary-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name require eldoc semantic-idle-scheduler-add semantic-idle-summary-idle-function add-hook pre-command-hook semantic-idle-summary-refresh-echo-area t semantic-idle-scheduler-remove remove-hook run-hooks semantic-idle-summary-mode-hook semantic-idle-summary-mode-on-hook semantic-idle-summary-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Idle-Summary mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 26660) (list (or current-prefix-arg 'toggle))])
(defvar semantic-idle-summary-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [semantic-idle-summary-mode-map semantic-idle-summary-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-summary-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode semantic-idle-summary-mode nil boundp] 6)
(defalias 'semantic-idle-summary-refresh-echo-area #[nil "\205) \205) \n\204& \305\303!\203 \204& \f\204& \306 \307 =\204& \310 !\207\311\211\207" [semantic-idle-summary-mode eldoc-last-message executing-kbd-macro edebug-active cursor-in-echo-area boundp selected-window minibuffer-window eldoc-message nil] 2])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314\313\315\316\317&
\207" [semantic-add-minor-mode semantic-idle-summary-mode "" custom-declare-variable global-semantic-idle-summary-mode nil "Non-nil if Global Semantic-Idle-Summary mode is enabled.\nSee the `global-semantic-idle-summary-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-idle-summary-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group semantic semantic-modes :type boolean] 14)
#@416 Toggle Global Semantic Idle Summary mode.
If called interactively, enable Global Semantic-Idle-Summary mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
When this minor mode is enabled, `semantic-idle-summary-mode' is
turned on in every Semantic-supported buffer.
(defalias 'global-semantic-idle-summary-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-idle-summary-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-idle-summary-mode 1 -1 run-hooks global-semantic-idle-summary-mode-hook global-semantic-idle-summary-mode-on-hook global-semantic-idle-summary-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Idle-Summary mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 29605) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-idle-summary-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\314\315\316%\207" [global-semantic-idle-summary-mode-map global-semantic-idle-summary-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-idle-summary-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semantic-idle-summary-mode nil boundp custom-declare-face semantic-idle-symbol-highlight ((t :inherit region)) "Face used for highlighting local symbols." :group semantic-faces] 6)
#@43 Face used for highlighting local symbols.
(defvar semantic-idle-symbol-highlight-face 'semantic-idle-symbol-highlight (#$ . 31573))
(make-obsolete-variable 'semantic-idle-symbol-highlight-face "customize the face `semantic-idle-symbol-highlight' instead" "24.4" 'set)
#@150 Perhaps add highlighting to the symbol represented by TAG.
TAG was found as the symbol under point. If it happens to be
visible, then highlight it.
(defalias 'semantic-idle-symbol-maybe-highlight #[(tag) "\306\307!\210\31011 :\205- @;\205- A@9\205- A@\205- \3118<\205- \3128<0\2023 \210\313)\205C \314!\205C \3158)\3161q :\205m @;\205m A@9\205m A@\205m \3118<\205m \3128<0\202s \210\313)\205\200 \314!\205\200 \317!\211\205\210 \320\n!\313 \321 !\203\305 r\322 !q\210\212\323 !b\210\324`\325p\326\"\"\203\301 \327 !\330 W\203\270 \331
\"\210\202\301 \332\323 !\330
#\210*\202\333 !\203 \334H \335H ! \"\212 \203\335 q\210!dX\203\324\"\325p\326\"\"\203\"b\210\336\337\211@)!!\340#\203\332\"!\330 X\203!\202\330
#\210+,\313\207" [tag region file buffer pulse-flag semantic-idle-symbol-highlight-face require pulse (error) 2 3 nil semantic-tag-with-position-p 4 (error) semantic-tag-file-name get-file-buffer overlayp overlay-buffer overlay-start pos-visible-in-window-p get-buffer-window visible overlay-end point-at-eol pulse-momentary-highlight-overlay pulse-momentary-highlight-region vectorp 0 1 re-search-forward regexp-quote t end start] 6 (#$ . 31848)])
#@365 Non-nil if Global Semantic-Idle-Local-Symbol-Highlight mode is enabled.
See the `global-semantic-idle-local-symbol-highlight-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-idle-local-symbol-highlight-mode'.
(custom-declare-variable 'global-semantic-idle-local-symbol-highlight-mode nil '(#$ . 33067) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean :require 'semantic/idle)
#@253 Toggle global-semantic-idle-local-symbol-highlight-mode.
With ARG, turn the minor mode on if ARG is positive, off otherwise.
When this minor mode is enabled, `semantic-idle-local-symbol-highlight-mode' is
turned on in every Semantic-supported buffer.
(defalias 'global-semantic-idle-local-symbol-highlight-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-idle-local-symbol-highlight-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-idle-local-symbol-highlight-mode 1 -1 run-hooks global-semantic-idle-local-symbol-highlight-mode-hook global-semantic-idle-local-symbol-highlight-mode-on-hook global-semantic-idle-local-symbol-highlight-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Idle-Local-Symbol-Highlight mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 33678) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-idle-local-symbol-highlight-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\207" [global-semantic-idle-local-symbol-highlight-mode-map global-semantic-idle-local-symbol-highlight-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-idle-local-symbol-highlight-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semantic-idle-local-symbol-highlight-mode nil boundp custom-declare-variable semantic-idle-local-symbol-highlight-mode-hook "Hook run at the end of function `semantic-idle-local-symbol-highlight-mode'." :group semantic :type hook] 8)
#@57 Keymap for `semantic-idle-local-symbol-highlight-mode'.
(defvar semantic-idle-local-symbol-highlight-mode-map (make-sparse-keymap) (#$ . 35710))
#@151 Non-nil if Semantic-Idle-Local-Symbol-Highlight mode is enabled.
Use the command `semantic-idle-local-symbol-highlight-mode' to change this variable.
(defvar semantic-idle-local-symbol-highlight-mode nil (#$ . 35862))
(make-variable-buffer-local 'semantic-idle-local-symbol-highlight-mode)
#@471 Highlight the tag and symbol references of the symbol under point.
Call `semantic-analyze-current-context' to find the reference tag.
Call `semantic-symref-hits-in-region' to identify local references.
If called interactively, enable Semantic-Idle-Local-Symbol-Highlight
mode if ARG is positive, and disable it if ARG is zero or negative.
If called from Lisp, also enable the mode if ARG is omitted or nil,
and toggle it if ARG is `toggle'; disable the mode otherwise.
(defalias 'semantic-idle-local-symbol-highlight-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2034 \311\312!\203\" \204- \313\314\315\316 \"\210\2028 \317\320!\210\2028 \321\320!\210\322\323\n\203B \324\202C \325\"\210\326\327!\203h \305 \203W \305 \232\203h \330 \331\332\n\203c \333\202d \334\f#\210))\335 \210\n\207" [#1=#:last-message arg semantic-idle-local-symbol-highlight-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name semantic-idle-scheduler-add semantic-idle-local-symbol-highlight-idle-function semantic-idle-scheduler-remove run-hooks semantic-idle-local-symbol-highlight-mode-hook semantic-idle-local-symbol-highlight-mode-on-hook semantic-idle-local-symbol-highlight-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Idle-Local-Symbol-Highlight mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 36159) (list (or current-prefix-arg 'toggle))])
(defvar semantic-idle-local-symbol-highlight-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\207" [semantic-idle-local-symbol-highlight-mode-map semantic-idle-local-symbol-highlight-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-local-symbol-highlight-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode semantic-idle-local-symbol-highlight-mode nil semantic-add-minor-mode ""] 6)
#@87 Perform idle activity for the minor mode `semantic-idle-local-symbol-highlight-mode'.
(defalias 'semantic-idle-local-symbol-highlight-idle-function #[nil "\306\307!\210\310 \205\300 \311\312!\205 \313\314\"\315 )\211\205 \316 \317\" \205, \320\316 \321\"!@\322 \323 \205\277 \f\205\277 \3241E \325 !0\202I \210\202J \210 \3261w \f:\205s \f@;\205s \fA@9\205s \fA@\205s \327\f8<\205s \330\f8<0\202y \210\323)\205\277 \306\331!\210\332 \333\f\211 \334\f8) \"\335\"!\203\234 \336\"!\202\240 \"\337H*\f\211 \334\f8) \"\335\"!\203\271 \340\"!\202\275 \"\341H*$-\207" [semanticdb-find-default-throttle ctxt Hbounds target tag pulse-flag require pulse semantic-idle-summary-useful-context-p featurep semantic/db-find remq unloaded semantic-analyze-current-context eieio-oref bounds reverse prefix semantic-current-tag nil (error) semantic-idle-symbol-maybe-highlight (error) 2 3 semantic/symref/filter semantic-symref-hits-in-region #[(start end prefix) " @U\204
\306\n #\210\f\205* \307 \204& r\310
!q\210\212
b\210\311 *\205* \312\f\313\"\207" [start Hbounds end semantic-idle-symbol-highlight-face semantic-current-input-throw-symbol semantic--on-input-start-marker pulse-momentary-highlight-region input-pending-p marker-buffer accept-process-output throw symref-highlight] 4] 4 overlayp overlay-start 0 overlay-end 1 o] 7 (#$ . 38254)])
#@326 Non-nil if Global Semantic-Idle-Scheduler mode is enabled.
See the `global-semantic-idle-scheduler-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-idle-scheduler-mode'.
(custom-declare-variable 'global-semantic-idle-scheduler-mode nil '(#$ . 39616) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean)
#@464 Toggle global use of option `semantic-idle-scheduler-mode'.
If called interactively, enable Global Semantic-Idle-Scheduler mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
The idle scheduler will automatically reparse buffers in idle
time, and then schedule other jobs setup with
`semantic-idle-scheduler-add'.
(defalias 'global-semantic-idle-scheduler-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\204) \312\313!\210\314\313!\210\315\313!\210\316\317\n\2033 \320\2024 \313\"\210\321\322\307\302!\203B \323\202C \324\"\210\325\326!\203n \327\302!\210\304 \203[ \304 \232\203n \330\331\332\307\302!\203i \333\202j \334 #\210))\335 \210\307\302!\207" [#1=#:last-message arg global-semantic-idle-scheduler-mode local current-message set-default toggle default-value prefix-numeric-value 0 global-semantic-idle-summary-mode -1 global-semantic-idle-local-symbol-highlight-mode global-semantic-idle-completions-mode semantic-toggle-minor-mode-globally semantic-idle-scheduler-mode 1 run-hooks global-semantic-idle-scheduler-mode-hook global-semantic-idle-scheduler-mode-on-hook global-semantic-idle-scheduler-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Idle-Scheduler mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 40151) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-idle-scheduler-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-semantic-idle-scheduler-mode-map global-semantic-idle-scheduler-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-idle-scheduler-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semantic-idle-scheduler-mode nil boundp] 6)
#@147 Return non-nil if the cursor is at the END of a symbol.
If the cursor is in the middle of a symbol, then we shouldn't be
doing fancy completions.
(defalias 'semantic-idle-completions-end-of-symbol-p #[nil "\300\301!?\207" [looking-at "\\w\\|\\s_"] 2 (#$ . 42192)])
#@46 Calculate and display a list of completions.
(defalias 'semantic-idle-completion-list-default #[nil "\303 \205* \304 \205* \3051 \306\307!\205 \310\311\"\312 )0\207\n\205) \313\314\315 !\")\207" [semanticdb-find-default-throttle err semantic-idle-scheduler-verbose-flag semantic-idle-summary-useful-context-p semantic-idle-completions-end-of-symbol-p (error) featurep semantic/db-find remq unloaded semantic-complete-analyze-inline-idle message " %s" error-message-string] 4 (#$ . 42463)])
#@332 Non-nil if Global Semantic-Idle-Completions mode is enabled.
See the `global-semantic-idle-completions-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semantic-idle-completions-mode'.
(custom-declare-variable 'global-semantic-idle-completions-mode nil '(#$ . 42966) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean :require 'semantic/idle)
#@231 Toggle global-semantic-idle-completions-mode.
With ARG, turn the minor mode on if ARG is positive, off otherwise.
When this minor mode is enabled, `semantic-idle-completions-mode' is
turned on in every Semantic-supported buffer.
(defalias 'global-semantic-idle-completions-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-idle-completions-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-idle-completions-mode 1 -1 run-hooks global-semantic-idle-completions-mode-hook global-semantic-idle-completions-mode-on-hook global-semantic-idle-completions-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Idle-Completions mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 43533) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-idle-completions-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\207" [global-semantic-idle-completions-mode-map global-semantic-idle-completions-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-idle-completions-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semantic-idle-completions-mode nil boundp custom-declare-variable semantic-idle-completions-mode-hook "Hook run at the end of function `semantic-idle-completions-mode'." :group semantic :type hook] 8)
#@46 Keymap for `semantic-idle-completions-mode'.
(defvar semantic-idle-completions-mode-map (make-sparse-keymap) (#$ . 45389))
#@129 Non-nil if Semantic-Idle-Completions mode is enabled.
Use the command `semantic-idle-completions-mode' to change this variable.
(defvar semantic-idle-completions-mode nil (#$ . 45519))
(make-variable-buffer-local 'semantic-idle-completions-mode)
#@744 Toggle Semantic Idle Completions mode.
With ARG, turn Semantic Idle Completions mode on if ARG is
positive, off otherwise.
This minor mode only takes effect if Semantic is active and
`semantic-idle-scheduler-mode' is enabled.
When enabled, Emacs displays a list of possible completions at
idle time. The method for displaying completions is given by
`semantic-complete-inline-analyzer-idle-displayer-class'; the
default is to show completions inline.
While a completion is displayed, RET accepts the completion; M-n
and M-p cycle through completion alternatives; TAB attempts to
complete as far as possible, and cycles if no additional
completion is possible; and any other command cancels the
completion.
\{semantic-complete-inline-map}
(defalias 'semantic-idle-completions-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2034 \311\312!\203\" \204- \313\314\315\316 \"\210\2028 \317\320!\210\2028 \321\320!\210\322\323\n\203B \324\202C \325\"\210\326\327!\203h \305 \203W \305 \232\203h \330 \331\332\n\203c \333\202d \334\f#\210))\335 \210\n\207" [#1=#:last-message arg semantic-idle-completions-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name semantic-idle-scheduler-add semantic-idle-completions-idle-function semantic-idle-scheduler-remove run-hooks semantic-idle-completions-mode-hook semantic-idle-completions-mode-on-hook semantic-idle-completions-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Idle-Completions mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 45772) (list (or current-prefix-arg 'toggle))])
(defvar semantic-idle-completions-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\207" [semantic-idle-completions-mode-map semantic-idle-completions-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-completions-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode semantic-idle-completions-mode nil semantic-add-minor-mode ""] 6)
#@76 Perform idle activity for the minor mode `semantic-idle-completions-mode'.
(defalias 'semantic-idle-completions-idle-function #[nil "\300 \207" [semantic-idle-completion-list-default] 1 (#$ . 48008)])
(byte-code "\301\302\303\304\305\306\307\310&\210\301\311\312\313\305\306\307\314&\210\301\315\316\317\305\306\307&\210\301\320\321\322\305\306\307\323&\210\301\324\325\326\305\306\307\327&\207" [semantic-format-tag-custom-list custom-declare-variable semantic-idle-breadcrumbs-display-function #'semantic-idle-breadcrumbs--display-in-header-line "Function to display the tag under point in idle time.\nThis function should take a list of Semantic tags as its only\nargument. The tags are sorted according to their nesting order,\nstarting with the outermost tag. The function should call\n`semantic-idle-breadcrumbs-format-tag-list-function' to convert\nthe tag list into a string." :group semantic :type (choice (const :tag "Display in header line" semantic-idle-breadcrumbs--display-in-header-line) (const :tag "Display in mode line" semantic-idle-breadcrumbs--display-in-mode-line) (function :tag "Other function")) semantic-idle-breadcrumbs-format-tag-list-function #'semantic-idle-breadcrumbs--format-linear "Function to format the list of tags containing point.\nThis function should take a list of Semantic tags and an optional\nmaximum length of the produced string as its arguments. The\nmaximum length is a hint and can be ignored. When the maximum\nlength is omitted, an unconstrained string should be produced.\nThe tags are sorted according to their nesting order, starting\nwith the outermost tag. Single tags should be formatted using\n`semantic-idle-breadcrumbs-format-tag-function' unless special\nformatting is required." (choice (const :tag "Format tags as list, innermost last" semantic-idle-breadcrumbs--format-linear) (const :tag "Innermost tag with details, followed by remaining tags" semantic-idle-breadcrumbs--format-innermost-first) (function :tag "Other function")) semantic-idle-breadcrumbs-format-tag-function #'semantic-format-tag-abbreviate "Function to call to format information about tags.\nThis function should take a single argument, a Semantic tag, and\nreturn a string to display.\nSome useful functions are found in `semantic-format-tag-functions'." semantic-idle-breadcrumbs-separator 'mode-specific "Specify how to separate tags in the breadcrumbs string.\nAn arbitrary string or a mode-specific scope nesting\nstring (like, for example, \"::\" in C++, or \".\" in Java) can\nbe used." (choice (const :tag "Use mode specific separator" mode-specific) (string :tag "Specify separator string")) semantic-idle-breadcrumbs-header-line-prefix semantic-stickyfunc-indent-string "String used to indent the breadcrumbs string.\nCustomize this string to match the space used by scrollbars and\nfringe." string] 8)
#@80 Menu used when a tag displayed by `semantic-idle-breadcrumbs-mode' is clicked.
(defvar semantic-idle-breadcrumbs-popup-menu nil (#$ . 50874))
#@136 Popup a menu that displays things to do to the clicked tag.
Argument EVENT describes the event that caused this function to
be called.
(defalias 'semantic-idle-breadcrumbs--popup-menu #[(event) "\304 \305!\306 \307\"\210\310 !\210\306\n!*\207" [event window old-window semantic-idle-breadcrumbs-popup-menu selected-window semantic-event-window select-window t popup-menu] 3 (#$ . 51023) "e"])
#@69 Return lambda expression calling FUNCTION when called from a popup.
(defalias 'semantic-idle-breadcrumbs--tag-function '(macro . #[(function) "\301\302\303\304\305\306B\307BBBF\207" [function lambda (event) (interactive "e") let* ((old-window (selected-window)) (window (semantic-event-window event)) (column (car (nth 6 (nth 1 event)))) (tag (progn (select-window window t) (plist-get (text-properties-at column header-line-format) 'tag)))) (tag) ((select-window old-window))] 7 (#$ . 51425)]))
#@50 Keymap for semantic idle breadcrumbs minor mode.
(defvar semantic-idle-breadcrumbs-popup-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key [header-line mouse-1] #[(event) "\306 \307 !\310 A@8@\311\n\312\"\210\313\314 \f\"\305\" \315
!\210\311!,\207" [old-window event window column header-line-format tag selected-window semantic-event-window 6 select-window t plist-get text-properties-at semantic-go-to-tag] 4 nil "e"] [header-line mouse-3] semantic-idle-breadcrumbs--popup-menu] 4) (#$ . 51928))
#@32 Semantic Breadcrumbs Mode Menu
(defvar semantic-idle-breadcrumbs-popup-menu nil (#$ . 52488))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313&\314\305\315\316\310\311\312\317&F$\210\320\321\322\323\324\325\326\327\330\331\330\332\333\334\335\336&\207" [semantic-idle-breadcrumbs-popup-map easy-menu-do-define semantic-idle-breadcrumbs-popup-menu "Semantic Breadcrumbs Mode Menu" "Breadcrumb Tag" vector "Go to Tag" #[(event) "\306 \307 !\310 A@8@\311\n\312\"\210\313\314 \f\"\305\" \315
!\210\311!,\207" [old-window event window column header-line-format tag selected-window semantic-event-window 6 select-window t plist-get text-properties-at semantic-go-to-tag] 4 nil "e"] :active t :help "Jump to this tag" "---" "About this Header Line" #[nil "\300\301!\207" [describe-function semantic-idle-breadcrumbs-mode] 2 nil nil] "Display help about this header line." custom-declare-variable global-semantic-idle-breadcrumbs-mode nil "Non-nil if Global Semantic-Idle-Breadcrumbs mode is enabled.\nSee the `global-semantic-idle-breadcrumbs-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-idle-breadcrumbs-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group semantic semantic-modes :type boolean :require semantic/idle] 16)
#@231 Toggle global-semantic-idle-breadcrumbs-mode.
With ARG, turn the minor mode on if ARG is positive, off otherwise.
When this minor mode is enabled, `semantic-idle-breadcrumbs-mode' is
turned on in every Semantic-supported buffer.
(defalias 'global-semantic-idle-breadcrumbs-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-idle-breadcrumbs-mode local current-message set-default toggle default-value prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-idle-breadcrumbs-mode 1 -1 run-hooks global-semantic-idle-breadcrumbs-mode-hook global-semantic-idle-breadcrumbs-mode-on-hook global-semantic-idle-breadcrumbs-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semantic-Idle-Breadcrumbs mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 53918) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-idle-breadcrumbs-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\207" [global-semantic-idle-breadcrumbs-mode-map global-semantic-idle-breadcrumbs-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-idle-breadcrumbs-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semantic-idle-breadcrumbs-mode nil boundp custom-declare-variable semantic-idle-breadcrumbs-mode-hook "Hook run at the end of function `semantic-idle-breadcrumbs-mode'." :group semantic :type hook] 8)
#@46 Keymap for `semantic-idle-breadcrumbs-mode'.
(defvar semantic-idle-breadcrumbs-mode-map (make-sparse-keymap) (#$ . 55774))
#@129 Non-nil if Semantic-Idle-Breadcrumbs mode is enabled.
Use the command `semantic-idle-breadcrumbs-mode' to change this variable.
(defvar semantic-idle-breadcrumbs-mode nil (#$ . 55904))
(make-variable-buffer-local 'semantic-idle-breadcrumbs-mode)
#@320 Display breadcrumbs for the tag under point and its parents.
If called interactively, enable Semantic-Idle-Breadcrumbs mode if ARG
is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
(defalias 'semantic-idle-breadcrumbs-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\2034 \311\312!\203\" \204- \313\314\315\316 \"\210\2028 \317\320!\210\2028 \321\320!\210\322\323\n\203B \324\202C \325\"\210\326\327!\203h \305 \203W \305 \232\203h \330 \331\332\n\203c \333\202d \334\f#\210))\335 \210\n\207" [#1=#:last-message arg semantic-idle-breadcrumbs-mode semantic-new-buffer-fcn-was-run local current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name semantic-idle-scheduler-add semantic-idle-breadcrumbs-idle-function semantic-idle-scheduler-remove run-hooks semantic-idle-breadcrumbs-mode-hook semantic-idle-breadcrumbs-mode-on-hook semantic-idle-breadcrumbs-mode-off-hook called-interactively-p any " in current buffer" message "Semantic-Idle-Breadcrumbs mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 56157) (list (or current-prefix-arg 'toggle))])
(defvar semantic-idle-breadcrumbs-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\207" [semantic-idle-breadcrumbs-mode-map semantic-idle-breadcrumbs-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-idle-breadcrumbs-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode semantic-idle-breadcrumbs-mode nil semantic-add-minor-mode ""] 6)
#@76 Perform idle activity for the minor mode `semantic-idle-breadcrumbs-mode'.
(defalias 'semantic-idle-breadcrumbs-idle-function #[nil "\303 \211\203 \304\305\306\"\305\307\"\205 \305\307\"C\"\202 \310 \n !*\207" [scope tag-list semantic-idle-breadcrumbs-display-function semantic-calculate-scope append eieio-oref parents tag semantic-find-tag-by-overlay] 6 (#$ . 57969)])
#@66 Display the tags in TAG-LIST in the header line of their buffer.
(defalias 'semantic-idle-breadcrumbs--display-in-header-line #[(tag-list) "\304\305 8\305 @Z\306\307\310 \n\203 \311\n GZ\"\202 \312\313\314\315#P#)\316 \207" [width semantic-idle-breadcrumbs-header-line-prefix tag-list header-line-format 2 window-edges replace-regexp-in-string "\\(%\\)" "%\\1" semantic-idle-breadcrumbs--format-tag-list propertize "<not on tags>" face font-lock-comment-face force-mode-line-update] 8 (#$ . 58354)])
#@102 Display the tags in TAG-LIST in the mode line of their buffer.
TODO THIS FUNCTION DOES NOT WORK YET.
(defalias 'semantic-idle-breadcrumbs--display-in-mode-line #[(tag-list) "\303\304!\210\305\306 8\306 @Z\307\310\311\312 \"#)\313 \207" [width tag-list mode-line-format error "This function does not work yet" 2 window-edges replace-regexp-in-string "\\(%\\)" "%\\1" semantic-idle-breadcrumbs--format-tag-list force-mode-line-update] 6 (#$ . 58866)])
#@161 Format TAG-LIST using configured functions respecting MAX-LENGTH.
If the initial formatting result is longer than MAX-LENGTH, it is
shortened at the beginning.
(defalias 'semantic-idle-breadcrumbs--format-tag-list #[(tag-list max-length) " \n\"\211G\211 \nX\203 \202 \305\306 \f\n\307ZZ\"P*\207" [semantic-idle-breadcrumbs-format-tag-list-function tag-list max-length complete-format complete-length "... " substring 4] 7 (#$ . 59326)])
#@92 Format TAG-LIST as a linear list, starting with the outermost tag.
MAX-LENGTH is not used.
(defalias 'semantic-idle-breadcrumbs--format-linear #[(tag-list &optional max-length) "\303\304!\210\305\306\"\n\307=\203 \310 !\202 \n;\205 \311\312 \n#)\207" [tag-list format-pieces semantic-idle-breadcrumbs-separator require semantic/analyze/fcn mapcar semantic-idle-breadcrumbs--format-tag mode-specific semantic-analyze-unsplit-name mapconcat identity] 5 (#$ . 59774)])
#@136 Format TAG-LIST placing the innermost tag first, separated from its parents.
If MAX-LENGTH is non-nil, the innermost tag is shortened.
(defalias 'semantic-idle-breadcrumbs--format-innermost-first #[(tag-list &optional max-length) "\306!\211\203 \307\310 !P\202 \311\211G\312\313!@\314\"\211 G\211 \\ \2036 X\2036 \f\202E \315\f\316\317
Z\320##\321P\211 \nP.\207" [tag-list rest-tags rest-format rest-length inner-format inner-length butlast " | " semantic-idle-breadcrumbs--format-linear "" semantic-idle-breadcrumbs--format-tag last semantic-format-tag-prototype substring 0 - 4 " ..." complete-length max-length inner-short] 8 (#$ . 60252)])
#@150 Format TAG using the configured function or FORMAT-FUNCTION.
This function also adds text properties for help-echo, mouse
highlighting and a keymap.
(defalias 'semantic-idle-breadcrumbs--format-tag #[(tag &optional format-function) "\206 \n\305\306#\307\310 G\302\n\311\312\313\n\211@)\n\211A@)#\314\315\316\f\257 $\210 )\207" [format-function semantic-idle-breadcrumbs-format-tag-function tag formatted semantic-idle-breadcrumbs-popup-map nil t add-text-properties 0 help-echo format "Tag %s\nType: %s\nmouse-1: jump to tag\nmouse-3: popup context menu" mouse-face highlight keymap] 12 (#$ . 60924)])
(provide 'semantic/idle)
Mini Shell