mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\310\312\310\313\314\315\316\317&\210\320\321\322\323\324DD\325\326\327\316\303&\207" [require cl-lib custom-declare-group anaphora nil "Anaphoric macros providing implicit temp variables" :version "1.0.4" :link (emacs-commentary-link :tag "Commentary" "anaphora") (url-link :tag "GitHub" "http://github.com/rolandwalker/anaphora") (url-link :tag "EmacsWiki" "http://emacswiki.org/emacs/Anaphora") :prefix "anaphora-" :group extensions custom-declare-variable anaphora-use-long-names-only funcall function #[0 "\300\207" [nil] 1] "Use only long names such as `anaphoric-if' instead of traditional `aif'." :type boolean] 16)
16 #@35 Fontify keywords `it' and `self'.
17 (defalias 'anaphora-install-font-lock-keywords #[0 "\300\301\302\303BC\304#\207" [font-lock-add-keywords emacs-lisp-mode "\\<\\(it\\|self\\)\\>" (1 font-lock-variable-name-face) append] 4 (#$ . 1091)])
18 #@133 Install traditional short aliases for anaphoric macros.
19
20 With negative numeric ARG, remove traditional aliases.
21
22 (fn &optional ARG)
23 (defalias 'anaphora--install-traditional-aliases #[256 "\300\247\203H\301W\203H\211\211\205C\211@\3021+\303\304\305@\"!K\303\304\306@\"!=0\202/\210\202<\203<\307\310\304\305@\"!!\210A\266\202\202 \262\202|\211\211\205z\211@\211@\310\304\305\"!\310\304\306\"!\311\"\210\312\313\313N#\210\312\314A#\266A\266\202\202I\262\207" [((if . t) (prog1 . t) (prog2 . t) (when . when) (while . t) (and . t) (cond . cond) (lambda . lambda) (block . block) (case . case) (ecase . ecase) (typecase . typecase) (etypecase . etypecase) (let . let) (+ . t) (- . t) (* . t) (/ . t)) 0 (error) intern-soft format "a%s" "anaphoric-%s" fmakunbound intern defalias put lisp-indent-function edebug-form-spec] 12 (#$ . 1334)])
24 (byte-code "\204\301 \210\301\207" [anaphora-use-long-names-only anaphora--install-traditional-aliases] 1)
25 #@205 Like `if', but the result of evaluating COND is bound to `it'.
26
27 The variable `it' is available within THEN and ELSE.
28
29 COND, THEN, and ELSE are otherwise as documented for `if'.
30
31 (fn COND THEN &rest ELSE)
32 (defalias 'anaphoric-if '(macro . #[642 "\300\301DC\302\301BBBE\207" [let it if] 9 (#$ . 2315)]))
33 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-if edebug-form-spec t function-put lisp-indent-function 2] 4)
34 #@193 Like `prog1', but the result of evaluating FIRST is bound to `it'.
35
36 The variable `it' is available within BODY.
37
38 FIRST and BODY are otherwise as documented for `prog1'.
39
40 (fn FIRST &rest BODY)
41 (defalias 'anaphoric-prog1 '(macro . #[385 "\300\301DC\302B\303BBB\207" [let it progn (it)] 6 (#$ . 2764)]))
42 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-prog1 edebug-form-spec t function-put lisp-indent-function 1] 4)
43 #@207 Like `prog2', but the result of evaluating FORM2 is bound to `it'.
44
45 The variable `it' is available within BODY.
46
47 FORM1, FORM2, and BODY are otherwise as documented for `prog2'.
48
49 (fn FORM1 FORM2 &rest BODY)
50 (defalias 'anaphoric-prog2 '(macro . #[642 "\300\301\302DC\300B\303BBBE\207" [progn let it (it)] 9 (#$ . 3214)]))
51 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-prog2 edebug-form-spec t function-put lisp-indent-function 2] 4)
52 #@188 Like `when', but the result of evaluating COND is bound to `it'.
53
54 The variable `it' is available within BODY.
55
56 COND and BODY are otherwise as documented for `when'.
57
58 (fn COND &rest BODY)
59 (defalias 'anaphoric-when '(macro . #[385 "\300\301BE\207" [anaphoric-if progn] 6 (#$ . 3684)]))
60 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-when edebug-form-spec when function-put lisp-indent-function 1] 4)
61 #@190 Like `while', but the result of evaluating TEST is bound to `it'.
62
63 The variable `it' is available within BODY.
64
65 TEST and BODY are otherwise as documented for `while'.
66
67 (fn TEST &rest BODY)
68 (defalias 'anaphoric-while '(macro . #[385 "\300\301\211EC\302BBB\207" [do it ((not it))] 6 (#$ . 4119)]))
69 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-while edebug-form-spec t function-put lisp-indent-function 1] 4)
70 #@347 Like `and', but the result of the previous condition is bound to `it'.
71
72 The variable `it' is available within all CONDITIONS after the
73 initial one.
74
75 CONDITIONS are otherwise as documented for `and'.
76
77 Note that some implementations of this macro bind only the first
78 condition to `it', rather than each successive condition.
79
80 (fn &rest CONDITIONS)
81 (defalias 'anaphoric-and '(macro . #[128 "\211\204\300\207\211A\204\211@\207\301@\302ABE\207" [t anaphoric-if anaphoric-and] 5 (#$ . 4564)]))
82 (put 'anaphoric-and 'edebug-form-spec t)
83 #@207 Like `cond', but the result of each condition is bound to `it'.
84
85 The variable `it' is available within the remainder of each of CLAUSES.
86
87 CLAUSES are otherwise as documented for `cond'.
88
89 (fn &rest CLAUSES)
90 (defalias 'anaphoric-cond '(macro . #[128 "\211\205/\211@\300 \301@DC\302\302\303\304ADD\301\305    DC\nABBF\306ABFE\266\202\207" [gensym let if null quote it anaphoric-cond] 13 (#$ . 5106)]))
91 (put 'anaphoric-cond 'edebug-form-spec 'cond)
92 #@143 Like `lambda', but the function may refer to itself as `self'.
93
94 ARGS and BODY are otherwise as documented for `lambda'.
95
96 (fn ARGS &rest BODY)
97 (defalias 'anaphoric-lambda '(macro . #[385 "\300\301BBC\302BB\207" [cl-labels self (#'self)] 6 (#$ . 5567)]))
98 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-lambda edebug-form-spec lambda function-put lisp-indent-function defun] 4)
99 #@240 Like `block', but the result of the previous expression is bound to `it'.
100
101 The variable `it' is available within all expressions of BODY
102 except the initial one.
103
104 NAME and BODY are otherwise as documented for `block'.
105
106 (fn NAME &rest BODY)
107 (defalias 'anaphoric-block '(macro . #[385 "\300\301C\211\302\303\304\305\306!\307\"\310\311%\240\210\211\242\262!E\207" [cl-block nil make-byte-code 257 "\211G\211\301\267\202\302\202@\202\303\304@DC\300\242A!E\207" vconcat vector [#s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 8 1 12)) nil let it] 6 "\n\n(fn BODY)"] 12 (#$ . 5979)]))
108 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-block edebug-form-spec block function-put lisp-indent-function 1] 4)
109 #@197 Like `case', but the result of evaluating EXPR is bound to `it'.
110
111 The variable `it' is available within CLAUSES.
112
113 EXPR and CLAUSES are otherwise as documented for `case'.
114
115 (fn EXPR &rest CLAUSES)
116 (defalias 'anaphoric-case '(macro . #[385 "\300\301DC\302\301BBE\207" [let it cl-case] 7 (#$ . 6763)]))
117 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-case edebug-form-spec case function-put lisp-indent-function 1] 4)
118 #@199 Like `ecase', but the result of evaluating EXPR is bound to `it'.
119
120 The variable `it' is available within CLAUSES.
121
122 EXPR and CLAUSES are otherwise as documented for `ecase'.
123
124 (fn EXPR &rest CLAUSES)
125 (defalias 'anaphoric-ecase '(macro . #[385 "\300\301DC\302\301BBE\207" [let it cl-ecase] 7 (#$ . 7214)]))
126 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-ecase edebug-form-spec ecase function-put lisp-indent-function 1] 4)
127 #@205 Like `typecase', but the result of evaluating EXPR is bound to `it'.
128
129 The variable `it' is available within CLAUSES.
130
131 EXPR and CLAUSES are otherwise as documented for `typecase'.
132
133 (fn EXPR &rest CLAUSES)
134 (defalias 'anaphoric-typecase '(macro . #[385 "\300\301DC\302\301BBE\207" [let it cl-typecase] 7 (#$ . 7671)]))
135 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-typecase edebug-form-spec typecase function-put lisp-indent-function 1] 4)
136 #@203 Like `etypecase', but result of evaluating EXPR is bound to `it'.
137
138 The variable `it' is available within CLAUSES.
139
140 EXPR and CLAUSES are otherwise as documented for `etypecase'.
141
142 (fn EXPR &rest CLAUSES)
143 (defalias 'anaphoric-etypecase '(macro . #[385 "\300\301DC\302\301BBE\207" [let it cl-etypecase] 7 (#$ . 8146)]))
144 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-etypecase edebug-form-spec etypecase function-put lisp-indent-function 1] 4)
145 #@141 Like `let', but the result of evaluating FORM is bound to `it'.
146
147 FORM and BODY are otherwise as documented for `let'.
148
149 (fn FORM &rest BODY)
150 (defalias 'anaphoric-let '(macro . #[385 "\300\301DC\302BE\207" [let it progn] 6 (#$ . 8623)]))
151 (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put anaphoric-let edebug-form-spec let function-put lisp-indent-function 1] 4)
152 #@248 Like `+', but the result of evaluating the previous expression is bound to `it'.
153
154 The variable `it' is available within all expressions after the
155 initial one.
156
157 NUMBERS-OR-MARKERS are otherwise as documented for `+'.
158
159 (fn &rest NUMBERS-OR-MARKERS)
160 (defalias 'anaphoric-+ '(macro . #[128 "\211\204\300\207\301\302@DC\303\302\304ABEE\207" [0 let it + anaphoric-+] 7 (#$ . 9008)]))
161 (put 'anaphoric-+ 'edebug-form-spec t)
162 #@296 Like `-', but the result of evaluating the previous expression is bound to `it'.
163
164 The variable `it' is available within all expressions after the
165 initial one.
166
167 NUMBER-OR-MARKER and NUMBERS-OR-MARKERS are otherwise as
168 documented for `-'.
169
170 (fn &optional NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)
171 (defalias 'anaphoric-- '(macro . #[384 "\204\300\207\211\204\301D\207\302\303@DC\301\304\303\305ABEEE\207" [0 - let it + anaphoric-+] 10 (#$ . 9436)]))
172 (put 'anaphoric-- 'edebug-form-spec t)
173 #@248 Like `*', but the result of evaluating the previous expression is bound to `it'.
174
175 The variable `it' is available within all expressions after the
176 initial one.
177
178 NUMBERS-OR-MARKERS are otherwise as documented for `*'.
179
180 (fn &rest NUMBERS-OR-MARKERS)
181 (defalias 'anaphoric-* '(macro . #[128 "\211\204\300\207\301\302@DC\303\302\304ABEE\207" [1 let it * anaphoric-*] 7 (#$ . 9939)]))
182 (put 'anaphoric-* 'edebug-form-spec t)
183 #@267 Like `/', but the result of evaluating the previous divisor is bound to `it'.
184
185 The variable `it' is available within all expressions after the
186 first divisor.
187
188 DIVIDEND, DIVISOR, and DIVISORS are otherwise as documented for `/'.
189
190 (fn DIVIDEND DIVISOR &rest DIVISORS)
191 (defalias 'anaphoric-/ '(macro . #[642 "\211\204    \300E\207\301\302DC\300\303\302\304BEEE\207" [/ let it * anaphoric-*] 11 (#$ . 10367)]))
192 (byte-code "\300\301\302\303#\210\304\305!\207" [put anaphoric-/ edebug-form-spec t provide anaphora] 4)