ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/db-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'semantic/db)
#@69 List of hooks and values to add/remove when configuring semanticdb.
(defvar semanticdb-hooks '((semanticdb-semantic-init-hook-fcn semantic-init-db-hook) (semanticdb-synchronize-table semantic-after-toplevel-cache-change-hook) (semanticdb-partial-synchronize-table semantic-after-partial-cache-change-hook) (semanticdb-revert-hook before-revert-hook) (semanticdb-kill-hook kill-buffer-hook) (semanticdb-kill-hook change-major-mode-hook) (semanticdb-kill-emacs-hook kill-emacs-hook)) (#$ . 433))
#@54 Return non-nil if `semanticdb-minor-mode' is active.
(defalias 'semanticdb-minor-mode-p #[nil "@@@A@J\235\207" [semanticdb-hooks] 2 (#$ . 933)])
#@305 Non-nil if Global Semanticdb minor mode is enabled.
See the `global-semanticdb-minor-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-semanticdb-minor-mode'.
(custom-declare-variable 'global-semanticdb-minor-mode nil '(#$ . 1087) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'semantic :type 'boolean)
#@210 Toggle Semantic DB mode.
With ARG, turn Semantic DB mode on if ARG is positive, off otherwise.
In Semantic DB mode, Semantic parsers store results in a
database, which can be saved for future Emacs sessions.
(defalias 'global-semanticdb-minor-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203; \314 \211 \2037
@\315\fA@\f@\"\210
A\211\204% *\202V \314 \211 \203U
@\316\fA@\f@\"\210
A\211\204C *\317\320\311\302!\203b \321\202c \322\"\210\323\324!\203\220 \325\302!\210\306 \203{ \306 \232\203\220 \326 \327\330\311\302!\203\212 \331\202\213 \332 #\210))\333 \210\311\302!\207" [#1=#:last-message arg global-semanticdb-minor-mode semanticdb-hooks elt --dolist-tail-- current-message set-default toggle default-value prefix-numeric-value 0 nil add-hook remove-hook run-hooks global-semanticdb-minor-mode-hook global-semanticdb-minor-mode-on-hook global-semanticdb-minor-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Semanticdb minor mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 1570) (list (or current-prefix-arg 'toggle))])
#@193 Hook run after entering or leaving `global-semanticdb-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar global-semanticdb-minor-mode-hook nil (#$ . 2708))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\307\"\210\305\310\302\"\210\311\312\307\313#\207" [global-semanticdb-minor-mode-map add-minor-mode global-semanticdb-minor-mode nil boundp defvaralias semanticdb-mode-hook global-semanticdb-minor-mode-hook semanticdb-global-mode semantic-varalias-obsolete semanticdb-mode-hooks "23.2"] 6)
#@110 Toggle use of the Semantic Database feature.
Update the environment of Semantic enabled buffers accordingly.
(defalias 'semanticdb-toggle-global-mode #[nil "\300 \203 \301 \210\302\303!\207" [semanticdb-minor-mode-p semanticdb-save-all-db global-semanticdb-minor-mode toggle] 2 (#$ . 3318) nil])
#@80 Function saved in `semantic-init-db-hook'.
Sets up the semanticdb environment.
(defalias 'semanticdb-semantic-init-hook-fcn #[nil "\306 \205| \307\306 !\211@A \310\n\304\f#\210\n\310\n\311p#\210\312\n\313\"\203; \314\n\313\"\203; \314\n\315\"\2066 \316dU\204@ \317 \202{ \3201N \321\314\n\322\"!0\202W \210\323 \210\310\n\322\324#\210\314\n\325\"\211 \203k \326\327!\210\330 !\210)\331\314\n\313\"!\210\310\n\332\324#\210\333 +\207" [ans cdb ctbl semanticdb-current-database major-mode semanticdb-current-table buffer-file-name semanticdb-create-table-for-file eieio-oset buffer slot-boundp tags eieio-oref pointmax 0 semantic-clear-toplevel-cache (unbound-slot) semantic-set-unmatched-syntax-cache unmatched-syntax semantic-clear-unmatched-syntax-cache nil lexical-table require semantic/lex-spp semantic-lex-spp-set-dynamic-table semantic--set-buffer-cache dirty semantic--tag-link-cache-to-buffer lt] 5 (#$ . 3621)])
#@216 Hook run before a revert buffer.
We can't track incremental changes due to a revert, so just clear the cache.
This will prevent the next batch of hooks from wasting time parsing things
that don't need to be parsed.
(defalias 'semanticdb-revert-hook #[nil "\205 \205 \n\205 \303 \207" [semantic-new-buffer-fcn-was-run semantic--buffer-cache semanticdb-current-table semantic-clear-toplevel-cache] 1 (#$ . 4556)])
#@198 Function run when a buffer is killed.
If there is a semantic cache, slurp out the overlays, and store
it in our database. If that buffer has no cache, ignore it, we'll
handle it later if need be.
(defalias 'semanticdb-kill-hook #[nil "\205\\ \205\\ \n\205\\ \305 \210 \306=\203* \307 \210\310\n\311\312#\210\310\n\313\312#\210\310\n\314\315#\207\3161U \317 \210\310\n\311d#\210\320\321\n!! \310\n\313\322\f8#\210\310\n\314\323\f8#\210\310\n\324\315#)0\207\210\307 \210\325\326!\207" [semantic-new-buffer-fcn-was-run semantic--buffer-cache semanticdb-current-table semantic-parse-tree-state fattr semantic-fetch-tags-fast needs-rebuild semantic-clear-toplevel-cache eieio-oset pointmax 0 fsize lastmodtime nil (error) semantic--tag-unlink-cache-from-buffer file-attributes semanticdb-full-filename 7 5 buffer message "semanticdb: Failed to deoverlay tag cache."] 5 (#$ . 4980)])
#@63 Function called when Emacs is killed.
Save all the databases.
(defalias 'semanticdb-kill-emacs-hook #[nil "\300 \207" [semanticdb-save-all-db] 1 (#$ . 5867)])
#@74 Function run after parsing.
Argument NEW-TABLE is the new table of tags.
(defalias 'semanticdb-synchronize-table #[(new-table) "\205 \302 \"\207" [semanticdb-current-table new-table semanticdb-synchronize] 3 (#$ . 6032)])
#@74 Function run after parsing.
Argument NEW-TABLE is the new table of tags.
(defalias 'semanticdb-partial-synchronize-table #[(new-table) "\205 \302 \"\207" [semanticdb-current-table new-table semanticdb-partial-synchronize] 3 (#$ . 6263)])
(provide 'semantic/db-mode)
Kontol Shell Bypass