Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/db-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)) (#$ . 431))
#@54 Return non-nil if `semanticdb-minor-mode' is active.
(defalias 'semanticdb-minor-mode-p #[nil "@@@A@J\235\207" [semanticdb-hooks] 2 (#$ . 931)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\304\306\307\310\311\312\313\314\315\316\317& \207" [defvaralias semanticdb-mode-hook global-semanticdb-minor-mode-hook semanticdb-global-mode global-semanticdb-minor-mode custom-declare-variable nil "Non-nil if Global Semanticdb minor mode is enabled.\nSee the `global-semanticdb-minor-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semanticdb-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group semantic :type boolean] 12)
#@396 Toggle Semantic DB mode.
If called interactively, enable Global Semanticdb minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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 (#$ . 1748) (list (or current-prefix-arg 'toggle))])
(defvar global-semanticdb-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\301\313#\207" [global-semanticdb-minor-mode-map global-semanticdb-minor-mode-hook variable-documentation put "Hook run after entering or leaving `global-semanticdb-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-semanticdb-minor-mode nil boundp 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 (#$ . 3638) 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 (#$ . 3941)])
#@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 (#$ . 4876)])
#@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 "\205b \205b \n\205b \305 \210 \306=\203* \307 \210\310\n\311\312#\210\310\n\313\312#\210\310\n\314\315#\207\3161[ \317 \210\310\n\311d#\210\320\321\n!! \310\n\313\f\3228\262#\210\310\n\314\f\3238\262#\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."] 6 (#$ . 5300)])
#@63 Function called when Emacs is killed.
Save all the databases.
(defalias 'semanticdb-kill-emacs-hook #[nil "\300 \207" [semanticdb-save-all-db] 1 (#$ . 6196)])
#@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 (#$ . 6361)])
#@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 (#$ . 6592)])
(provide 'semantic/db-mode)
Mini Shell