Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : eieio-speedbar.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\300\303!\207" [require eieio eieio-custom speedbar] 2)
#@48 Make the generic object based speedbar keymap.
(defalias 'eieio-speedbar-make-map #[0 "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\312#\210\211\207" [speedbar-make-specialized-keymap define-key "
" speedbar-edit-line "+" speedbar-expand-line "=" "-" speedbar-contract-line "C" eieio-speedbar-customize-line] 5 (#$ . 502)])
#@49 A generic object based speedbar display keymap.
(defvar eieio-speedbar-key-map (eieio-speedbar-make-map) (#$ . 874))
#@71 Menu part in easymenu format used in speedbar while browsing objects.
(defvar eieio-speedbar-menu '(["Edit Object/Field" speedbar-edit-line t] ["Expand Object" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract Object" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))] "---" ["Customize Object" eieio-speedbar-customize-line (eieio-object-p (speedbar-line-token))]) (#$ . 997))
(defalias 'eieio-speedbar-customize-line 'speedbar-edit-line)
#@443 Create a speedbar mode for displaying an object hierarchy.
MAP-FN is the keymap generator function used for extra keys.
MAP-VAR is the keymap variable used.
MENU-VAR is the symbol containing an easymenu compatible menu part to use.
MODENAME is a string used to identify this browser mode.
FETCHER is a generic function used to fetch the base object list used when
creating the speedbar display.

(fn MAP-FN MAP-VAR MENU-VAR MODENAME FETCHER)
(defalias 'eieio-speedbar-create #[1285 "\300\301!\204�\302\303\304\305\306					\257E\"\207\306%\207" [featurep speedbar add-hook speedbar-load-hook lambda nil eieio-speedbar-create-engine] 15 (#$ . 1534)])
#@264 Create a speedbar mode for displaying an object hierarchy.
Called from `eieio-speedbar-create', or the speedbar load-hook.
MAP-FN, MAP-VAR, MENU-VAR, MODENAME, and FETCHER are the same as in
`eieio-speedbar-create'.

(fn MAP-FN MAP-VAR MENU-VAR MODENAME FETCHER)
(defalias 'eieio-speedbar-create-engine #[1285 " \210\300\301\302\303\304\305\306\nDFEF!\210\307\310\311E!\207" [speedbar-add-expansion-list lambda (dir depth) eieio-speedbar-buttons dir depth quote speedbar-add-mode-functions-list (speedbar-item-info . eieio-speedbar-item-info) (speedbar-line-directory . eieio-speedbar-line-path)] 16 (#$ . 2202)])
#@323 Create buttons for the speedbar display.
Start in directory DIR-OR-OBJECT.  If it is an object, just display that
object's subelements.
Argument DEPTH specifies how far down we have already been displayed.
If it is a directory, use FETCHER to fetch all objects associated with
that path.

(fn DIR-OR-OBJECT DEPTH FETCHER)
(defalias 'eieio-speedbar-buttons #[771 "\300!\203�C\202�;\203�\211!\202�\211\204+�\301\302\211\211\211\303\302\211\211&	\202<�\211\205<�\304@\"\210\211A\262\202+�\207" [eieio-object-p speedbar-make-tag-line nil "Empty display" eieio-speedbar-make-tag-line] 14 (#$ . 2830)])
(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\300\316\302\317\302\320%\210\321\322\323\324!\"\210\321\325\326\324!\"\210\321\327\325\"\210\330\327\331\332#\210\333\324\334\325#\335\324\302\336\337$\207" [cl-generic-define-method eieio-speedbar-description nil (object) #[257 "\300!\207" [eieio-object-name-string] 3 "Return a string describing OBJECT.\n\n(fn OBJECT)"] eieio-speedbar-derive-line-path (_object) #[257 "\300\207" [nil] 2 "Return the path which OBJECT has something to do with.\n\n(fn OBJECT)"] eieio-speedbar-object-buttonname (object) #[257 "\300!\207" [eieio-object-name-string] 3 "Return a string to use as a speedbar button for OBJECT.\n\n(fn OBJECT)"] eieio-speedbar-make-tag-line (object depth) #[514 "\300\301\211\211\211\302!\303\304	&	\207" [speedbar-make-tag-line nil eieio-speedbar-object-buttonname eieio-speedbar-object-click speedbar-tag-face] 12 "Insert a tag line into speedbar at point for OBJECT.\nBy default, all objects appear as simple TAGS with no need to inherit from\nthe special `eieio-speedbar' classes.  Child classes should redefine this\nmethod to create more accurate tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"] eieio-speedbar-handle-click (object) #[257 "\300\301!\210\302 r\303\304\305\306\307!\310\"\311$\216\312 \210\313!\210\314 \210*\210\314 \207" [require eieio-custom internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 dframe-select-attached-frame eieio-customize-object dframe-maybee-jump-to-attached-frame] 8 "Handle a click action on OBJECT in speedbar.\nAny object can be represented as a tag in SPEEDBAR without special\nattributes.  These default objects will be pulled up in a custom\nobject edit buffer doing an in-place edit.\n\nIf your object represents some other item, override this method\nand take the appropriate action.\n\n(fn OBJECT)"] defalias eieio-speedbar-p eieio-make-class-predicate eieio-speedbar eieio-speedbar--eieio-childp eieio-make-child-predicate eieio-speedbar-child-p make-obsolete "use (cl-typep ... \\='eieio-speedbar) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((buttontype :initform nil :type symbol :documentation "The type of expansion button used for objects of this class.\nPossible values are those symbols supported by the `exp-button-type' argument\nto `speedbar-make-tag-line'." :allocation :class) (buttonface :initform speedbar-tag-face :type (or symbol face) :documentation "The face used on the textual part of the button for this class.\nSee `speedbar-make-tag-line' for details." :allocation :class) (expanded :initform nil :type boolean :documentation "State of an object being expanded in speedbar.")) (:documentation "Class which provides basic speedbar support for child classes.\nAdd one of the child classes to this class to the parent list of a class." :method-invocation-order :depth-first :abstract t)] 6)
#@72 You cannot create a new object of type `eieio-speedbar'.

(fn &rest _)
(defalias 'eieio-speedbar #[128 "\300\301!\207" [error "Class eieio-speedbar is abstract"] 3 (#$ . 6524)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias eieio-speedbar-directory-button-p eieio-make-class-predicate eieio-speedbar-directory-button eieio-speedbar-directory-button--eieio-childp eieio-make-child-predicate eieio-speedbar-directory-button-child-p make-obsolete "use (cl-typep ... \\='eieio-speedbar-directory-button) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar) ((buttontype :initform angle) (buttonface :initform speedbar-directory-face)) (:documentation "Class providing support for objects which behave like a directory." :method-invocation-order :depth-first :abstract t)] 6)
#@89 You cannot create a new object of type `eieio-speedbar-directory-button'.

(fn &rest _)
(defalias 'eieio-speedbar-directory-button #[128 "\300\301!\207" [error "Class eieio-speedbar-directory-button is abstract"] 3 (#$ . 7450)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias eieio-speedbar-file-button-p eieio-make-class-predicate eieio-speedbar-file-button eieio-speedbar-file-button--eieio-childp eieio-make-child-predicate eieio-speedbar-file-button-child-p make-obsolete "use (cl-typep ... \\='eieio-speedbar-file-button) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-speedbar) ((buttontype :initform bracket) (buttonface :initform speedbar-file-face)) (:documentation "Class providing support for objects which behave like a file." :method-invocation-order :depth-first :abstract t)] 6)
#@84 You cannot create a new object of type `eieio-speedbar-file-button'.

(fn &rest _)
(defalias 'eieio-speedbar-file-button #[128 "\300\301!\207" [error "Class eieio-speedbar-file-button is abstract"] 3 (#$ . 8394)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\207" [cl-generic-define-method eieio-speedbar-make-tag-line nil ((object eieio-speedbar) depth) #[514 "\300!\301\302\"\204G�\301\303\"\304=\203,�\305\306\307\310\211\311	!\312\n\301\f\313\"&	\202r�\305\301\303\"\307\310\211\311	!\312\n\301\f\313\"&	\202r�\305\301\303\"\203T�\314\202U�\315\316\311	!\312\n\301\f\313\"&	\210\211\205r�\317T\"\207" [eieio-speedbar-object-children eieio-oref expanded buttontype expandtag speedbar-make-tag-line statictag 32 nil eieio-speedbar-object-buttonname eieio-speedbar-object-click buttonface 45 43 eieio-speedbar-object-expand eieio-speedbar-expand] 15 "Insert a tag line into speedbar at point for OBJECT.\nAll objects a child of symbol `eieio-speedbar' can be created from\nthis method.  Override this if you need non-traditional tag lines.\nArgument DEPTH is the depth at which the tag line is inserted.\n\n(fn OBJECT DEPTH)"] eieio-speedbar-child-make-tag-lines ((object eieio-speedbar) _depth) #[514 "\300\301\302!\"\207" [error "You must implement `eieio-speedbar-child-make-tag-lines' for %s" eieio-object-name] 6 "Base method for creating tag lines for non-object children.\n\n(fn OBJECT DEPTH)"] eieio-speedbar-expand ((object eieio-speedbar) depth) #[514 "\300!\301@!\203�\302\303\304\305\306\307!\310\"\311\312%\"\202%�\211\205%�\313\"\207" [eieio-speedbar-object-children eieio-object-p mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [eieio-speedbar-make-tag-line] 4 "\n\n(fn CAR)" eieio-speedbar-child-make-tag-lines] 10 "Expand OBJECT at indentation DEPTH.\nInserts a list of new tag lines representing expanded elements within\nOBJECT.\n\n(fn OBJECT DEPTH)"]] 6)
#@123 Handle a user click on TEXT representing object TOKEN.
The object is at indentation level INDENT.

(fn TEXT TOKEN INDENT)
(defalias 'eieio-speedbar-object-click #[771 "\300!\207" [eieio-speedbar-handle-click] 5 (#$ . 10375)])
#@123 Expand object represented by TEXT.
TOKEN is the object.  INDENT is the current indentation level.

(fn TEXT TOKEN INDENT)
(defalias 'eieio-speedbar-object-expand #[771 "\301\302\"\203$�\303\304!\210\305\306\307#\210\307\212\310\210\311u\210\312T\"\210*\202@�\301\313\"\203<�\303\314!\210\305\306\310#\210\315!\210\202@�\316\317!\210\320 \207" [inhibit-read-only string-match "\\+" speedbar-change-expand-button-char 45 eieio-oset expanded t nil 1 eieio-speedbar-expand "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 7 (#$ . 10609)])
(cl-generic-define-method 'eieio-speedbar-child-description nil '((obj eieio-speedbar)) nil #[257 "\300\301\302!\"\207" [error "You must implement `eieio-speedbar-child-description' for %s" eieio-object-name] 5 "Return a description for a child of OBJ which is not an object.\n\n(fn OBJ)"])
#@61 Display info for the current line when in EDE display mode.
(defalias 'eieio-speedbar-item-info #[0 "\300 \301!\203�\302\303!!\202�\304 \211\205�\305!\262\207" [speedbar-line-token eieio-object-p message eieio-speedbar-description eieio-speedbar-find-nearest-object eieio-speedbar-child-description] 4 (#$ . 11503)])
#@145 Search backwards to the first line associated with an object.
Optional argument DEPTH is the current depth of the search.

(fn &optional DEPTH)
(defalias 'eieio-speedbar-find-nearest-object #[256 "\212\211\204�\300 \210\301\302!\203�\303\304\305!!\262\211\2058�\306\307 !\2046�\211\310V\2036�\211S\262\311\312\313\"\314\315#\210\202�\307 )\207" [beginning-of-line looking-at "^\$[0-9]+\$:" string-to-number match-string 1 eieio-object-p speedbar-line-token 0 re-search-backward format "^%d:" nil t] 5 (#$ . 11834)])
#@125 If applicable, return the path to the file the cursor is on.
Optional DEPTH is the depth we start at.

(fn &optional DEPTH)
(defalias 'eieio-speedbar-line-path #[256 "\301 \302\303\304\305\306!\307\"\310$\216\204 �\311 \210\312\313!\210\314\315\316!!\262\317!\320!\203/�\321!\2020�\262)\207" [default-directory match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 beginning-of-line looking-at "^\$[0-9]+\$:" string-to-number match-string 1 eieio-speedbar-find-nearest-object eieio-object-p eieio-speedbar-derive-line-path] 8 (#$ . 12365)])
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method eieio-speedbar-object-children nil ((_object eieio-speedbar)) #[257 "\300\207" [nil] 2 "Return a list of children to be displayed in speedbar.\nIf the return value is a list of OBJECTs, then those objects are\nqueried for details.  If the return list is made of strings,\nthen this object will be queried for the details needed\nto create a speedbar button.\n\n(fn OBJECT)"] provide eieio-speedbar] 6)

${this.title}

Code Editor : eieio-speedbar.elc