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 : inline.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.

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

(require 'macroexp)
#@80 Similar to backquote, but quotes code and only accepts , and not ,@.

(fn EXP)
(defalias 'inline-quote '(macro . #[257 "\300\301!\207" [error "inline-quote can only be used within define-inline"] 3 (#$ . 428)]))
(put 'inline-quote 'edebug-form-spec 'backquote-form)
#@64 Return non-nil if the value of EXP is already known.

(fn EXP)
(defalias 'inline-const-p '(macro . #[257 "\300\301!\207" [error "inline-const-p can only be used within define-inline"] 3 (#$ . 700)]))
(put 'inline-const-p 'edebug-form-spec t)
#@36 Return the value of EXP.

(fn EXP)
(defalias 'inline-const-val '(macro . #[257 "\300\301!\207" [error "inline-const-val can only be used within define-inline"] 3 (#$ . 948)]))
(put 'inline-const-val 'edebug-form-spec t)
#@42 Signal an error.

(fn FORMAT &rest ARGS)
(defalias 'inline-error '(macro . #[385 "\300\301!\207" [error "inline-error can only be used within define-inline"] 4 (#$ . 1174)]))
(put 'inline-error 'edebug-form-spec t)
#@27

(fn VAR-EXP &rest BODY)
(defalias 'inline--leteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 (#$ . 1395)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline--leteval lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@24

(fn LIST &rest BODY)
(defalias 'inline--letlisteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 (#$ . 1709)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline--letlisteval lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@474 Make sure the expressions in VARS are evaluated.
VARS should be a list of elements of the form (VAR EXP) or just VAR, in case
EXP is equal to VAR.  The result is to evaluate EXP and bind the result to VAR.

The tail of VARS can be either nil or a symbol VAR which should hold a list
of arguments, in which case each argument is evaluated and the resulting
new list is re-bound to VAR.

After VARS is handled, BODY is evaluated in the new environment.

(fn VARS &rest BODY)
(defalias 'inline-letevals '(macro . #[385 ":\203�\300\211A\262\242\301BBE\207\203�\302BB\207\303!\207" [inline--leteval inline-letevals inline--letlisteval macroexp-progn] 7 (#$ . 2029)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline-letevals lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@211 Define an inline function NAME with arguments ARGS and body in BODY.

This is like `defmacro', but has several advantages.
See Info node `(elisp)Defining Functions' for more details.

(fn NAME ARGS &rest BODY)
(defalias 'define-inline '(macro . #[642 "\211\242;\205
�\211A\262\242C\242\242\301=\205�\211A\262\242\302\303\304\"!\305!\306\307\310#\210\311\312\313\301\307	D\nABB\314\315\316\317\320\321\322BBBBBB\"D\"BBB\323\324\312\325\fB\326\327\330\314\331\332\333\334\335\336BBBBBB\"E\257DF\207" [macroexpand-all-environment declare intern format "%s--inliner" macroexp-progn function-put compiler-macro nil progn defun append macroexpand-all (inline-quote . inline--dont-quote) (inline--leteval . inline--dont-leteval) (inline--letlisteval . inline--dont-letlisteval) (inline-const-p . inline--alwaysconst-p) (inline-const-val . inline--alwaysconst-val) (inline-error . inline--error) :autoload-end eval-and-compile inline--form (ignore inline--form) catch 'inline--just-use (inline-quote . inline--do-quote) (inline--leteval . inline--do-leteval) (inline--letlisteval . inline--do-letlisteval) (inline-const-p . inline--testconst-p) (inline-const-val . inline--getconst-val) (inline-error . inline--warning)] 26 (#$ . 2852)]))
(byte-code "\300\301\302\303#\304\301\305\303#\210\300\301\306\307#\300\207" [function-put define-inline lisp-indent-function defun put edebug-form-spec doc-string-elt 3] 5)
#@12

(fn EXP)
(defalias 'inline--do-quote #[257 "\211C\300\242:\203X\242@\211\301\267\202P\242A\211:\203p�\211@A\211\204)�\211\262\202k�\302\242:\203N�\242@\303=\204N�\304\242\211\242A\240\210\242!B\262\202*�\211\237\262\242\203f�\305\306\304\n\242!C\"B\202i�\307B\262\266\202\202s�!\262\202S\242A\211:\203\334�\211@\211:\203\324�\211@\211\303=\203\313�A\211:\203\302�\211@A\211\204\270�A\211\204\256�\307\310E\262\202\263�\n!\262\202\275�	!\266\202\202\306�!\262\202\317�!\262\202\327�!\262\202\337�!\262\202S\242A\211:\203H\211@\211:\203@\211@\211\303=\2037A\211:\203.\211@A\211\204$A\211\204\307\311E\262\202\n!\262\202)	!\266\202\2022!\262\202;!\262\202C!\262\202K!\262\202S!\262\202\\\312\242!\262\207" [#[257 "\300\242:\203!�\242@\301=\204!�\302\242\211\242A\240\210\242!B\262\202�\211\237\262\242\2037�\303\304\302\242!C\"B\202:�\305B\207" [nil \, inline--do-quote backquote-list* append list] 7 "\n\n(fn EXP)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\, 18 quote 120 function 228)) nil \, inline--do-quote backquote-list* append list 'quote 'function macroexp-quote] 15 (#$ . 4292)])
#@12

(fn EXP)
(defalias 'inline--dont-quote #[257 "\211C\300\242:\203V\242@\211\301\267\202N\242A\211:\203t�\211@A\211\204)�\211\262\202o�\302\242:\203N�\242@\303=\204N�\304\242\211\242A\240\210\242!B\262\202*�\211\237\262\242\204\\�\211\202m�\305\306@D\307A\304\242!C\"BB\262\266\202\202w�!\262\202Q\242A\211:\203\335�\211@\211:\203\325�\211@\211\303=\203\314�A\211:\203\303�\211@A\211\204\271�A\211\204\257�\211\262\202\264�\n!\262\202\276�	!\266\202\202\307�!\262\202\320�!\262\202\330�!\262\202\340�!\262\202Q\242A\211:\203F\211@\211:\203>\211@\211\303=\2035A\211:\203,\211@A\211\204\"A\211\204\211\262\202\n!\262\202'	!\266\202\2020!\262\2029!\262\202A!\262\202I!\262\202Q!\262\202X\242\262\207" [#[257 "\300\242:\203!�\242@\301=\204!�\302\242\211\242A\240\210\242!B\262\202�\211\237\262\242\204.�\211\202?�\303\304@D\305A\302\242!C\"BB\207" [nil \, inline--dont-quote apply function append] 8 "\n\n(fn EXP)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\, 18 quote 124 function 229)) nil \, inline--dont-quote apply function append] 14 (#$ . 5552)])
#@27

(fn VAR-EXP &rest BODY)
(defalias 'inline--do-leteval #[385 "\3009\203\n�\301\202�\302\242\206�\243@\206�BBBB\207" [macroexp-let2 macroexp-copyable-p ignore] 7 (#$ . 6772)])
#@27

(fn VAR-EXP &rest BODY)
(defalias 'inline--dont-leteval #[385 "9\203	�\300!\207\301CBB\207" [macroexp-progn let] 5 (#$ . 6963)])
#@27

(fn LISTVAR &rest BODY)
(defalias 'inline--do-letlisteval #[385 "\300\301!\302\303B\304\305\306\307\310\311\312\313\314\315
E\316BBBFEEDD\317\320D\321!EE\207" [make-symbol "bindings" let* (nil) mapcar lambda (e) if (macroexp-copyable-p e) e let ((v (gensym "v"))) push (list v e) (v) macroexp-let* nreverse macroexp-progn] 17 (#$ . 7104)])
#@27

(fn LISTVAR &rest BODY)
(defalias 'inline--dont-letlisteval #[385 "\300!\207" [macroexp-progn] 4 (#$ . 7460)])
#@12

(fn EXP)
(defalias 'inline--testconst-p #[257 "\211\300!\203�\211\202�\301\302!\303\304D\305\306D\307BBE=\203$�\211\202+�\310DC\"\207" [macroexp-copyable-p make-symbol "exp" or macroexp-const-p eq car-safe ('function) macroexp-let*] 8 (#$ . 7580)])
#@12

(fn EXP)
(defalias 'inline--alwaysconst-p #[257 "\300\207" [t] 2 (#$ . 7847)])
#@12

(fn EXP)
(defalias 'inline--getconst-val #[257 "\211\300!\203�\211\202�\301\302!\303\304\305!D\306B\307D\310DD\311DF=\203+�\211\2022�\312DC\"\207" [macroexp-copyable-p make-symbol "exp" cond not inline--testconst-p ((throw 'inline--just-use inline--form)) consp cadr t macroexp-let*] 8 (#$ . 7934)])
#@12

(fn EXP)
(defalias 'inline--alwaysconst-val #[257 "\207" [] 2 (#$ . 8254)])
#@19

(fn &rest ARGS)
(defalias 'inline--error #[128 "\300B\207" [error] 3 (#$ . 8338)])
#@19

(fn &rest ARGS)
(defalias 'inline--warning #[128 "\300\207" [(throw 'inline--just-use inline--form)] 2 (#$ . 8430)])
(provide 'inline)

${this.title}

Code Editor : inline.elc