Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/semantic/fw.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306#\210\307\310\311\312#\210\313\310\311\314#\210\307\315\316\312#\210\313\315\316\314#\210\307\317\320\312#\210\313\317\320\314#\210\307\321\322\312#\210\313\321\322\314#\210\307\323\324\312#\210\313\323\324\314#\210\307\325\326\312#\210\313\325\326\314#\210\307\327\330\312#\210\313\327\330\314#\210\307\331\332\312#\210\313\331\332\314#\210\307\333\334\312#\210\313\333\334\314#\210\307\335\311\312#\210\313\335\311\314#\210\307\336\337\312#\210\313\336\337\314#\210\307\340\341\312#\210\313\340\341\314#\210\307\342\343\312#\210\313\342\343\314#\210\307\344\345\312#\210\313\344\345\314#\210\307\346\347\312#\210\313\346\347\314#\210\307\350\351\312#\210\313\350\351\314#\210\307\352\353\312#\210\313\352\353\314#\210\307\354\355\312#\210\313\354\355\314#\210\307\356\357\312#\210\313\356\357\314#\207" [require mode-local eieio load "semantic/loaddefs" noerror nomessage defalias semantic-overlay-live-p overlay-buffer nil make-obsolete "27.1" semantic-make-overlay make-overlay semantic-overlay-put overlay-put semantic-overlay-get overlay-get semantic-overlay-properties overlay-properties semantic-overlay-move move-overlay semantic-overlay-delete delete-overlay semantic-overlays-at overlays-at semantic-overlays-in overlays-in semantic-overlay-buffer semantic-overlay-start overlay-start semantic-overlay-end overlay-end semantic-overlay-next-change next-overlay-change semantic-overlay-previous-change previous-overlay-change semantic-overlay-lists overlay-lists semantic-overlay-p overlayp semantic-read-event read-event semantic-popup-menu popup-menu semantic-buffer-local-value buffer-local-value] 4)
#@32 Extract the window from EVENT.
(defalias 'semantic-event-window #[(event) "A@@\207" [event] 1 (#$ . 2075)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\"\210\300\310\311\312!\203\312\202\313\"\210\300\314\315\"\207" [defalias semantic-make-local-hook identity nil make-obsolete "27.1" semantic-mode-line-update force-mode-line-update semantic-run-mode-hooks fboundp run-mode-hooks run-hooks semantic-subst-char-in-string subst-char-in-string] 4)
#@51 Delete OVERLAY if it is a semantic token overlay.
(defalias 'semantic-delete-overlay-maybe #[(overlay) "\301\302\"\205\n\303!\207" [overlay overlay-get semantic delete-overlay] 3 (#$ . 2555)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias semantic-menu-item identity nil make-obsolete "27.1"] 4)
#@45 List of all overlays waiting to be flushed.
(defvar semantic-cache-data-overlays nil (#$ . 2880))
#@537 In BUFFER over the region START END, remember VALUE.
NAME specifies a special name that can be searched for later to
recover the cached data with `semantic-get-cache-data'.
LIFESPAN indicates how long the data cache will be remembered.
The default LIFESPAN is `end-of-command'.
Possible Lifespans are:
  `end-of-command' - Remove the cache at the end of the currently
                     executing command.
  `exit-cache-zone' - Remove when point leaves the overlay at the
                      end of the currently executing command.
(defalias 'semantic-cache-data-to-buffer #[(buffer start end value name &optional lifespan) "\204\306\307>\204\310\311\"\210\312	\n#\313\f\314
#\210\313\f\315#\210\313\f\300#\210\fB\316\317\320\")\207" [lifespan start end buffer o name end-of-command (end-of-command exit-cache-zone) error "semantic-cache-data-to-buffer: Unknown LIFESPAN: %s" make-overlay overlay-put cache-name cached-value add-hook post-command-hook semantic-cache-data-post-command-hook value semantic-cache-data-overlays] 4 (#$ . 2985)])
#@118 Flush `semantic-cache-data-overlays' based `lifespan' property.
Remove self from `post-command-hook' if it is empty.
(defalias 'semantic-cache-data-post-command-hook #[nil "\305	\2037	@\306\307\"\211\310=\204$\f\311=\203+\312`!\235\204+\313!\210\202/\nB*	A\211\204\n\237*?\205D\314\315\316\"\207" [semantic-cache-data-overlays oldcache newcache o life nil overlay-get lifespan end-of-command exit-cache-zone overlays-at delete-overlay remove-hook post-command-hook semantic-cache-data-post-command-hook] 4 (#$ . 4055)])
#@48 Get cached data with NAME from optional POINT.
(defalias 'semantic-get-cache-data #[(name &optional point) "\212\203b\210\304`!\305	\204-\n\203-\306\n@\307\"\232\203'\n@\211\202\nA\202	\2055\306	\310\"+\207" [point ans o name overlays-at nil overlay-get cache-name cached-value] 4 (#$ . 4602)])
#@22 Test the data cache.
(defalias 'semantic-test-data-cache #[nil "\301r\302\303!q\210\212\304 \210\305c\210eb\210\306p``\307\\\310\311&\210\312\310!\232\203,\313\314!\202/\315\316!+\207" [data (a b c) get-buffer-create " *semantic-test-data-cache*" erase-buffer "The Moose is Loose" semantic-cache-data-to-buffer 5 moose exit-cache-zone semantic-get-cache-data message "Successfully retrieved cached data." error "Failed to retrieve cached data"] 7 (#$ . 4920) nil])
#@66 Return the symbol for overload used by NAME, the defined symbol.
(defalias 'semantic-overload-symbol-from-function #[(name) "\302!\303\304	\"\203\305\306	\307\225\"!\202)\207" [name sym-name symbol-name string-match "^semantic-" intern substring 0] 4 (#$ . 5397)])
#@147 Make OLDFNALIAS an alias for NEWFN.
Mark OLDFNALIAS as obsolete, such that the byte compiler
will throw a warning when it encounters this symbol.
(defalias 'semantic-alias-obsolete #[(oldfnalias newfn when) "\304	\"\210\305	\n#\210	\211\205\2119\205\211\306N\262
\205G	\211\307N\262
?\205G\310\303!\205G\205G\311\312\"?\205G\313	\n#\210\314\315	\316!$\207" [oldfnalias newfn when byte-compile-current-file defalias make-obsolete mode-local-overload mode-local--overload-obsolete boundp string-match "cedet" make-obsolete-overload byte-compile-warn "%s: `%s' obsoletes overload `%s'" semantic-overload-symbol-from-function] 6 (#$ . 5676)])
#@159 Make OLDVARALIAS an alias for variable NEWVAR.
Mark OLDVARALIAS as obsolete, such that the byte compiler
will throw a warning when it encounters this symbol.
(defalias 'semantic-varalias-obsolete #[(oldvaralias newvar when) "\304	\n#\210\3051\306	\"0\207\210\307\303!\205 \205 \310\311	#\207" [oldvaralias newvar when byte-compile-current-file make-obsolete-variable (error) defvaralias boundp byte-compile-warn "variable `%s' obsoletes, but isn't alias of `%s'"] 4 (#$ . 6338)])
#@340 Turn into a FORMAT message any error caught during eval of BODY.
Return the value of last BODY form or nil if an error occurred.
FORMAT can have a %s escape which will be replaced with the actual
error message.
If `debug-on-error' is set, errors are not caught, so that you can
debug them.
Avoid using a large BODY since it is duplicated.
(defalias 'semantic-safe '(macro . #[(format &rest body) "\302\303\304B\305\306\304B\307\310	\311BB\312BBFF\207" [body format if debug-on-error progn condition-case err error message ((format "%S - %s" (current-buffer) (error-message-string err))) (nil)] 10 (#$ . 6833)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put semantic-safe edebug-form-spec t function-put lisp-indent-function 1] 4)
#@60 Non-nil after `semantic-new-buffer-fcn' has been executed.
(defvar semantic-new-buffer-fcn-was-run nil (#$ . 7591))
(make-variable-buffer-local 'semantic-new-buffer-fcn-was-run)
#@62 Return non-nil if the current buffer was set up for parsing.
(defalias 'semantic-active-p #[nil "\207" [semantic-new-buffer-fcn-was-run] 1 (#$ . 7775)])
(put 'semantic-active-p 'byte-optimizer 'byte-compile-inline-expand)
#@170 Run FUNCTION for each Semantic enabled buffer found.
FUNCTION does not have arguments.  When FUNCTION is entered
`current-buffer' is a selected Semantic enabled buffer.
(defalias 'semantic-map-buffers #[(function) "\301\302\"\207" [function mode-local-map-file-buffers semantic-active-p] 3 (#$ . 8005)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\307\310\311\312#\207" [put semantic-map-buffers byte-optimizer byte-compile-inline-expand defalias semantic-map-mode-buffers mode-local-map-mode-buffers semantic-alias-obsolete define-mode-overload-implementation define-mode-local-override "23.2"] 4)
#@599 Install the function OVERRIDES in the specified environment.
OVERRIDES must be an alist ((OVERLOAD .  FUNCTION) ...) where OVERLOAD
is a symbol identifying an overloadable entry, and FUNCTION is the
function to override it with.
If optional argument TRANSIENT is non-nil, installed overrides can in
turn be overridden by next installation.
If optional argument MODE is non-nil, it must be a major mode symbol.
OVERRIDES will be installed globally for this major mode.  If MODE is
nil, OVERRIDES will be installed locally in the current buffer.  This
later installation should be done in MODE hook.
(defalias 'semantic-install-function-overrides #[(overrides &optional transient) "\302\303\304\"\305	?\306\307F\"\207" [overrides transient mode-local-bind mapcar #[(e) "\302@!\303\304	\"\203\202\305\306\307	\"!AB)\207" [e name symbol-name string-match "^semantic-" intern format "semantic-%s"] 4] constant-flag override-flag t] 6 (#$ . 8620)])
#@56 The current throw symbol for `semantic-exit-on-input'.
(defvar semantic-current-input-throw-symbol nil (#$ . 9578))
#@57 The marker when starting a semantic-exit-on-input form.
(defvar semantic--on-input-start-marker nil (#$ . 9700))
#@304 Using SYMBOL as an argument to `throw', execute FORMS.
If FORMS includes a call to `semantic-throw-on-input', then
if a user presses any key during execution, this form macro
will exit with the value passed to `semantic-throw-on-input'.
If FORMS completes, then the return value is the same as `progn'.
(defalias 'semantic-exit-on-input '(macro . #[(symbol &rest forms) "\302\303D\304B\305	BBE\207" [symbol forms let semantic-current-input-throw-symbol ((semantic--on-input-start-marker (point-marker))) catch] 5 (#$ . 9820)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-exit-on-input lisp-indent-function 1 put edebug-form-spec def-body] 5)
#@227 Exit with `throw' when in `semantic-exit-on-input' on user input.
FROM is an indication of where this function is called from as a value
to pass to `throw'.  It is recommended to use the name of the function
calling this one.
(defalias 'semantic-throw-on-input '(macro . #[(from) "\301\302\303\304EE\207" [from when (and semantic-current-input-throw-symbol (or (input-pending-p) (with-current-buffer (marker-buffer semantic--on-input-start-marker) (save-excursion (goto-char semantic--on-input-start-marker) (accept-process-output))))) throw semantic-current-input-throw-symbol] 5 (#$ . 10503)]))
#@196 Call `find-file-noselect' with various features turned off.
Use this when referencing a file that will be soon deleted.
FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'.
(defalias 'semantic-find-file-noselect #[(file &optional nowarn rawfile wildcards) "\306\307!\203\306\300!\203\206\310\311\312	#\210\313\314!\210)\315\316\317\316\211\316\211\316\320\316\321 \322\216\323	$.\f\207" [filename file recentf-exclude semantic-init-hook ede-auto-add-method global-font-lock-mode boundp keep-mode-if-same "(unknown)" message "WARNING: semantic-find-file-noselect called for %s while in set-auto-mode for %s.  You should call the responsible function into `mode-local-init-hook'." sit-for 1 ((lambda (f) t)) nil never :safe match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] find-file-noselect font-lock-verbose flymake-start-syntax-check-on-find-file vc-handled-backends auto-insert enable-local-variables enable-local-eval save-match-data-internal nowarn rawfile wildcards] 6 (#$ . 11108)])
#@66 Execute FORMS with `unloaded' removed from the current throttle.
(defalias 'semanticdb-without-unloaded-file-searches '(macro . #[(forms) "\301\302E\207" [forms let ((semanticdb-find-default-throttle (if (featurep 'semantic/db-find) (remq 'unloaded semanticdb-find-default-throttle) nil)))] 3 (#$ . 12199)]))
(byte-code "\300\301\302\303#\304\305!\207" [function-put semanticdb-without-unloaded-file-searches lisp-indent-function 1 provide semantic/fw] 4)