Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : backquote.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:13 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/backquote.el
;;; in Emacs version 23.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`backquote.el' was compiled for Emacs 19.29 or later"))

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

(provide 'backquote)
#@117 Like `list' but the last argument is the tail of the new list.

For example (backquote-list* 'a 'b 'c) => (a b . c)
(defalias 'backquote-list*-function #[(first &rest list) "\203*�\n\305B\211	A\203\"�\f	@\305B\241\210\fA	A\211\202
�\f	@\241\210+\207\n\207" [list rest first newlist last nil] 4 (#$ . 640)])
#@117 Like `list' but the last argument is the tail of the new list.

For example (backquote-list* 'a 'b 'c) => (a b . c)
(defalias 'backquote-list*-macro '(macro . #[(first &rest list) "	B\237\211@	A\211\203.�	@	A\305\nE\203+�\305@\fEA\211\204�\f+\207\207" [first list second rest newlist cons] 4 (#$ . 962)]))
(byte-code "\300\301\302K\"\207" [defalias backquote-list* backquote-list*-macro] 3)
#@59 Symbol used to represent a backquote or nested backquote.
(defconst backquote-backquote-symbol '\` (#$ . 1374))
#@57 Symbol used to represent an unquote inside a backquote.
(defconst backquote-unquote-symbol '\, (#$ . 1492))
#@55 Symbol used to represent a splice inside a backquote.
(defconst backquote-splice-symbol '\,@ (#$ . 1606))
#@494 Argument STRUCTURE describes a template to build.

The whole structure acts as if it were quoted except for certain
places where expressions are evaluated and inserted or spliced in.

For example:

b              => (ba bb bc)		; assume b has this value
`(a b c)       => (a b c)		; backquote acts like quote
`(a ,b c)      => (a (ba bb bc) c)	; insert the value of b
`(a ,@b c)     => (a ba bb bc c)	; splice in the value of b

Vectors work just like lists.  Nested backquotes are permitted.
(defalias 'backquote '(macro . #[(structure) "\301!A\207" [structure backquote-process] 2 (#$ . 1719)]))
(byte-code "\300\301\302K\"\207" [defalias \` backquote] 3)
#@92 Process a (un|back|splice)quote inside a backquote.
This simply recurses through the body.
(defalias 'backquote-delay-process #[(s level) "\303\304\305@DBC\306A	\"\"\211\242\305=\203�\304\305DB\202!�\307\nB)\207" [s level exp backquote-listify 0 quote backquote-process 1] 6 (#$ . 2384)])
#@441 Process the body of a backquote.
S is the body.  Returns a cons cell whose cdr is piece of code which
is the macro-expansion of S, and whose car is a small integer whose value
can either indicate that the code is constant (0), or not (1), or returns
a list which should be spliced into its environment (2).
LEVEL is only used internally and indicates the nesting level:
0 (the default) is for the toplevel nested inside a single backquote.
(defalias 'backquote-process #[(s &optional level) "\204�\306\307	!\203W�\310\311	\312\"\"\211@\306U\203!�\306	B\202U�\313\nA<\204/�\314\nAD\202T�\nA@\315=\203?�\316\nAAB\202T�\nA@\311=\203O�\314\nAAB\202T�\317\320\nAEB)\207	:\204u�\306	\203l�	\321=\204l�	9\204p�	\202s�\322	DB\207	@=\203\216�\306X\203\210�\313	A@B\207\323	S\"\207	@\f=\203\247�\306X\203\241�\324	A@B\207\323	S\"\207	@
=\203\264�\323	T\"\207	\312\211\211\211\211
\211:\203#@=\204#@
=\204#\310@\"\211@\324U\203\204\366�
\312

\203\325
\326\"BAB\312
\202
B
A\211\202\307�\204-
\203;\325
\310\"\"BA\204J@\242\f=\203R\311\237B\202U@\203f\325\313B\"\242\322=\203v\306\322	DB\202z\313B.\207" [level s n backquote-unquote-symbol backquote-splice-symbol backquote-backquote-symbol 0 vectorp backquote-process append nil 1 vconcat list vector apply #'vector t quote backquote-delay-process 2 backquote-listify (0) expression lists firstlist item rest] 7 (#$ . 2685)])
(defalias 'backquote-listify #[(list old-tail) "\306A	\306@\307U\203�\310\f!\306:\203B�@A
\2040�\2040�\n@\307U\2048�\nA
B\202�\310\nA!\fB\202�\f\203|�\204N�\311\fD
\203x�
A\206c�
@:\205c�
@@
=\211\203m�\312\202n�\313\314
\fC\")B\202�\f\202�\301
B,\207" [old-tail list item list-tail tail heads nil 0 eval quote backquote-list* cons append backquote-splice-symbol use-list*] 5])

${this.title}

Code Editor : backquote.elc