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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require semantic/db eieio-opt defalias semanticdb-table-emacs-lisp-p eieio-make-class-predicate semanticdb-table-emacs-lisp semanticdb-table-emacs-lisp--eieio-childp eieio-make-child-predicate semanticdb-table-emacs-lisp-child-p make-obsolete "use (cl-typep ... \\='semanticdb-table-emacs-lisp) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-table) ((major-mode :initform #'emacs-lisp-mode)) (:documentation "A table for returning search results from Emacs.")] 6)
#@84 Create a new object of class type `semanticdb-table-emacs-lisp'.

(fn &rest SLOTS)
(defalias 'semanticdb-table-emacs-lisp #[128 "\300\301\302#\207" [apply make-instance semanticdb-table-emacs-lisp] 5 (#$ . 770)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-table-emacs-lisp compiler-macro semanticdb-table-emacs-lisp--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-table-emacs-lisp--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1131)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\316\317\320\321!\"\210\316\322\323\321!\"\210\316\324\322\"\210\325\324\326\327#\210\330\321\331\322#\332\321\333\334\335$\207" [cl-generic-define-method semanticdb-refresh-table nil ((_obj semanticdb-table-emacs-lisp) &optional _force) #[513 "\300\207" [nil] 3 "Do not refresh Emacs Lisp table.\nIt does not need refreshing.\n\n(fn OBJ &optional FORCE)"] semanticdb-needs-refresh-p ((_obj semanticdb-table-emacs-lisp)) #[257 "\300\207" [nil] 2 "Return nil, we never need a refresh.\n\n(fn OBJ)"] semanticdb-debug-info ((_obj semanticdb-table-emacs-lisp)) #[257 "\300C\207" ["(proxy)"] 2 "\n\n(fn OBJ)"] cl-print-object ((obj semanticdb-table-emacs-lisp) stream) #[514 "\300\301\302!\"\"\207" [princ eieio-object-name semanticdb-debug-info] 7 "Pretty printer extension for `semanticdb-table-emacs-lisp'.\n\n(fn OBJ STREAM)"] defalias semanticdb-project-database-emacs-lisp-p eieio-make-class-predicate semanticdb-project-database-emacs-lisp semanticdb-project-database-emacs-lisp--eieio-childp eieio-make-child-predicate semanticdb-project-database-emacs-lisp-child-p make-obsolete "use (cl-typep ... \\='semanticdb-project-database-emacs-lisp) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-singleton) ((new-table-class :initform 'semanticdb-table-emacs-lisp :type class :documentation "New tables created for this database are of this class.")) (:documentation "Database representing Emacs core.")] 6)
#@95 Create a new object of class type
`semanticdb-project-database-emacs-lisp'.

(fn &rest SLOTS)
(defalias 'semanticdb-project-database-emacs-lisp #[128 "\300\301\302#\207" [apply make-instance semanticdb-project-database-emacs-lisp] 5 (#$ . 2980)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-project-database-emacs-lisp compiler-macro semanticdb-project-database-emacs-lisp--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-project-database-emacs-lisp--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 3397)])
(byte-code "\303\304\305\306\307\310%\210\303\311\305\312\305\313%\210\314\315!C\316\317BC\320\321#\210\322\323\324\"\321\"\266\325\317\321\326!\305\204E\211\262\204E	\262\n\205C\327\n\"\262
\203p\211\204p\302N\203_\327\302N\"\211\262\204E\211\330N\206i\211\331N\262
\262\202E\266\203\332\333#\210\334\316\335BC\320\321#\210\322\323\336\"\321\"\266\325\335\321\326!\305\204\250\211\262\204\250	\262\n\205\246\327\n\"\262
\203\323\211\204\323\302N\203\302\327\302N\"\211\262\204\250\211\330N\206\314\211\331N\262
\262\202\250\266\203\332\337#\210\303\340\305\341\307\342%\210\303\343\305\344\305\345%\210\303\346\305\347\305\350%\210\303\351\305\352\305\353%\210\303\354\305\355\305\356%\210\303\357\305\360\305\361%\210\303\362\305\363\305\364%\210\365\366\367\"\207" [mode-local-active-mode major-mode mode-local-symbol-table cl-generic-define-method semanticdb-debug-info nil ((obj semanticdb-project-database-emacs-lisp)) t #[514 "\300C\301\302\303\"!\210\304!\305\306\242\"C\"\207" [0 mapatoms make-closure #[257 "\300\211\242T\240\207" [V0] 3 "\n\n(fn SYM)"] append format "(%d known syms)"] 8 "\n\n(fn CL--CNM OBJ)"] cl-print-object ((obj semanticdb-project-database-emacs-lisp) stream) #[514 "\300\301\302!\"\"\207" [princ eieio-object-name semanticdb-debug-info] 7 "Pretty printer extension for `semanticdb-table-emacs-lisp'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ STREAM)"] make-instance semanticdb-project-database-emacs-lisp mode-local-bind semanticdb-project-system-databases (mode-variable-flag t) emacs-lisp-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semanticdb-project-system-databases make-local-variable] 2] put symbol-name intern-soft mode-local-parent derived-mode-parent variable-documentation "Search Emacs core for symbols." (project omniscience) semanticdb-find-default-throttle #[0 "\302\301!\210\300\211\207" [V0 semanticdb-find-default-throttle make-local-variable] 2] "Search project files, then search this omniscience database.\nIt is not necessary to do system or recursive searching because of\nthe omniscience database." semanticdb-get-database-tables ((obj semanticdb-project-database-emacs-lisp)) #[514 "\300
\301\"\204\302\303!\304\301C#\210\304
\305#\210\304
\306\307#\266
 \207" [slot-boundp tables make-instance semanticdb-table-emacs-lisp eieio-oset parent-db tags nil] 7 "For an Emacs Lisp database, there are no explicit tables.\nCreate one of our special tables that can act as an intermediary.\n\n(fn CL--CNM OBJ)"] semanticdb-file-table ((obj semanticdb-project-database-emacs-lisp) _filename) #[514 "\300!@\207" [semanticdb-get-database-tables] 4 "From OBJ, return FILENAME's associated table object.\nFor Emacs Lisp, creates a specialized table.\n\n(fn OBJ FILENAME)"] semanticdb-get-tags ((_table semanticdb-table-emacs-lisp)) #[257 "\300\207" [nil] 2 "Return the list of tags belonging to TABLE.\n\n(fn TABLE)"] semanticdb-equivalent-mode ((_table semanticdb-table-emacs-lisp) &optional buffer) #[513 "r\211q\210\206		)\302=\207" [mode-local-active-mode major-mode emacs-lisp-mode] 4 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable.\n\n(fn TABLE &optional BUFFER)"] semanticdb-full-filename ((_obj semanticdb-table-emacs-lisp)) #[257 "\300\207" [nil] 2 "Fetch the full filename that OBJ refers to.\nFor Emacs Lisp system DB, there isn't one.\n\n(fn OBJ)"] semanticdb-normalize-tags ((obj semanticdb-table-emacs-lisp) tags) #[514 "\300
\211\203\211@\301\"\211A\211B\262\266
A\266\202\202\210\211\237\207" [nil semanticdb-normalize-one-tag] 9 "Convert tags, originating from Emacs OBJ, into standardized form.\n\n(fn OBJ TAGS)"] semanticdb-normalize-one-tag ((obj semanticdb-table-emacs-lisp) tag) #[514 "\211\300
\211A@\262

=\266\202\203\301\202#\211\302
\211A@\262

=\266\202\205#\303\304\211@\262
!\30516\306
\"0\202:\210\306
!\211\203D\307
!\204HB\207\310\311\"\203i\312
!\313P\262
\307
!\204i\307
\314P!\203i\211\314P\262
\315
!\211\205y\316
\211@\262
\"\317
\204\205\262
\202\247
\211\203\236\211@\320
\n\"\203\227\211\262
A\266\202\202\206\210\211\204\247
@\262
\205\256
B\207" [function defun variable defvar intern (error) symbol-file file-exists-p string-match "\\.elc" file-name-sans-extension ".el" ".gz" semanticdb-file-table-object semanticdb-find-tags-by-name-method nil semantic-tag-similar-p] 13 "Convert one TAG, originating from Emacs OBJ, into standardized form.\nIf Emacs cannot resolve this symbol to a particular file, then return nil.\n\n(fn OBJ TAG)"] autoload help-function-arglist "help-fns"] 9)
#@108 Convert SYM into a semantic tag.
TOKTYPE is a hint to the type of tag desired.

(fn SYM &optional TOKTYPE)
(defalias 'semanticdb-elisp-sym->tag #[513 "
;\203\n\300!\262
\205\340\211\301=\203O\302!\203O\303\304!\210\305!\211<\204)\306\262
\307!\306\310!\311\3121=\313!0\202?\210\306D\314\315\301\316\317&\207\211\320=\203p\321!\203p\307!\306\211\211\314\315\320\316\322&\207\211\323=\203\270\324!\203\270\307!\325\310\326!\302\327!\203\220\327
!\202\226\330\331\332!\"\262
!\310\333!!\306\314\315\323\316\334	\335\n@\336\fA\f&\f\207\211\204\337\324!\203\307\337\323\"\207\302!\203\322\337\301\"\207\321!\203\335\337\320\"\207\306\207\306\207" [intern-soft function fboundp require semantic/bovine/el help-function-arglist nil symbol-name semantic-elisp-desymbolify :user-visible-flag (error) interactive-form apply semantic-tag :type :arguments variable boundp :default-value type class-p "class" find-class eieio--class-public-a mapcar eieio-slot-descriptor-name eieio-class-slots eieio-class-parents :members :superclasses :interfaces semanticdb-elisp-sym->tag] 20 (#$ . 8406)])
#@45 Variable used to collect `mapatoms' output.
(defvar semanticdb-elisp-mapatom-collector nil (#$ . 9555))
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\304\313%\210\300\314\302\315\304\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\304\332%\210\333\334\335\302#\210\336\334\335\337#\210\340\341!\207" [cl-generic-define-method semanticdb-find-tags-by-name-method nil ((_table semanticdb-table-emacs-lisp) name &optional tags) t #[1027 "\211\203 \207\300!\301
\302\"\301\303\"\301\304\"\305\204#\204#
\205>\203+C\262

\2034

B\262
\203=
B\262
\211\207" [intern-soft semanticdb-elisp-sym->tag function variable type nil] 11 "Find all tags named NAME in TABLE.\nUses `intern-soft' to match NAME to Emacs symbols.\nReturn a list of tags.\n\n(fn CL--CNM TABLE NAME &optional TAGS)"] semanticdb-find-tags-by-name-regexp-method ((_table semanticdb-table-emacs-lisp) regex &optional tags) #[1027 "\211\203 \207\300\301\302\303\304!\"\"\207" [delq nil mapcar semanticdb-elisp-sym->tag apropos-internal] 10 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nUses `apropos-internal' to find matches.\nReturn a list of tags.\n\n(fn CL--CNM TABLE REGEX &optional TAGS)"] semanticdb-find-tags-for-completion-method ((_table semanticdb-table-emacs-lisp) prefix &optional tags) #[1027 "\211\203 \207\301\302\303\304\305\"\"\"\207" [obarray delq nil mapcar semanticdb-elisp-sym->tag all-completions] 11 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags.\n\n(fn CL--CNM TABLE PREFIX &optional TAGS)"] semanticdb-find-tags-by-class-method ((_table semanticdb-table-emacs-lisp) _class &optional tags) #[1027 "\211\205 \207" [] 5 "In TABLE, find all occurrences of tags of CLASS.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags.\n\n(fn CL--CNM TABLE CLASS &optional TAGS)"] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-emacs-lisp) name &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-method] 7 "Find all tags name NAME in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for Emacs Lisp.\n\n(fn TABLE NAME &optional TAGS)"] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-emacs-lisp) regex &optional tags) #[770 "\300#\207" [semanticdb-find-tags-by-name-regexp-method] 7 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for Emacs Lisp.\n\n(fn TABLE REGEX &optional TAGS)"] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-emacs-lisp) prefix &optional tags) #[770 "\300#\207" [semanticdb-find-tags-for-completion-method] 7 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-for-completion-method' for Emacs Lisp.\n\n(fn TABLE PREFIX &optional TAGS)"] semanticdb-find-tags-external-children-of-type-method ((_table semanticdb-table-emacs-lisp) type &optional tags) #[1027 "\211\203 \207\300\301!\205\302!\211\205\303\304\305\306\307!\"\"\262
\207" [featurep eieio intern-soft delq nil mapcar semanticdb-elisp-sym->tag cl-generic-all-functions] 11 "Find all nonterminals which are child elements of TYPE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags.\n\n(fn CL--CNM TABLE TYPE &optional TAGS)"] defalias semanticdb-elisp-sym-function-arglist help-function-arglist make-obsolete "24.3" provide semantic/db-el] 6)