Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
analyze	[ DIR ]	drwxr-xr-x
bovine	[ DIR ]	drwxr-xr-x
decorate	[ DIR ]	drwxr-xr-x
symref	[ DIR ]	drwxr-xr-x
wisent	[ DIR ]	drwxr-xr-x
analyze.elc	28.54 KB	-rw-r--r--
bovine.elc	4.98 KB	-rw-r--r--
chart.elc	4.28 KB	-rw-r--r--
complete.elc	76.43 KB	-rw-r--r--
ctxt.elc	35.96 KB	-rw-r--r--
db-debug.elc	2.75 KB	-rw-r--r--
db-ebrowse.elc	19.95 KB	-rw-r--r--
db-el.elc	13.43 KB	-rw-r--r--
db-file.elc	14.32 KB	-rw-r--r--
db-find.elc	42.67 KB	-rw-r--r--
db-global.elc	9.38 KB	-rw-r--r--
db-javascript.elc	10.97 KB	-rw-r--r--
db-mode.elc	6.7 KB	-rw-r--r--
db-ref.elc	4.96 KB	-rw-r--r--
db-typecache.elc	18.33 KB	-rw-r--r--
db.elc	39.36 KB	-rw-r--r--
debug.elc	17.84 KB	-rw-r--r--
decorate.elc	8.29 KB	-rw-r--r--
dep.elc	7.5 KB	-rw-r--r--
doc.elc	4.14 KB	-rw-r--r--
ede-grammar.elc	9.58 KB	-rw-r--r--
edit.elc	21.04 KB	-rw-r--r--
find.elc	24.37 KB	-rw-r--r--
format.elc	34.91 KB	-rw-r--r--
fw.elc	12.36 KB	-rw-r--r--
grammar-wy.elc	53.64 KB	-rw-r--r--
grammar.elc	78.55 KB	-rw-r--r--
html.elc	7.16 KB	-rw-r--r--
ia-sb.elc	9.44 KB	-rw-r--r--
ia.elc	11.76 KB	-rw-r--r--
idle.elc	60.12 KB	-rw-r--r--
imenu.elc	12.07 KB	-rw-r--r--
java.elc	16.47 KB	-rw-r--r--
lex-spp.elc	34.13 KB	-rw-r--r--
lex.elc	77.22 KB	-rw-r--r--
loaddefs.el	58.17 KB	-rw-r--r--
mru-bookmark.elc	15.46 KB	-rw-r--r--
sb.elc	11.45 KB	-rw-r--r--
scope.elc	25 KB	-rw-r--r--
senator.elc	29.09 KB	-rw-r--r--
sort.elc	18.84 KB	-rw-r--r--
symref.elc	17.35 KB	-rw-r--r--
tag-file.elc	6.45 KB	-rw-r--r--
tag-ls.elc	24.72 KB	-rw-r--r--
tag-write.elc	3.77 KB	-rw-r--r--
tag.elc	54.36 KB	-rw-r--r--
texi.elc	16.99 KB	-rw-r--r--
util-modes.elc	44.17 KB	-rw-r--r--
util.elc	13.24 KB	-rw-r--r--
wisent.elc	7.67 KB	-rw-r--r--

Code Editor : db-el.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\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)
#@66 Create a new object of class type `semanticdb-table-emacs-lisp'.
(defalias 'semanticdb-table-emacs-lisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-table-emacs-lisp] 4 (#$ . 1092)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-table-emacs-lisp compiler-macro semanticdb-table-emacs-lisp--anon-cmacro] 4)
(defalias 'semanticdb-table-emacs-lisp--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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) #[(_obj &optional _force) "\300\207" [nil] 1 "Do not refresh Emacs Lisp table.\nIt does not need refreshing."] semanticdb-needs-refresh-p ((_obj semanticdb-table-emacs-lisp)) #[(_obj) "\300\207" [nil] 1 "Return nil, we never need a refresh."] semanticdb-debug-info ((obj semanticdb-table-emacs-lisp)) #[(obj) "\300C\207" ["(proxy)"] 1] cl-print-object ((obj semanticdb-table-emacs-lisp) stream) #[(obj stream) "\302\303\304!\"	\"\207" [obj stream princ eieio-object-name semanticdb-debug-info] 5 "Pretty printer extension for `semanticdb-table-emacs-lisp'."] 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)
#@77 Create a new object of class type `semanticdb-project-database-emacs-lisp'.
(defalias 'semanticdb-project-database-emacs-lisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-project-database-emacs-lisp] 4 (#$ . 3253)])
(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)
(defalias 'semanticdb-project-database-emacs-lisp--anon-cmacro #[(whole &rest slots) "@;\204�	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\305\306\307\310\311\312%\210\305\313\307\314\307\315%\210\316\317!C\320\321BC\322\323#\210\324\325\323\"\210)\326\321\323\327!\307\204C�	\211\262\204C�\n\262\205A�\330\"\262\203n�\211\204n�\303N\203]�\330\303N\"\211\262\204C�\211\331N\206g�\211\332N\262\262\202C�\266\203\333\334#\210\335\320\336\fBC\322\323#\210\324\337\323\"\210)\326\336\323\327!\307\204\244�	\211\262\204\244�\n\262\205\242�\330\"\262\203\317�\211\204\317�\303N\203\276�\330\303N\"\211\262\204\244�\211\331N\206\310�\211\332N\262\262\202\244�\266\203\333\340#\210\305\341\307\342\311\343%\210\305\344\307\345\307\346%\210\305\347\307\350\307\351%\210\305\352\307\353\307\354%\210\305\355\307\356\307\357%\210\305\360\307\361\307\362%\210\305\363\307\364\307\365%\210\366\367\370\"\210\371\372\367\"\210\373\372\367\374#\207" [#2=#:tmp0 mode-local-active-mode major-mode mode-local-symbol-table #3=#:tmp0 cl-generic-define-method semanticdb-debug-info nil ((obj semanticdb-project-database-emacs-lisp)) t #[(#1=#:cl--cnm obj) "\303\304\305!\210\306	\n!\307\310\"C\")\207" [count #1# obj 0 mapatoms #[(_sym) "T\211\207" [count] 2] append format "(%d known syms)"] 5] cl-print-object ((obj semanticdb-project-database-emacs-lisp) stream) #[(obj stream) "\302\303\304!\"	\"\207" [obj stream princ eieio-object-name semanticdb-debug-info] 5 "Pretty printer extension for `semanticdb-table-emacs-lisp'.\nAdds the number of tags in this file to the object print name."] 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 #[nil "\302\301!\210\211\207" [#2# 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 #[nil "\302\301!\210\211\207" [#3# 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)) #[(#4=#:cl--cnm obj) "\303\304\"\204�\305\306!\307\304	C#\210\307	\310#\210\307	\311\312#\210)\n \207" [obj newtable #4# slot-boundp tables make-instance semanticdb-table-emacs-lisp eieio-oset parent-db tags nil] 4 "For an Emacs Lisp database, there are no explicit tables.\nCreate one of our special tables that can act as an intermediary."] semanticdb-file-table ((obj semanticdb-project-database-emacs-lisp) _filename) #[(obj _filename) "\301!@\207" [obj semanticdb-get-database-tables] 2 "From OBJ, return FILENAME's associated table object.\nFor Emacs Lisp, creates a specialized table."] semanticdb-get-tags ((_table semanticdb-table-emacs-lisp)) #[(_table) "\300\207" [nil] 1 "Return the list of tags belonging to TABLE."] semanticdb-equivalent-mode ((_table semanticdb-table-emacs-lisp) &optional buffer) #[(_table &optional buffer) "rq\210	\206	�\n)\303=\207" [buffer mode-local-active-mode major-mode emacs-lisp-mode] 2 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable."] semanticdb-full-filename ((_obj semanticdb-table-emacs-lisp)) #[(_obj) "\300\207" [nil] 1 "Fetch the full filename that OBJ refers to.\nFor Emacs Lisp system DB, there isn't one."] semanticdb-normalize-tags ((obj semanticdb-table-emacs-lisp) tags) #[(obj tags) "\306	\306\211\203\"�@\307\f\n\"\211A\211B*A\211\204\n�*\237)\207" [newtags tags T --dolist-tail-- obj ot nil semanticdb-normalize-one-tag tag] 4 "Convert tags, originating from Emacs OBJ, into standardized form."] semanticdb-normalize-one-tag ((obj semanticdb-table-emacs-lisp) tag) #[(obj tag) "\306\211\211A@)	*=\203�\307\202%�\310\211\211A@)	*=\205%�\311\312\211@)!\3131:�\314\n\"0\202>�\210\314!\211\203I�\315\f!\204O�
B\202\313�\316\317\f\"\203n�\320\f!\321P\315\f!\204n�\315\f\322P!\203n�\f\322P\323\f!\211\205\200�\324\211@)\"\325\204\220�\202\300�\325\211\203\265�@\326\"\203\254�A\211\204\233�*\204\300�@\205\312�B++\207" [tag class type sym file obj 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 tab newtags match T --dolist-tail--] 4 "Convert one TAG, originating from Emacs OBJ, into standardized form.\nIf Emacs cannot resolve this symbol to a particular file, then return nil."] autoload help-function-arglist "help-fns" defalias semanticdb-elisp-sym-function-arglist make-obsolete "CEDET 1.1"] 9)
#@80 Convert SYM into a semantic tag.
TOKTYPE is a hint to the type of tag desired.
(defalias 'semanticdb-elisp-sym->tag #[(sym &optional toktype) ";\203	�\306!\205\361�	\307=\203Q�\310!\203Q�\311\312!\210\313!\211<\204(�\314\315!\314\316\n!\317\3201;�\321!0\202=�\210\314D%\322\323%\307\324
\325\f&-\207	\326=\203x�\327!\203x�\315!\314\211\211&%\322\323%\326\324
\330&&,\207	\305=\203\311�\331!\203\311�\315!\332\316\333!'\310\334!\203\233�\334'!\202\242�\335\336\337'!\")!\316\340!!\314()%\322\323%\305\324
\341)\342(@\343(A&\f-\207	\204\360�\331!\203\330�\344\305\"\207\310!\203\343�\344\307\"\207\327!\203\356�\344\326\"\207\314\207\314\207" [sym toktype arglist attributes arg-list type 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 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 name default-value class parents members] 14 (#$ . 8788)])
#@45 Variable used to collect `mapatoms' output.
(defvar semanticdb-elisp-mapatom-collector nil (#$ . 10004))
(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!\207" [cl-generic-define-method semanticdb-find-tags-by-name-method nil ((_table semanticdb-table-emacs-lisp) name &optional tags) t #[(#1=#:cl--cnm _table name &optional tags) "\203�	 \207\306\n!\307\310\"\307\311\"\307\312\"\f\313
\f\204+�
\204+�\f\205M�
\2035�

B
\f\203A�\f
B
\f\203K�\f
B

-\207" [tags #1# name sym fun var intern-soft semanticdb-elisp-sym->tag function variable type nil typ taglst] 3 "Find all tags named NAME in TABLE.\nUses `intern-soft' to match NAME to Emacs symbols.\nReturn a list of tags."] semanticdb-find-tags-by-name-regexp-method ((_table semanticdb-table-emacs-lisp) regex &optional tags) #[(#2=#:cl--cnm _table regex &optional tags) "\203�	 \207\303\304\305\306\307\n!\"\"\207" [tags #2# regex delq nil mapcar semanticdb-elisp-sym->tag apropos-internal] 6 "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."] semanticdb-find-tags-for-completion-method ((_table semanticdb-table-emacs-lisp) prefix &optional tags) #[(#3=#:cl--cnm _table prefix &optional tags) "\203�	 \207\304\305\306\307\310\n\"\"\"\207" [tags #3# prefix obarray delq nil mapcar semanticdb-elisp-sym->tag all-completions] 7 "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."] semanticdb-find-tags-by-class-method ((_table semanticdb-table-emacs-lisp) _class &optional tags) #[(#4=#:cl--cnm _table _class &optional tags) "\205�	 \207" [tags #4#] 1 "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."] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-emacs-lisp) name &optional tags) #[(table name &optional tags) "\303	\n#\207" [table name tags semanticdb-find-tags-by-name-method] 4 "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."] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-emacs-lisp) regex &optional tags) #[(table regex &optional tags) "\303	\n#\207" [table regex tags semanticdb-find-tags-by-name-regexp-method] 4 "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."] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-emacs-lisp) prefix &optional tags) #[(table prefix &optional tags) "\303	\n#\207" [table prefix tags semanticdb-find-tags-for-completion-method] 4 "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."] semanticdb-find-tags-external-children-of-type-method ((_table semanticdb-table-emacs-lisp) type &optional tags) #[(#5=#:cl--cnm _table type &optional tags) "\203�	 \207\304\305!\205�\306\n!\211\205�\307\310\311\312\313!\"\")\207" [tags #5# type class featurep eieio intern-soft delq nil mapcar semanticdb-elisp-sym->tag cl-generic-all-functions] 7 "Find all nonterminals which are child elements of TYPE\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags."] provide semantic/db-el] 6)

${this.title}

Code Editor : db-el.elc