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:21 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/util-modes.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\302\303\304\305\306\301%\210\307\310\311\312\306\301\313\314\315\316\317\320\321\322& \210\307\323\324\325\306\301\313\326\315\316\317\320& \207" [require semantic custom-declare-group semantic-modes nil "Minor modes associated with the Semantic architecture." :group custom-declare-variable semantic-update-mode-line t "If non-nil, show enabled minor modes in the mode line.\nOnly minor modes that are not turned on globally are shown in the mode\nline." :type boolean :require semantic/util-modes :initialize custom-initialize-default :set #[(sym val) "\302 \"\210\303 \207" [sym val set-default semantic-mode-line-update] 3] semantic-mode-line-prefix (propertize "S" 'face 'bold) "Prefix added to minor mode indicators in the mode line." string] 14) #@108 Mode line format showing Semantic minor modes which are locally enabled. It is displayed in the mode line. (defvar semantic-minor-modes-format nil (#$ . 1345)) (put 'semantic-minor-modes-format 'risky-local-variable t) #@99 Alist saying how to show Semantic minor modes in the mode line. Like variable `minor-mode-alist'. (defvar semantic-minor-mode-alist nil (#$ . 1570)) #@120 Update mode line format of Semantic minor modes. Only minor modes that are locally enabled are shown in the mode line. (defalias 'semantic-mode-line-update #[nil "\306 \306\211\203 @\307\n@\f\236\f\" A\211\204\n * \205\250 \306 \306\211\203] @\211@>\204V \310\311\n\211A@)\"\203V \n@\312\313\314\n\211A@)\"PDB A\211\204, *\205\247 \310\311\"\203s \313\314\"\202t \315 \316\317\320\321\322\"B\323PEDC\300\f\236\206\216 \324\211 \f>\206\234 \fB\211\211 A\244\241+)\207" [semantic-minor-modes-format semantic-minor-mode-alist x --dolist-tail-- minor-mode-alist semantic-update-mode-line nil delq string-match "^[ ]*\\(.+\\)" "/" match-string 1 "S" :eval if or mapcar car " " (semantic-minor-modes-format semantic-minor-modes-format) locals semantic-init-hook semantic-mode-line-prefix prefix elem tail] 7 (#$ . 1726)]) #@122 Installed as a minor-mode initializer for Desktop mode. BUFFER is the buffer to not initialize a Semantic minor mode in. (defalias 'semantic-desktop-ignore-this-minor-mode #[(buffer) "\300\207" [nil] 1 (#$ . 2593)]) #@408 Register a new Semantic minor mode. TOGGLE is a symbol which is the name of a buffer-local variable that is toggled on or off to say whether the minor mode is active or not. It is also an interactive function to toggle the mode. NAME specifies what will appear in the mode line when the minor mode is active. NAME should be either a string starting with a space, or a symbol whose value is such a string. (defalias 'semantic-add-minor-mode #[(toggle name) " \236\211\203 \n C\241\210\202 D B)\304 \210\305\306!\205& \307\306\310B\"\207" [toggle semantic-minor-mode-alist mm name semantic-mode-line-update boundp desktop-minor-mode-handlers add-to-list semantic-desktop-ignore-this-minor-mode] 5 (#$ . 2816)]) #@311 Toggle minor mode MODE in every Semantic enabled buffer. Return non-nil if MODE is turned on in every Semantic enabled buffer. If ARG is positive, enable, if it is negative, disable. MODE must be a valid minor mode defined in `minor-mode-alist' and must be too an interactive function used to toggle the mode. (defalias 'semantic-toggle-minor-mode-globally #[(mode &optional arg) "\305!\203 \236\204 \n\236\204 \306\307\"\210 \310W\203% \311\312\"\210\2027 \310V\2033 \313\312\"\210\2027 \306\314!\210\315 \210\316 \317\f\320\")\207" [mode minor-mode-alist semantic-minor-mode-alist arg function fboundp error "Semantic minor mode %s not found" 0 remove-hook semantic-init-hook add-hook "semantic-toggle-minor-mode-globally: arg should be -1 or 1" semantic-mode-line-update #[nil " !\207" [mode arg] 2] mode-local-map-file-buffers semantic-active-p] 3 (#$ . 3542)]) #@329 Non-nil if Global-Semantic-Highlight-Edits mode is enabled. See the command `global-semantic-highlight-edits-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-highlight-edits-mode'. (custom-declare-variable 'global-semantic-highlight-edits-mode nil '(#$ . 4427) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean) #@125 Toggle global use of option `semantic-highlight-edits-mode'. If ARG is positive or nil, enable, if it is negative, disable. (defalias 'global-semantic-highlight-edits-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-highlight-edits-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-highlight-edits-mode 1 -1 run-hooks global-semantic-highlight-edits-mode-hook global-semantic-highlight-edits-mode-on-hook global-semantic-highlight-edits-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Semantic-Highlight-Edits mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 4965) (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&\210\314\315\316\317\310\320%\207" [global-semantic-highlight-edits-mode-map add-minor-mode global-semantic-highlight-edits-mode nil boundp custom-declare-variable semantic-highlight-edits-mode-hook "Hook run at the end of function `semantic-highlight-edits-mode'." :group semantic :type hook custom-declare-face semantic-highlight-edits-face ((((class color) (background dark)) (:background "gray20")) (((class color) (background light)) (:background "gray90"))) "Face used to show dirty tokens in `semantic-highlight-edits-mode'." semantic-faces] 8) #@171 Function set into `semantic-edits-new-change-hook'. Argument OVERLAY is the overlay created to mark the change. This function will set the face property on this overlay. (defalias 'semantic-highlight-edits-new-change-hook-fcn #[(overlay) "\301\302\303#\207" [overlay semantic-overlay-put face semantic-highlight-edits-face] 4 (#$ . 6537)]) #@40 Keymap for highlight-edits minor mode. (defvar semantic-highlight-edits-mode-map (make-sparse-keymap) (#$ . 6884)) #@127 Non-nil if Semantic-Highlight-Edits mode is enabled. Use the command `semantic-highlight-edits-mode' to change this variable. (defvar semantic-highlight-edits-mode nil (#$ . 7006)) (make-variable-buffer-local 'semantic-highlight-edits-mode) #@489 Minor mode for highlighting changes made in a buffer. Changes are tracked by semantic so that the incremental parser can work properly. This mode will highlight those changes as they are made, and clear them when the incremental parser accounts for those edits. 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-highlight-edits-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\2037 \310\311!\203\" \204- \312\313\314\315 \"\210\202= \316\317\320\312\321$\210\202= \322\317\320\321#\210\323\324\n\203G \325\202H \326\"\210\327\330!\203i \304 \203\\ \304 \232\203i \331\332\n\203f \333\202g \334\"\210)\335 \210\n\207" [#1=#:last-message arg semantic-highlight-edits-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 add-hook semantic-edits-new-change-functions semantic-highlight-edits-new-change-hook-fcn t remove-hook run-hooks semantic-highlight-edits-mode-hook semantic-highlight-edits-mode-on-hook semantic-highlight-edits-mode-off-hook called-interactively-p any message "Semantic-Highlight-Edits mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 7254) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\210\306\307\303\310\311\312\313\314\315\316\315\317\320\321& \207" [semantic-highlight-edits-mode-map add-minor-mode semantic-highlight-edits-mode nil semantic-add-minor-mode "e" custom-declare-variable global-semantic-show-unmatched-syntax-mode "Non-nil if Global-Semantic-Show-Unmatched-Syntax mode is enabled.\nSee the command `global-semantic-show-unmatched-syntax-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-show-unmatched-syntax-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group semantic semantic-modes :type boolean] 14) #@131 Toggle global use of option `semantic-show-unmatched-syntax-mode'. If ARG is positive or nil, enable, if it is negative, disable. (defalias 'global-semantic-show-unmatched-syntax-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-show-unmatched-syntax-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-show-unmatched-syntax-mode 1 -1 run-hooks global-semantic-show-unmatched-syntax-mode-hook global-semantic-show-unmatched-syntax-mode-on-hook global-semantic-show-unmatched-syntax-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Semantic-Show-Unmatched-Syntax mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 9463) (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&\210\314\315\316\317\310\320%\207" [global-semantic-show-unmatched-syntax-mode-map add-minor-mode global-semantic-show-unmatched-syntax-mode nil boundp custom-declare-variable semantic-show-unmatched-syntax-mode-hook "Hook run at the end of function `semantic-show-unmatched-syntax-mode'." :group semantic :type hook custom-declare-face semantic-unmatched-syntax-face ((((class color) (background dark)) (:underline "red")) (((class color) (background light)) (:underline "red"))) "Face used to show unmatched syntax in.\nThe face is used in `semantic-show-unmatched-syntax-mode'." semantic-faces] 8) #@55 Return non-nil if OVERLAY is an unmatched syntax one. (defalias 'semantic-unmatched-syntax-overlay-p #[(overlay) "\301\302\"\303=\207" [overlay semantic-overlay-get semantic unmatched] 3 (#$ . 11131)]) (put 'semantic-unmatched-syntax-overlay-p 'byte-optimizer 'byte-compile-inline-expand) #@68 Return non-nil if an unmatched syntax overlay was found in buffer. (defalias 'semantic-showing-unmatched-syntax-p #[nil "\303ed\"\304\211\203! \204! @\305\n\306\")\307= A\211\204 *\207" [found ol overlay semantic-overlays-in nil semantic-overlay-get semantic unmatched] 4 (#$ . 11427)]) #@157 Fetch a list of unmatched lexical tokens from the current buffer. Uses the overlays which have accurate bounds, and rebuilds what was originally passed in. (defalias 'semantic-show-unmatched-lex-tokens-fetch #[nil "\303ed\"\304\211\203- @\305\n\306\")\307=\203& \310\311 @!\312 @!BBB A\211\204 \237*\207" [ustc ol overlay semantic-overlays-in nil semantic-overlay-get semantic unmatched thing semantic-overlay-start semantic-overlay-end] 5 (#$ . 11730)]) #@59 Remove all unmatched syntax overlays between BEG and END. (defalias 'semantic-clean-unmatched-syntax-in-region #[(beg end) "\304 \"\211\205# \n@\305 \306\")\307=\203 \310\n@!\210\nA\211\204 \311)\207" [beg end ol overlay semantic-overlays-in semantic-overlay-get semantic unmatched semantic-overlay-delete nil] 4 (#$ . 12200)]) #@63 Remove all unmatched syntax overlays found in current buffer. (defalias 'semantic-clean-unmatched-syntax-in-buffer #[nil "\300ed\"\207" [semantic-clean-unmatched-syntax-in-region] 3 (#$ . 12540)]) (put 'semantic-clean-unmatched-syntax-in-buffer 'byte-optimizer 'byte-compile-inline-expand) #@62 Clean the area covered by TOKEN of unmatched syntax markers. (defalias 'semantic-clean-token-of-unmatched-syntax #[(token) "\303\211\304 8)\305\n!\203 \306\n!\202 \n\307H*\211\304 8)\305\n!\203/ \310\n!\2022 \n\311H*\"\207" [token tag o semantic-clean-unmatched-syntax-in-region 4 semantic-overlay-p semantic-overlay-start 0 semantic-overlay-end 1] 5 (#$ . 12836)]) (put 'semantic-clean-token-of-unmatched-syntax 'byte-optimizer 'byte-compile-inline-expand) #@113 Function set into `semantic-unmatched-syntax-hook'. This will highlight elements in SYNTAX as unmatched syntax. (defalias 'semantic-show-unmatched-syntax #[(syntax) "\303ed\"\210\205U \304\205T \305@\211\211A@\247\204\" \nAA\202$ \nA)@)@\211\211A@\247\2049 \nAA\202; \nA)A)\"\306 \307\310#\210\306 \311\312#\210A\211\204 \304)\207" [syntax o token semantic-clean-unmatched-syntax-in-region nil semantic-make-overlay semantic-overlay-put semantic unmatched face semantic-unmatched-syntax-face] 5 (#$ . 13311)]) #@94 Find the next overlay for unmatched syntax after POINT. Do not search past BOUND if non-nil. (defalias 'semantic-next-unmatched-syntax #[(point &optional bound) "\212b\210\305\n\203K \n \206 dW\203K \204K \306\n!\211\203 \307\n! \203 <\203 @ \310\f\311\")\312=\203? @ <\203& A\211\202' +\207" [point ol os bound overlay nil semantic-overlay-next-change semantic-overlays-at semantic-overlay-get semantic unmatched] 4 (#$ . 13840)]) #@59 Keymap for command `semantic-show-unmatched-syntax-mode'. (defvar semantic-show-unmatched-syntax-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key ",`" semantic-show-unmatched-syntax-next] 4) (#$ . 14296)) #@139 Non-nil if Semantic-Show-Unmatched-Syntax mode is enabled. Use the command `semantic-show-unmatched-syntax-mode' to change this variable. (defvar semantic-show-unmatched-syntax-mode nil (#$ . 14547)) (make-variable-buffer-local 'semantic-show-unmatched-syntax-mode) #@568 Minor mode to highlight unmatched lexical syntax tokens. When a parser executes, some elements in the buffer may not match any parser rules. These text characters are considered unmatched syntax. Often time, the display of unmatched syntax can expose coding problems before the compiler is run. 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. \{semantic-show-unmatched-syntax-mode-map} (defalias 'semantic-show-unmatched-syntax-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203K \312\313!\203\" \204- \314\315\316\317 \"\210\202\\ \320\321\322\314\323$\210\320\324\325\314\323$\210\f\204\\ \204\\ \322\326 !\210\202\\ \327\321\322\323#\210\327\324\325\323#\210\330ed\"\210\331\332\n\203f \333\202g \334\"\210\335\336!\203\210 \306 \203{ \306 \232\203\210 \337\340\n\203\205 \341\202\206 \342\"\210)\343 \210\n\207" [#1=#:last-message arg semantic-show-unmatched-syntax-mode semantic-new-buffer-fcn-was-run semantic-unmatched-syntax-cache-check semantic-parse-tree-state current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-unmatched-syntax-hook semantic-show-unmatched-syntax t semantic-pre-clean-token-hooks semantic-clean-token-of-unmatched-syntax semantic-unmatched-syntax-tokens remove-hook semantic-clean-unmatched-syntax-in-region run-hooks semantic-show-unmatched-syntax-mode-hook semantic-show-unmatched-syntax-mode-on-hook semantic-show-unmatched-syntax-mode-off-hook called-interactively-p any message "Semantic-Show-Unmatched-Syntax mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 14820) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-show-unmatched-syntax-mode-map add-minor-mode semantic-show-unmatched-syntax-mode nil semantic-add-minor-mode "u"] 6) #@58 Move forward to the next occurrence of unmatched syntax. (defalias 'semantic-show-unmatched-syntax-next #[nil "\301`!\211\205\f \302!b)\207" [o semantic-next-unmatched-syntax semantic-overlay-start] 3 (#$ . 16858) nil]) #@335 Non-nil if Global-Semantic-Show-Parser-State mode is enabled. See the command `global-semantic-show-parser-state-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-show-parser-state-mode'. (custom-declare-variable 'global-semantic-show-parser-state-mode nil '(#$ . 17087) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :type 'boolean) #@127 Toggle global use of option `semantic-show-parser-state-mode'. If ARG is positive or nil, enable, if it is negative, disable. (defalias 'global-semantic-show-parser-state-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-show-parser-state-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-show-parser-state-mode 1 -1 run-hooks global-semantic-show-parser-state-mode-hook global-semantic-show-parser-state-mode-on-hook global-semantic-show-parser-state-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Semantic-Show-Parser-State mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 17611) (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-show-parser-state-mode-map add-minor-mode global-semantic-show-parser-state-mode nil boundp custom-declare-variable semantic-show-parser-state-mode-hook "Hook run at the end of function `semantic-show-parser-state-mode'." :group semantic :type hook] 8) #@42 Keymap for show-parser-state minor mode. (defvar semantic-show-parser-state-mode-map (make-sparse-keymap) (#$ . 18923)) #@131 Non-nil if Semantic-Show-Parser-State mode is enabled. Use the command `semantic-show-parser-state-mode' to change this variable. (defvar semantic-show-parser-state-mode nil (#$ . 19050)) (make-variable-buffer-local 'semantic-show-parser-state-mode) #@700 Minor mode for displaying parser cache state in the modeline. The cache can be in one of three states. They are Up to date, Partial reparse needed, and Full reparse needed. The state is indicated in the modeline with the following characters: `-' -> The cache is up to date. `!' -> The cache requires a full update. `~' -> The cache needs to be incrementally parsed. `%' -> The cache is not currently parsable. `@' -> Auto-parse in progress (not set here.) 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-show-parser-state-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203v \311\312!\203\" \204- \313\314\315\316 \"\210\202\253 \317\f>\2048 \320\f\321\"\322\323\324\313\325$\210\322\326\324\313\325$\210\322\327\324\313\325$\210\322\330\324\313\325$\210\324 \210\322\331\332\313\325$\210\322\333\324\313\325$\210\322\334\332\313\325$\210\322\335\324\313\325$\210\202\253 \336\317\f\"\337\323\324\325#\210\337\326\324\325#\210\337\327\324\325#\210\337\330\324\325#\210\337\331\332\325#\210\337\333\324\325#\210\337\334\332\325#\210\337\335\324\325#\210\340\341\n\203\265 \342\202\266 \343\"\210\344\345!\203\327 \305 \203\312 \305 \232\203\327 \346\347\n\203\324 \350\202\325 \351\"\210)\352 \210\n\207" [#1=#:last-message arg semantic-show-parser-state-mode semantic-new-buffer-fcn-was-run mode-line-modified current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name semantic-show-parser-state-string append (semantic-show-parser-state-string) add-hook semantic-edits-new-change-functions semantic-show-parser-state-marker t semantic-edits-incremental-reparse-failed-hook semantic-after-partial-cache-change-hook semantic-after-toplevel-cache-change-hook semantic-before-auto-parse-hooks semantic-show-parser-state-auto-marker semantic-after-auto-parse-hooks semantic-before-idle-scheduler-reparse-hook semantic-after-idle-scheduler-reparse-hook delq remove-hook run-hooks semantic-show-parser-state-mode-hook semantic-show-parser-state-mode-on-hook semantic-show-parser-state-mode-off-hook called-interactively-p any message "Semantic-Show-Parser-State mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 19307) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-show-parser-state-mode-map add-minor-mode semantic-show-parser-state-mode nil semantic-add-minor-mode ""] 6) #@103 String showing the parser state for this buffer. See `semantic-show-parser-state-marker' for details. (defvar semantic-show-parser-state-string nil (#$ . 21958)) (make-variable-buffer-local 'semantic-show-parser-state-string) #@426 Set `semantic-show-parser-state-string' to indicate parser state. This marker is one of the following: `-' -> The cache is up to date. `!' -> The cache requires a full update. `~' -> The cache needs to be incrementally parsed. `%' -> The cache is not currently parsable. `@' -> Auto-parse in progress (not set here.) Arguments IGNORE are ignored, and accepted so this can be used as a hook in many situations. (defalias 'semantic-show-parser-state-marker #[(&rest ignore) "\302=\203\n \303\202 \304=\203 \305\202 \306=\203 \307\202 \310\211\207" [semantic-parse-tree-state semantic-show-parser-state-string needs-rebuild "!" needs-update "^" unparseable "%" "-"] 2 (#$ . 22191)]) #@128 Hook function run before an autoparse. Set up `semantic-show-parser-state-marker' to show `@' to indicate a parse in progress. (defalias 'semantic-show-parser-state-auto-marker #[nil "\205 \302\211\207" [semantic-parse-tree-state semantic-show-parser-state-string "@"] 2 (#$ . 22902)]) #@314 Non-nil if Global-Semantic-Stickyfunc mode is enabled. See the command `global-semantic-stickyfunc-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-stickyfunc-mode'. (custom-declare-variable 'global-semantic-stickyfunc-mode nil '(#$ . 23198) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :group 'semantic-modes :type 'boolean) #@120 Toggle global use of option `semantic-stickyfunc-mode'. If ARG is positive or nil, enable, if it is negative, disable. (defalias 'global-semantic-stickyfunc-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-stickyfunc-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-stickyfunc-mode 1 -1 run-hooks global-semantic-stickyfunc-mode-hook global-semantic-stickyfunc-mode-on-hook global-semantic-stickyfunc-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Semantic-Stickyfunc mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 23717) (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-stickyfunc-mode-map add-minor-mode global-semantic-stickyfunc-mode nil boundp custom-declare-variable semantic-stickyfunc-mode-hook "Hook run at the end of function `semantic-stickyfunc-mode'." :group semantic :type hook] 8) #@35 Keymap for stickyfunc minor mode. (defvar semantic-stickyfunc-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key [header-line down-mouse-1] semantic-stickyfunc-menu] 4) (#$ . 24945)) #@74 Menu used if the user clicks on the header line used by stickyfunc mode. (defvar semantic-stickyfunc-popup-menu nil (#$ . 25170)) #@17 Stickyfunc Menu (defvar semantic-stickyfunc-popup-menu nil (#$ . 25306)) (byte-code "\301\302\303\304$\210\305\306\307\310\311\312\313\314&\207" [semantic-stickyfunc-mode-map easy-menu-do-define semantic-stickyfunc-popup-menu "Stickyfunc Menu" ("Stickyfunc Mode" :visible (progn nil) ["Copy Headerline Tag" senator-copy-tag :active (semantic-current-tag) :help "Copy the current tag to the tag ring"] ["Kill Headerline Tag" senator-kill-tag :active (semantic-current-tag) :help "Kill tag text to the kill ring, and copy the tag to the tag ring"] ["Copy Headerline Tag to Register" senator-copy-tag-to-register :active (semantic-current-tag) :help "Copy the current tag to a register"] ["Narrow To Headerline Tag" senator-narrow-to-defun :active (semantic-current-tag) :help "Narrow to the bounds of the current tag"] ["Fold Headerline Tag" senator-fold-tag-toggle :active (semantic-current-tag) :style toggle :selected (let ((tag (semantic-current-tag))) (and tag (semantic-tag-folded-p tag))) :help "Fold the current tag to one line"] "---" ["About This Header Line" (lambda nil (interactive) (describe-function 'semantic-stickyfunc-mode)) t]) custom-declare-variable semantic-stickyfunc-indent-string (if (and window-system (not (featurep 'xemacs))) (concat (condition-case nil (let ((charwidth (frame-char-width)) (scrollpos (frame-parameter (selected-frame) 'vertical-scroll-bars))) (if (or (eq scrollpos 'left) (eq scrollpos t)) (let ((w (when (boundp 'scroll-bar-width) (symbol-value 'scroll-bar-width)))) (if (not w) (setq w (frame-parameter (selected-frame) 'scroll-bar-width))) (if (not w) (setq w (+ (get 'scroll-bar-width 'x-frame-parameter) 1))) (if (not w) " " (setq w (+ 2 w)) (make-string (/ w charwidth) 32))) #1="")) (error #1#)) (condition-case nil (let* ((f (window-fringes)) (fw (car f)) (numspace (/ fw (frame-char-width)))) (make-string numspace 32)) (error (condition-case nil (if (get 'fringe 'face) " " #1#) (error #1#))))) #1#) "String used to indent the stickyfunc header.\nCustomize this string to match the space used by scrollbars and\nfringe so it does not appear that the code is moving left/right\nwhen it lands in the sticky line." :group semantic :type string] 8) #@57 Value of the header line when entering stickyfunc mode. (defvar semantic-stickyfunc-old-hlf nil (#$ . 27514)) #@49 The header line format used by stickyfunc mode. (defconst semantic-stickyfunc-header-line-format (byte-code "\301Y\203 \302\207\303U\203 \304\207\305\207" [emacs-major-version 22 (:eval (list (propertize " " 'display '((space :align-to 0))) (semantic-stickyfunc-fetch-stickyline))) 21 (:eval (list semantic-stickyfunc-indent-string (semantic-stickyfunc-fetch-stickyline))) nil] 2) (#$ . 27630)) #@117 Non-nil if Semantic-Stickyfunc mode is enabled. Use the command `semantic-stickyfunc-mode' to change this variable. (defvar semantic-stickyfunc-mode nil (#$ . 28036)) (make-variable-buffer-local 'semantic-stickyfunc-mode) #@572 Minor mode to show the title of a tag in the header line. Enables/disables making the header line of functions sticky. A function (or other tag class specified by `semantic-stickyfunc-sticky-classes') has a header line, meaning the first line which describes the rest of the construct. This first line is what is displayed in the header line. 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-stickyfunc-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203O \312\313!\203\" \204* \314\315\316\317 \"\210\320\321!\2046 \314\315\322!\210\323\304p\"\203J \f =\204J \324\325!\210\f \202g \f =\203g \326\304!\210\323\325p\"\203g \326\325!\210\327\330\n\203q \331\202r \332\"\210\333\334!\203\223 \306 \203\206 \306 \232\203\223 \335\336\n\203\220 \337\202\221 \340\"\210)\341 \210\n\207" [#1=#:last-message arg semantic-stickyfunc-mode semantic-new-buffer-fcn-was-run header-line-format semantic-stickyfunc-header-line-format current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name boundp default-header-line-format "Sticky Function mode requires Emacs 21" local-variable-p make-local-variable semantic-stickyfunc-old-hlf kill-local-variable run-hooks semantic-stickyfunc-mode-hook semantic-stickyfunc-mode-on-hook semantic-stickyfunc-mode-off-hook called-interactively-p any message "Semantic-Stickyfunc mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 28265) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\303\211%\207" [semantic-stickyfunc-mode-map add-minor-mode semantic-stickyfunc-mode nil] 6) #@71 List of tag classes which stickyfunc will display in the header line. (defvar semantic-stickyfunc-sticky-classes '#'type (#$ . 30090)) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [make-variable-buffer-local semantic-stickyfunc-sticky-classes custom-declare-variable semantic-stickyfunc-show-only-functions-p nil "Non-nil means don't show lines that aren't part of a tag.\nIf this is nil, then comments or other text between tags that is\n1 line above the top of the current window will be shown." :group semantic :type boolean] 8) #@47 Return the tag to stick at the current point. (defalias 'semantic-stickyfunc-tag-to-stick #[nil "\303`!\237\211\203 @\211A@)\n\235\204 A\211\204 @)\207" [tags tag semantic-stickyfunc-sticky-classes semantic-find-tag-by-overlay] 3 (#$ . 30648)]) #@177 Make the function at the top of the current window sticky. Capture its function declaration, and place it in the header line. If there is no function, disable the header line. (defalias 'semantic-stickyfunc-fetch-stickyline #[nil "\212\306\307 !b\210o\310y\210\311\210\312 \211\204. \203 \313\202X \n\203& \313\202X \314 \315 {\202X \211\316 8)\317 !\203C \320 !\202F \321H*b\210\322 \211@)\311\323#\210\314 \315 {) \321 \324\325\f #\203s \326\327\323\211\f\321%\321\225T\202\\ \324\330\f #\203\206 \326\331\323\211\f\321%\202s \f,\207" [noshow tag semantic-stickyfunc-show-only-functions-p o str start window-start selected-window -1 nil semantic-stickyfunc-tag-to-stick "" point-at-bol point-at-eol 4 semantic-overlay-p semantic-overlay-start 0 search-forward t string-match "%" replace-match "%%" " " " "] 7 (#$ . 30909)]) #@138 Popup a menu that can help a user understand stickyfunc-mode. Argument EVENT describes the event that caused this function to be called. (defalias 'semantic-stickyfunc-menu #[(event) "\304 A@@\305\n\306\"\210\212\307\n!b\210\310\311!\210\312 \"\210)\305!*\207" [startwin event win semantic-stickyfunc-popup-menu selected-window select-window t window-start sit-for 0 popup-menu] 3 (#$ . 31763) "e"]) (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-stickyfunc-mode "" custom-declare-variable global-semantic-highlight-func-mode nil "Non-nil if Global-Semantic-Highlight-Func mode is enabled.\nSee the command `global-semantic-highlight-func-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-highlight-func-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group semantic semantic-modes :type boolean] 14) #@124 Toggle global use of option `semantic-highlight-func-mode'. If ARG is positive or nil, enable, if it is negative, disable. (defalias 'global-semantic-highlight-func-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-highlight-func-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-highlight-func-mode 1 -1 run-hooks global-semantic-highlight-func-mode-hook global-semantic-highlight-func-mode-on-hook global-semantic-highlight-func-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Semantic-Highlight-Func mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 32832) (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-highlight-func-mode-map add-minor-mode global-semantic-highlight-func-mode nil boundp custom-declare-variable semantic-highlight-func-mode-hook "Hook run at the end of function `semantic-highlight-func-mode'." :group semantic :type hook] 8) #@39 Keymap for highlight-func minor mode. (defvar semantic-highlight-func-mode-map (byte-code "\302 \303\304 \305#\210 *\207" [m3 km make-sparse-keymap [mouse-3] define-key semantic-highlight-func-menu] 4) (#$ . 34108)) #@89 Menu used if the user clicks on the header line used by `semantic-highlight-func-mode'. (defvar semantic-highlight-func-popup-menu nil (#$ . 34333)) #@21 Highlight-Func Menu (defvar semantic-highlight-func-popup-menu nil (#$ . 34488)) (easy-menu-do-define 'semantic-highlight-func-popup-menu semantic-highlight-func-mode-map "Highlight-Func Menu" '("Highlight-Func Mode" :visible (progn nil) ["Copy Tag" senator-copy-tag :active (semantic-current-tag) :help "Copy the current tag to the tag ring"] ["Kill Tag" senator-kill-tag :active (semantic-current-tag) :help "Kill tag text to the kill ring, and copy the tag to the tag ring"] ["Copy Tag to Register" senator-copy-tag-to-register :active (semantic-current-tag) :help "Copy the current tag to a register"] ["Narrow To Tag" senator-narrow-to-defun :active (semantic-current-tag) :help "Narrow to the bounds of the current tag"] ["Fold Tag" senator-fold-tag-toggle :active (semantic-current-tag) :style toggle :selected (let ((tag (semantic-stickyfunc-tag-to-stick))) (and tag (semantic-tag-folded-p tag))) :help "Fold the current tag to one line"] "---" ["About This Tag" semantic-describe-tag t])) #@136 Popup a menu that displays things to do to the current tag. Argument EVENT describes the event that caused this function to be called. (defalias 'semantic-highlight-func-menu #[(event) "\304 \305 !\306\n\307\"\210\212\310 !\210\311\312!\210\313 !\210)\306!*\207" [startwin event win semantic-highlight-func-popup-menu selected-window semantic-event-window select-window t mouse-set-point sit-for 0 semantic-popup-menu] 3 (#$ . 35493) "e"]) #@53 Overlay used to highlight the tag the cursor is in. (defvar semantic-highlight-func-ct-overlay nil (#$ . 35942)) (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [make-variable-buffer-local semantic-highlight-func-ct-overlay custom-declare-face semantic-highlight-func-current-tag-face ((((class color) (background dark)) (:background "gray20")) (((class color) (background light)) (:background "gray90"))) "Face used to show the top of current function." :group semantic-faces] 6) #@125 Non-nil if Semantic-Highlight-Func mode is enabled. Use the command `semantic-highlight-func-mode' to change this variable. (defvar semantic-highlight-func-mode nil (#$ . 36438)) (make-variable-buffer-local 'semantic-highlight-func-mode) #@657 Minor mode to highlight the first line of the current tag. Enables/disables making the current function's first line light up. A function (or other tag class specified by `semantic-stickyfunc-sticky-classes') is highlighted, meaning the first line which describes the rest of the construct. See `semantic-stickyfunc-mode' for putting a function in the header line. This mode recycles the stickyfunc configuration classes list. 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-highlight-func-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\2034 \310\311!\203\" \204* \312\313\314\315 \"\210\316\317\320\312\321$\210\202> \322\317\320\321#\210\320\321!\210\323\324\n\203H \325\202I \326\"\210\327\330!\203j \304 \203] \304 \232\203j \331\332\n\203g \333\202h \334\"\210)\335 \210\n\207" [#1=#:last-message arg semantic-highlight-func-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 add-hook post-command-hook semantic-highlight-func-highlight-current-tag t remove-hook run-hooks semantic-highlight-func-mode-hook semantic-highlight-func-mode-on-hook semantic-highlight-func-mode-off-hook called-interactively-p any message "Semantic-Highlight-Func mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 36683) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [semantic-highlight-func-mode-map add-minor-mode semantic-highlight-func-mode nil boundp] 6) #@213 Highlight the current tag under point. Optional argument DISABLE will turn off any active highlight. If the current tag for this buffer is different from the last time this function was called, move the overlay. (defalias 'semantic-highlight-func-highlight-current-tag #[(&optional disable) "\306 \204\223 \203 \307!p=\203\223 \310 \211\204< \311eep\312\313%\314\n\315\312#\210\314\n\316\317#\210\314\n\320 #\210\314\n\321\322#\210\n \203D \f\203T \314\n\301\313#\210\323\neep$\210\202\222 \324\n\301\" =\204\222 \212 \211\325 8) \326 !\203s \327 !\202v \330H*b\210\331 \211@)\313\312#\210\314\n\301 #\210\323\n\332 \333 #\210)*\313\207" [semantic-highlight-func-ct-overlay tag ol semantic-highlight-func-mode-map disable o minibufferp semantic-overlay-buffer semantic-stickyfunc-tag-to-stick semantic-make-overlay t nil semantic-overlay-put highlight-func face semantic-highlight-func-current-tag-face keymap help-echo "Current Function : mouse-3 - Context menu" semantic-overlay-move semantic-overlay-get 4 semantic-overlay-p semantic-overlay-start 0 search-forward point-at-bol point-at-eol] 7 (#$ . 38427)]) (byte-code "\300\301\302\"\210\303\304!\207" [semantic-add-minor-mode semantic-highlight-func-mode "" provide semantic/util-modes] 3)