Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
cedet /
semantic /
Delete
Unzip
Name
Size
Permission
Date
Action
analyze
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
bovine
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
decorate
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
symref
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
wisent
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
analyze.elc
22.96
KB
-rw-r--r--
2023-06-07 04:12
bovine.elc
5.3
KB
-rw-r--r--
2023-06-07 04:12
chart.elc
4.46
KB
-rw-r--r--
2023-06-07 04:12
complete.elc
60.95
KB
-rw-r--r--
2023-06-07 04:12
ctxt.elc
33.49
KB
-rw-r--r--
2023-06-07 04:13
db-debug.elc
2.91
KB
-rw-r--r--
2023-06-07 04:13
db-ebrowse.elc
18.33
KB
-rw-r--r--
2023-06-07 04:13
db-el.elc
10.99
KB
-rw-r--r--
2023-06-07 04:13
db-file.elc
13.46
KB
-rw-r--r--
2023-06-07 04:13
db-find.elc
41.29
KB
-rw-r--r--
2023-06-07 04:13
db-global.elc
7.24
KB
-rw-r--r--
2023-06-07 04:13
db-javascript.elc
8.8
KB
-rw-r--r--
2023-06-07 04:13
db-mode.elc
6.46
KB
-rw-r--r--
2023-06-07 04:13
db-ref.elc
4.23
KB
-rw-r--r--
2023-06-07 04:13
db-typecache.elc
16.64
KB
-rw-r--r--
2023-06-07 04:13
db.elc
31.92
KB
-rw-r--r--
2023-06-07 04:13
debug.elc
15.22
KB
-rw-r--r--
2023-06-07 04:13
decorate.elc
9.35
KB
-rw-r--r--
2023-06-07 04:13
dep.elc
7.65
KB
-rw-r--r--
2023-06-07 04:13
doc.elc
4.01
KB
-rw-r--r--
2023-06-07 04:13
ede-grammar.elc
7.78
KB
-rw-r--r--
2023-06-07 04:13
edit.elc
21.61
KB
-rw-r--r--
2023-06-07 04:13
find.elc
24.33
KB
-rw-r--r--
2023-06-07 04:13
format.elc
34.35
KB
-rw-r--r--
2023-06-07 04:13
fw.elc
11.69
KB
-rw-r--r--
2023-06-07 04:13
grammar-wy.elc
54.27
KB
-rw-r--r--
2023-06-07 04:13
grammar.elc
76.45
KB
-rw-r--r--
2023-06-07 04:13
html.elc
7.55
KB
-rw-r--r--
2023-06-07 04:13
ia-sb.elc
9.94
KB
-rw-r--r--
2023-06-07 04:13
ia.elc
11.97
KB
-rw-r--r--
2023-06-07 04:13
idle.elc
55.48
KB
-rw-r--r--
2023-06-07 04:13
imenu.elc
12.47
KB
-rw-r--r--
2023-06-07 04:13
java.elc
16.67
KB
-rw-r--r--
2023-06-07 04:13
lex-spp.elc
29.99
KB
-rw-r--r--
2023-06-07 04:13
lex.elc
78.19
KB
-rw-r--r--
2023-06-07 04:13
loaddefs.el
59.31
KB
-rw-r--r--
2023-06-07 04:00
mru-bookmark.elc
12.75
KB
-rw-r--r--
2023-06-07 04:13
sb.elc
11.13
KB
-rw-r--r--
2023-06-07 04:13
scope.elc
23.66
KB
-rw-r--r--
2023-06-07 04:13
senator.elc
26.04
KB
-rw-r--r--
2023-06-07 04:13
sort.elc
18.89
KB
-rw-r--r--
2023-06-07 04:13
symref.elc
13
KB
-rw-r--r--
2023-06-07 04:13
tag-file.elc
6.7
KB
-rw-r--r--
2023-06-07 04:13
tag-ls.elc
24.51
KB
-rw-r--r--
2023-06-07 04:13
tag-write.elc
4.04
KB
-rw-r--r--
2023-06-07 04:13
tag.elc
54.79
KB
-rw-r--r--
2023-06-07 04:13
texi.elc
17.29
KB
-rw-r--r--
2023-06-07 04:13
util-modes.elc
38.76
KB
-rw-r--r--
2023-06-07 04:13
util.elc
13.23
KB
-rw-r--r--
2023-06-07 04:13
wisent.elc
8.21
KB
-rw-r--r--
2023-06-07 04:13
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:13:13 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/idle.el ;;; in Emacs version 24.3.1 ;;; 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!\207" [require semantic semantic/ctxt semantic/format semantic/tag timer] 2) #@44 Timer used to schedule tasks in idle time. (defvar semantic-idle-scheduler-timer nil (#$ . 708)) #@66 Timer used to schedule tasks in idle time that may take a while. (defvar semantic-idle-scheduler-work-timer nil (#$ . 811)) (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, it is\nunlikely 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 (#$ . 2096)]) #@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 (#$ . 2529)]) #@69 Hook run at the end of the function `semantic-idle-scheduler-mode'. (custom-declare-variable 'semantic-idle-scheduler-mode-hook nil '(#$ . 2730) :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 (#$ . 2912)) (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 (#$ . 3495)]) (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 (#$ . 4179)) (make-variable-buffer-local 'semantic-idle-scheduler-mode) #@544 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.) With prefix argument ARG, turn on if positive, otherwise off. 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) "\304 \305=\203 \n?\202 \306 !\307V\211\2030 \310\311!\203\" \204- \312\313\314\315 \"\210\2020 \316 \210\317\320\n\203: \321\202; \322\"\210\323\324!\203\\ \304 \203O \304 \232\203\\ \325\326\n\203Y \327\202Z \330\"\210)\331 \210\n\207" [#1=#:last-message arg semantic-idle-scheduler-mode semantic-new-buffer-fcn-was-run 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 message "Semantic-Idle-Scheduler mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4423) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\302\306\"\207" [semantic-idle-scheduler-mode-map 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 (#$ . 6012)) #@46 Schedule FUNCTION to occur during idle time. (defalias 'semantic-idle-scheduler-add #[(function) "\301\302\"\207" [function add-to-list semantic-idle-scheduler-queue] 3 (#$ . 6309)]) #@48 Unschedule FUNCTION to occur during idle time. (defalias 'semantic-idle-scheduler-remove #[(function) "\302 \"\211\207" [function semantic-idle-scheduler-queue delete] 3 (#$ . 6499)]) #@97 Core idle function that handles reparsing. And also manages services that depend on tag values. (defalias 'semantic-idle-core-handler #[nil "\203 \302\303!\210\304\211\305\215\210)\205 \302\306!\207" [semantic-idle-scheduler-verbose-flag semantic-current-input-throw-symbol message "IDLE: Core handler..." idle-timer (byte-code "\306\307p\307\306\310\311\312 \"\"\"\306\211\306 ;\205 \313 ! #$\205^ \314\315!\205+ ?\205^ %?\205^ #\204E ;\203E \316 !\204R #\205^ \313 \306\317#\205^ &\320X\206^ \321 &W)\203p\212'(\203p \322 \202t \323\324\325\217 \306 )\211 *\203*@)+\203\231 \326 \204\223 \327 \203\231 \330+\331\"\210r)q\210'\f=\203 ;\205\255 \313 ! #$\205\357 \314\315!\205\274 ?\205\357 %?\205\357 #\204\326 ;\203\326 \316 !\204\343 #\205\357 \313 \306\317#\205\357 &\320X\206\357 \321 &W)\203\n(\203\376 \322 \210\202\n\323\332\333\217\210\202\np B)*A\211*\204 * ),\306 -\211 *\203o*@-\212+\203>\326 \2048\327 \203>\330+\334\"\210.\203I\335\336-\"\210(\203U- \210\202Z\323\337\340\217\210.\203e\335\341-\"\210)*A\211*\204#*\212 \306 )\211 *\203\365*@)+\203\225\326 \204\217\327 \203\225\330+\342\"\210r)q\210 ;\205\242\313 ! #$\205\344\314\315!\205\261 ?\205\344%?\205\344#\204\313 ;\203\313\316 !\204\330#\205\344\313 \306\317#\205\344&\320X\206\344\321 &W)\203\353\322 \210)*A\211*\204{.\306\207" [inhibit-quit buffers safe others mode buffer-file-name 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 err (semantic-idle-scheduler-refresh-tags) ((error (byte-code "\301\302\303\304p\305!#\"\210\306\207" [err message "Idle Parse Error: %S" format #1="%S - %s" error-message-string nil] 7))) input-pending-p accept-process-output throw parsing-mode-buffers (semantic-idle-scheduler-refresh-tags) ((error (byte-code "\301\302\303\304p\305!#\"\207" [err message "Idle Parse Error: %S" format #1# error-message-string] 7))) idle-queue message "IDLE: execute service %s..." (funcall service) ((error (byte-code "\302\303\304\"\303\305p\306 !#\"\207" [service err message format "Idle Service Error %s: %%S" #1# error-message-string] 7))) "IDLE: execute service %s...done" parsing-other-buffers remote-file\? semantic-idle-scheduler-mode semantic-lex-debug semantic-idle-scheduler-max-buffer-size major-mode debug-on-error b --dolist-tail-- semantic-current-input-throw-symbol semantic-idle-scheduler-queue service semantic-idle-scheduler-verbose-flag] 8) "IDLE: Core handler...done"] 3 (#$ . 6691)]) #@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 (#$ . 9349) 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\303 !\205 \304\305 \306\216\307 +\207" [debug-on-error save-match-data-internal zerop recursion-depth nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) semantic-idle-core-handler] 2 (#$ . 9543)]) (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 \303 \210\202 \304\305\306\217\205Q \n\205Q \2034 \307\310!\203; \311 \203; \312\313!\210\314\315\"\210\202; \304\316\317\217\205Q \203M \307\320!\203I \321!\210\322\202Q \304\323\324\217)?\207" [buffer debug-on-error semantic-idle-work-update-headers-flag semantic-idle-scheduler-refresh-tags err (byte-code "\300 \210\301\207" [semantic-idle-scheduler-refresh-tags t] 1) ((error (byte-code "\301\302\303\304p\305!#\"\210\306\207" [err message "Idle Work Parse Error: %S" format #1="%S - %s" error-message-string nil] 7))) featurep semantic/db semanticdb-minor-mode-p require semantic/db-find semanticdb-find-translate-path nil (byte-code "\301\302!\203 \303 \203 \304\305!\210\306\307\"\210\310\207" [buffer featurep semantic/db semanticdb-minor-mode-p require semantic/db-find semanticdb-find-translate-path nil t] 3) ((error (byte-code "\301\302\303\304p\305!#\"\210\306\207" [err message "Idle Work Including Error: %S" format #1# error-message-string nil] 7))) semantic/db-typecache semanticdb-typecache-refresh-for-buffer t (byte-code "\301\302!\203\n \303!\210\304\207" [buffer featurep semantic/db-typecache semanticdb-typecache-refresh-for-buffer t] 2) ((error (byte-code "\301\302\303\304p\305!#\"\210\306\207" [err message "Idle Work Typecaching Error: %S" format #1# error-message-string nil] 7)))] 3 (#$ . 10590)]) #@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 "\303\304\211\305\215) \203 \306\202+ \n\204 \307\202+ \nA\204& \310\311\n@\"\202+ \310\312\nG\"*\207" [semantic-current-input-throw-symbol interrupted errbuf nil idle-work-timer (byte-code "\306p\307p\307\306\310\311\312 \"\"\"\306\211 ;\205 \313 ! \205^ \314\315!\205+ ?\205^ !?\205^ \204E ;\203E \316 !\204R \205^ \313 \306\317#\205^ \"\320X\206^ \321 \"W)\203h \212\322p!) \204p p\fB\n\306 #\211 $\203I$@#%\203\224 \323 \204\216 \324 \203\224 \325%\326\"\210r#q\210 ;\205\241 \313 ! \205\343 \314\315!\205\260 ?\205\343 !?\205\343 \204\312 ;\203\312 \316 !\204\327 \205\343 \313 \306\317#\205\343 \"\320X\206\343 \321 \"W)\203? ;\205\357 \313 ! \2051\314\315!\205\376 ?\2051!?\2051 \204 ;\203\316 !\204% \2051\313 \306\317#\2051\"\320X\2061\321 \"W)\203?\322p!\204?p\fB)$A\211$\204z *\327\330!\203s\331 \203s\332 \210&\203p'\203k q\210\333 \210\202p\334\335\336\217\210\332 \210-\306\207" [inhibit-quit cb buffers safe errbuf buffer-file-name 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-work-for-one-buffer input-pending-p 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 err (byte-code "q\210\301 \207" [cb semantic-idle-scheduler-work-parse-neighboring-files] 1) ((error (byte-code "\301\302\303\304p\305!#\"\207" [err message "Idle Work Parse Neighboring Files: %S" format "%S - %s" error-message-string] 7))) remote-file\? semantic-idle-scheduler-mode semantic-lex-debug semantic-idle-scheduler-max-buffer-size b --dolist-tail-- semantic-current-input-throw-symbol semantic-idle-work-parse-neighboring-files-flag debug-on-error] 8) "Interrupted" "done" format "done with 1 error in %s" "done with errors in %d buffers."] 4 (#$ . 12129)]) #@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 (#$ . 14408) 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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) semantic-idle-work-core-handler "Long Work Idle Timer...%s"] 3 (#$ . 14618)]) #@69 Parse all the files in similar directories to buffers being edited. (defalias 'semantic-idle-scheduler-work-parse-neighboring-files #[nil "\306 \307\211\205S @\211A\f=\203K \310 \311\n@\311$\307 \211\203J @\203< \312 \2046 \313 \203< \314\315\"\210\212\316!\210) A\211\204# * A\211\204\n \307+\207" [ede-auto-add-method auto-mode-alist a --dolist-tail-- major-mode default-directory never nil directory-files t input-pending-p accept-process-output throw parsing-mode-buffers semanticdb-file-table-object file semantic-current-input-throw-symbol] 6 (#$ . 15261)]) #@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 (#$ . 15850)) #@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 (#$ . 16109)) (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\202K \204 \310\202K \307\310\307\311\312\217\210\313\216 \203' \314\315\316 \"\210\317\211 \320\321\215\211 \2036 \306+\203> \307 \203H \314\322\316 \"\210)\n*\323\324!\210\325p!\210\207" [semantic-parse-tree-state inhibit-quit lexically-safe semantic-idle-scheduler-verbose-flag semantic-lex-unterminated-syntax-end-function semantic-flex-unterminated-syntax-end-function unparseable nil t (byte-code "\300\301!\207" [run-hooks semantic-before-idle-scheduler-reparse-hook] 2) ((error (byte-code "\301\211\207" [semantic-before-idle-scheduler-reparse-hook nil] 2))) ((byte-code "\300\301\302\217\207" [nil (byte-code "\300\301!\207" [run-hooks semantic-after-idle-scheduler-reparse-hook] 2) ((error (byte-code "\301\211\207" [semantic-after-idle-scheduler-reparse-hook nil] 2)))] 3)) message "IDLE: reparse %s..." buffer-name #[(#1=#:syntax #2=#:start #3=#:end) "\301\302\"\207" [#1# throw idle-scheduler] 3] idle-scheduler (byte-code "\212\212\300 \210*\301\207" [semantic-fetch-tags nil] 1) "IDLE: reparse %s...done" require semantic/decorate/mode semantic-decorate-flush-pending-decorations #4=#:ret] 4 (#$ . 16633)]) #@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! 3\316\3173\320\3103!\321\310 !\322\260\323\324\325\326\325\327\330\331\332\333 D\3343\335BBE\257\f\336\f\337\340\310 !\341Q\342BBBB\343 \344\345\310 !\341QF\317 4\346 \334 \334\347\350\351 \352BB\353BB\354\355 DDF\356\355 DDF\257\357\333 D\360BB\361 \337\362\310 !\341Q5BBBB\257.\207" [name func setup map hook mode intern "global-" symbol-name "-mode" "-mode-hook" "-mode-map" "-mode-setup" "-idle-function" eval-and-compile 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))) progn 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 (#$ . 18162)])) (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 !\211@A)\202I \313\314p!!\315 \211 \203F @\211 @)\230\203= @ BA\211\204* \237+@\207" [semanticdb-current-database sym x semantic-case-fold case-fold-search result featurep semantic/db require semantic/db-find semanticdb-deep-find-tags-by-name semantic-something-to-tag-table semantic-flatten-tags-table nil tags tag] 4 (#$ . 20707)]) (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\205U \307\310!\203% \203% \311\312!\203% \313!\211@A)\202S \314\315p!!\316 \211 \203P @\211 @)\230\203G @ BA\211\2044 \237+@))\207" [sym semanticdb-current-database x semantic-case-fold case-fold-search result 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 tags tag] 4 (#$ . 21429)]) #@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 "\305 @\211\205M \211\306\n!\205 ;\205 \307 \n\")\211\205# J)\205M \310\211\306\n!\205< ;\205< \307 \n\")\211 \203H \f N\202L \311\312\313\"+)\207" [sym name semantic-flex-keywords-obarray property keyword semantic-ctxt-current-thing arrayp intern-soft summary signal wrong-type-argument (semantic-lex-keyword-p name)] 4 (#$ . 22104)]) #@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 "\301\302\303\217\211\205 \304\305!\210\306!)\207" [analysis nil (byte-code "\300`!\207" [semantic-analyze-current-context] 2) ((error)) require semantic/analyze semantic-analyze-interesting-tag] 4 (#$ . 22619)]) #@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 (#$ . 23023)]) #@603 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-string-face font-lock-doc-face) (#$ . 23561)) #@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 (#$ . 24327)]) #@57 Return a string message describing the current context. (defalias 'semantic-idle-summary-current-symbol-info #[nil "\306\211\307\310\211\n\311 !\307 \n\204+ \211\204+ \205* \312 \"\n\203U \f\204U \n\313N\203D \312 \n\313N\"\211\204+ \n\211\314N\206O \n\315N)\211\204/ \f,\211\205h \203f N\205h J+\206\341 \211\316N)\205\341 \211\316N)\307\310\211\n\311 !\307 \n\204\243 \211\204\243 \205\242 \312 \"\n\203\315 \f\204\315 \n\313N\203\274 \312 \n\313N\"\211\204\243 \n\211\314N\206\307 \n\315N)\211\204\247 \f,\211\205\340 \203\336 N\205\340 J+)\211 \203\356 \202\360 \317 )\207" [overload property mode symbol bind name semantic-idle-summary-current-symbol-info nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-idle-summary-current-symbol-info-default mode-local-active-mode major-mode #1=#:override] 5 (#$ . 24605)]) (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=\206o \307 ?\206o \310 \211;\203 \202' \311\312\313\217)\205' \311\314#\211 \2036 \315\305!\2036 \204L \316\317 !S \fGV\203K \f\320O)\203k \316\317 !S\fG V\203j \f\320O*\321\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 nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) t boundp window-width minibuffer-window 0 eldoc-message w semantic-idle-truncate-long-summaries strlen ea-width] 5 (#$ . 25939)]) #@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 (#$ . 26794)) (make-variable-buffer-local 'semantic-idle-summary-mode) #@237 Toggle Semantic Idle Summary mode. With ARG, turn Semantic Idle Summary mode on if ARG is positive, off 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) "\304 \305=\203 \n?\202 \306 !\307V\211\203; \310\311!\203\" \204* \312\313\314\315 \"\210\316\317!\210\320\321!\210\322\323\324\325#\210\202E \326\321!\210\327\323\324\325#\210\330\331\n\203O \332\202P \333\"\210\334\335!\203q \304 \203d \304 \232\203q \336\337\n\203n \340\202o \341\"\210)\342 \210\n\207" [#1=#:last-message arg semantic-idle-summary-mode semantic-new-buffer-fcn-was-run 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 message "Semantic-Idle-Summary mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 27031) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [semantic-idle-summary-mode-map 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 command `global-semantic-idle-summary-mode' for 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) #@242 Toggle Global Semantic Idle Summary mode. With ARG, turn Global Semantic Idle Summary mode on if ARG is positive, off 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) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314\n\203+ \315\202, \316\"\210\317\320!\203Q \321\302!\210\303 \203D \303 \232\203Q \322\323\n\203N \324\202O \325\"\210)\326 \210\n\207" [#1=#:last-message arg global-semantic-idle-summary-mode current-message toggle 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" "en" "dis" force-mode-line-update] 3 (#$ . 29431) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-semantic-idle-summary-mode-map add-minor-mode global-semantic-idle-summary-mode nil boundp] 6) #@43 Face used for highlighting local symbols. (defvar semantic-idle-symbol-highlight-face 'region (#$ . 30618)) #@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\310\311\312\217)\205 \313!\205 \3148)\310\315\316\217)\205. \313!\205. \317!\211\2056 \320\n!\310 \321 !\203r r\322 !q\210\323 !b\210\324`\325p\326\"\"\203n \327 !\330 W\203e \331 \"\210\202n \332\323 !\330 #\210)\202\305 \333 !\203\305 \334H \335H ! \"\212 \203\212 q\210!dX\203\304 \324\"\325p\326\"\"\203\304 \"b\210\336\337\211@)!!\340#\203\304 \332\"!\330 X\203\277 !\202\301 \330 #\210+,\310\207" [tag region file buffer pulse-flag semantic-idle-symbol-highlight-face require pulse nil (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-with-position-p 4 (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic-tag-file-name get-file-buffer semantic-overlay-p semantic-overlay-buffer semantic-overlay-start pos-visible-in-window-p get-buffer-window visible semantic-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 (#$ . 30733)]) #@365 Non-nil if Global-Semantic-Idle-Local-Symbol-Highlight mode is enabled. See the command `global-semantic-idle-local-symbol-highlight-mode' 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 '(#$ . 32035) :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) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314\n\203+ \315\202, \316\"\210\317\320!\203Q \321\302!\210\303 \203D \303 \232\203Q \322\323\n\203N \324\202O \325\"\210)\326 \210\n\207" [#1=#:last-message arg global-semantic-idle-local-symbol-highlight-mode current-message toggle 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" "en" "dis" force-mode-line-update] 3 (#$ . 32646) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\303\307\310\311\312\313&\207" [global-semantic-idle-local-symbol-highlight-mode-map 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) (#$ . 34194)) #@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 (#$ . 34346)) (make-variable-buffer-local 'semantic-idle-local-symbol-highlight-mode) #@203 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. (defalias 'semantic-idle-local-symbol-highlight-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\2034 \310\311!\203\" \204- \312\313\314\315 \"\210\2028 \316\317!\210\2028 \320\317!\210\321\322\n\203B \323\202C \324\"\210\325\326!\203d \304 \203W \304 \232\203d \327\330\n\203a \331\202b \332\"\210)\333 \210\n\207" [#1=#:last-message arg semantic-idle-local-symbol-highlight-mode semantic-new-buffer-fcn-was-run 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 message "Semantic-Idle-Local-Symbol-Highlight mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 34643) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-idle-local-symbol-highlight-mode-map 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\214 \311\312!\205 \313\314\"\315 )\211\205 \316 \317\" \205, \320\316 \321\"!@\322 \323 \205\213 \f\205\213 \323\324\325\217\210 \323\326\327\217)\205\213 \306\330!\210\331 \332\f\211 \333\f8) !\334!!\203h \335!!\202l !\336H*\f\211 \333\f8) !\334!!\203\205 \337!!\202\211 !\340H*$-\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 (semantic-idle-symbol-maybe-highlight target) ((error)) (byte-code ":\205# @;\205# A@9\205# A@\205# \3018<\205# \3028<\207" [tag 2 3] 2) ((error)) semantic/symref/filter semantic-symref-hits-in-region #[(start end prefix) " @U\204 \305\n #\210\f\205 \306 \204 \307 \205 \310\f\311\"\207" [start Hbounds end semantic-idle-symbol-highlight-face semantic-current-input-throw-symbol pulse-momentary-highlight-region input-pending-p accept-process-output throw symref-highlight] 4] 4 semantic-overlay-p semantic-overlay-start 0 semantic-overlay-end 1 o] 7 (#$ . 36054)]) #@326 Non-nil if Global-Semantic-Idle-Scheduler mode is enabled. See the command `global-semantic-idle-scheduler-mode' 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 '(#$ . 37375) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean) #@263 Toggle global use of option `semantic-idle-scheduler-mode'. 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 or nil, enable, if it is negative, disable. (defalias 'global-semantic-idle-scheduler-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\204$ \307\310!\210\311\310!\210\312\310!\210\313\314\n\203. \315\202/ \310\"\210\316\317\n\203; \320\202< \321\"\210\322\323!\203a \324\302!\210\303 \203T \303 \232\203a \325\326\n\203^ \327\202_ \330\"\210)\331 \210\n\207" [#1=#:last-message arg global-semantic-idle-scheduler-mode current-message toggle 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" "en" "dis" force-mode-line-update] 4 (#$ . 37910) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-semantic-idle-scheduler-mode-map 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 (#$ . 39307)]) #@46 Calculate and display a list of completions. (defalias 'semantic-idle-completion-list-default #[nil "\300 \205 \301 \205 \302\303\304\217\207" [semantic-idle-summary-useful-context-p semantic-idle-completions-end-of-symbol-p err (byte-code "\301\302!\205\n \303\304\"\305 )\207" [semanticdb-find-default-throttle featurep semantic/db-find remq unloaded semantic-complete-analyze-inline-idle] 3) ((error (byte-code "\205\n \302\303\304 !\"\207" [semantic-idle-scheduler-verbose-flag err message " %s" error-message-string] 4)))] 3 (#$ . 39578)]) #@332 Non-nil if Global-Semantic-Idle-Completions mode is enabled. See the command `global-semantic-idle-completions-mode' 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 '(#$ . 40136) :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) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314\n\203+ \315\202, \316\"\210\317\320!\203Q \321\302!\210\303 \203D \303 \232\203Q \322\323\n\203N \324\202O \325\"\210)\326 \210\n\207" [#1=#:last-message arg global-semantic-idle-completions-mode current-message toggle 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" "en" "dis" force-mode-line-update] 3 (#$ . 40703) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\303\307\310\311\312\313&\207" [global-semantic-idle-completions-mode-map 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) (#$ . 42108)) #@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 (#$ . 42238)) (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-displayor-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) "\304 \305=\203 \n?\202 \306 !\307V\211\2034 \310\311!\203\" \204- \312\313\314\315 \"\210\2028 \316\317!\210\2028 \320\317!\210\321\322\n\203B \323\202C \324\"\210\325\326!\203d \304 \203W \304 \232\203d \327\330\n\203a \331\202b \332\"\210)\333 \210\n\207" [#1=#:last-message arg semantic-idle-completions-mode semantic-new-buffer-fcn-was-run 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 message "Semantic-Idle-Completions mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 42491) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-idle-completions-mode-map 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 (#$ . 44344)]) (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\nproduced. The tags are sorted according to their nesting order,\nstarting with the outermost tag. Single tags should be formatted\nusing `semantic-idle-breadcrumbs-format-tag-function' unless\nspecial formatting 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 (#$ . 47205)) #@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 semantic-popup-menu] 3 (#$ . 47354) "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 (#$ . 47765)])) #@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) (#$ . 48268)) #@32 Semantic Breadcrumbs Mode Menu (defvar semantic-idle-breadcrumbs-popup-menu nil (#$ . 48828)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314&!\315\305\306\316\317\311\312\313\320&!F$\210\321\322\323\324\325\326\327\330\331\332\331\333\334\335\336\337&\207" [semantic-idle-breadcrumbs-popup-map easy-menu-do-define semantic-idle-breadcrumbs-popup-menu "Semantic Breadcrumbs Mode Menu" "Breadcrumb Tag" semantic-menu-item 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 command `global-semantic-idle-breadcrumbs-mode' for 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) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314\n\203+ \315\202, \316\"\210\317\320!\203Q \321\302!\210\303 \203D \303 \232\203Q \322\323\n\203N \324\202O \325\"\210)\326 \210\n\207" [#1=#:last-message arg global-semantic-idle-breadcrumbs-mode current-message toggle 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" "en" "dis" force-mode-line-update] 3 (#$ . 50286) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\303\307\310\311\312\313&\207" [global-semantic-idle-breadcrumbs-mode-map 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) (#$ . 51691)) #@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 (#$ . 51821)) (make-variable-buffer-local 'semantic-idle-breadcrumbs-mode) #@62 Display breadcrumbs for the tag under point and its parents. (defalias 'semantic-idle-breadcrumbs-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\2034 \310\311!\203\" \204- \312\313\314\315 \"\210\2028 \316\317!\210\2028 \320\317!\210\321\322\n\203B \323\202C \324\"\210\325\326!\203d \304 \203W \304 \232\203d \327\330\n\203a \331\202b \332\"\210)\333 \210\n\207" [#1=#:last-message arg semantic-idle-breadcrumbs-mode semantic-new-buffer-fcn-was-run 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 message "Semantic-Idle-Breadcrumbs mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 52073) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-idle-breadcrumbs-mode-map 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 (#$ . 53244)]) #@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 (#$ . 53629)]) #@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 (#$ . 54141)]) #@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 \f\n\306ZZ\307OP*\207" [semantic-idle-breadcrumbs-format-tag-list-function tag-list max-length complete-format complete-length "... " 4 nil] 6 (#$ . 54601)]) #@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 (#$ . 55042)]) #@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\202D \f\315\316 Z\317#O\320P\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 0 - 4 " ..." complete-length max-length inner-short] 7 (#$ . 55520)]) #@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 (#$ . 56178)]) (provide 'semantic/idle)