mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;;; anaphora-autoloads.el --- automatically extracted autoloads
C 2 ;;
3 ;;; Code:
4
5 (add-to-list 'load-path (directory-file-name
6                          (or (file-name-directory #$) (car load-path))))
7
8
9 ;;;### (autoloads nil "anaphora" "anaphora.el" (0 0 0 0))
10 ;;; Generated autoloads from anaphora.el
11
12 (let ((loads (get 'anaphora 'custom-loads))) (if (member '"anaphora" loads) nil (put 'anaphora 'custom-loads (cons '"anaphora" loads))))
13
14 (defvar anaphora-use-long-names-only nil "\
15 Use only long names such as `anaphoric-if' instead of traditional `aif'.")
16
17 (custom-autoload 'anaphora-use-long-names-only "anaphora" t)
18
19 (defun anaphora--install-traditional-aliases (&optional arg) "\
20 Install traditional short aliases for anaphoric macros.
21
22 With negative numeric ARG, remove traditional aliases." (let ((syms (quote ((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))))) (cond ((and (numberp arg) (< arg 0)) (dolist (cell syms) (when (ignore-errors (eq (symbol-function (intern-soft (format "a%s" (car cell)))) (intern-soft (format "anaphoric-%s" (car cell))))) (fmakunbound (intern (format "a%s" (car cell))))))) (t (dolist (cell syms) (let* ((builtin (car cell)) (traditional (intern (format "a%s" builtin))) (long (intern (format "anaphoric-%s" builtin)))) (defalias traditional long) (put traditional (quote lisp-indent-function) (get builtin (quote lisp-indent-function))) (put traditional (quote edebug-form-spec) (cdr cell))))))))
23
24 (unless anaphora-use-long-names-only (anaphora--install-traditional-aliases))
25
26 (autoload 'anaphoric-if "anaphora" "\
27 Like `if', but the result of evaluating COND is bound to `it'.
28
29 The variable `it' is available within THEN and ELSE.
30
31 COND, THEN, and ELSE are otherwise as documented for `if'.
32
33 \(fn COND THEN &rest ELSE)" nil t)
34
35 (function-put 'anaphoric-if 'lisp-indent-function '2)
36
37 (autoload 'anaphoric-prog1 "anaphora" "\
38 Like `prog1', but the result of evaluating FIRST is bound to `it'.
39
40 The variable `it' is available within BODY.
41
42 FIRST and BODY are otherwise as documented for `prog1'.
43
44 \(fn FIRST &rest BODY)" nil t)
45
46 (function-put 'anaphoric-prog1 'lisp-indent-function '1)
47
48 (autoload 'anaphoric-prog2 "anaphora" "\
49 Like `prog2', but the result of evaluating FORM2 is bound to `it'.
50
51 The variable `it' is available within BODY.
52
53 FORM1, FORM2, and BODY are otherwise as documented for `prog2'.
54
55 \(fn FORM1 FORM2 &rest BODY)" nil t)
56
57 (function-put 'anaphoric-prog2 'lisp-indent-function '2)
58
59 (autoload 'anaphoric-when "anaphora" "\
60 Like `when', but the result of evaluating COND is bound to `it'.
61
62 The variable `it' is available within BODY.
63
64 COND and BODY are otherwise as documented for `when'.
65
66 \(fn COND &rest BODY)" nil t)
67
68 (function-put 'anaphoric-when 'lisp-indent-function '1)
69
70 (autoload 'anaphoric-while "anaphora" "\
71 Like `while', but the result of evaluating TEST is bound to `it'.
72
73 The variable `it' is available within BODY.
74
75 TEST and BODY are otherwise as documented for `while'.
76
77 \(fn TEST &rest BODY)" nil t)
78
79 (function-put 'anaphoric-while 'lisp-indent-function '1)
80
81 (autoload 'anaphoric-and "anaphora" "\
82 Like `and', but the result of the previous condition is bound to `it'.
83
84 The variable `it' is available within all CONDITIONS after the
85 initial one.
86
87 CONDITIONS are otherwise as documented for `and'.
88
89 Note that some implementations of this macro bind only the first
90 condition to `it', rather than each successive condition.
91
92 \(fn &rest CONDITIONS)" nil t)
93
94 (autoload 'anaphoric-cond "anaphora" "\
95 Like `cond', but the result of each condition is bound to `it'.
96
97 The variable `it' is available within the remainder of each of CLAUSES.
98
99 CLAUSES are otherwise as documented for `cond'.
100
101 \(fn &rest CLAUSES)" nil t)
102
103 (autoload 'anaphoric-lambda "anaphora" "\
104 Like `lambda', but the function may refer to itself as `self'.
105
106 ARGS and BODY are otherwise as documented for `lambda'.
107
108 \(fn ARGS &rest BODY)" nil t)
109
110 (function-put 'anaphoric-lambda 'lisp-indent-function 'defun)
111
112 (autoload 'anaphoric-block "anaphora" "\
113 Like `block', but the result of the previous expression is bound to `it'.
114
115 The variable `it' is available within all expressions of BODY
116 except the initial one.
117
118 NAME and BODY are otherwise as documented for `block'.
119
120 \(fn NAME &rest BODY)" nil t)
121
122 (function-put 'anaphoric-block 'lisp-indent-function '1)
123
124 (autoload 'anaphoric-case "anaphora" "\
125 Like `case', but the result of evaluating EXPR is bound to `it'.
126
127 The variable `it' is available within CLAUSES.
128
129 EXPR and CLAUSES are otherwise as documented for `case'.
130
131 \(fn EXPR &rest CLAUSES)" nil t)
132
133 (function-put 'anaphoric-case 'lisp-indent-function '1)
134
135 (autoload 'anaphoric-ecase "anaphora" "\
136 Like `ecase', but the 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 `ecase'.
141
142 \(fn EXPR &rest CLAUSES)" nil t)
143
144 (function-put 'anaphoric-ecase 'lisp-indent-function '1)
145
146 (autoload 'anaphoric-typecase "anaphora" "\
147 Like `typecase', but the result of evaluating EXPR is bound to `it'.
148
149 The variable `it' is available within CLAUSES.
150
151 EXPR and CLAUSES are otherwise as documented for `typecase'.
152
153 \(fn EXPR &rest CLAUSES)" nil t)
154
155 (function-put 'anaphoric-typecase 'lisp-indent-function '1)
156
157 (autoload 'anaphoric-etypecase "anaphora" "\
158 Like `etypecase', but result of evaluating EXPR is bound to `it'.
159
160 The variable `it' is available within CLAUSES.
161
162 EXPR and CLAUSES are otherwise as documented for `etypecase'.
163
164 \(fn EXPR &rest CLAUSES)" nil t)
165
166 (function-put 'anaphoric-etypecase 'lisp-indent-function '1)
167
168 (autoload 'anaphoric-let "anaphora" "\
169 Like `let', but the result of evaluating FORM is bound to `it'.
170
171 FORM and BODY are otherwise as documented for `let'.
172
173 \(fn FORM &rest BODY)" nil t)
174
175 (function-put 'anaphoric-let 'lisp-indent-function '1)
176
177 (autoload 'anaphoric-+ "anaphora" "\
178 Like `+', but the result of evaluating the previous expression is bound to `it'.
179
180 The variable `it' is available within all expressions after the
181 initial one.
182
183 NUMBERS-OR-MARKERS are otherwise as documented for `+'.
184
185 \(fn &rest NUMBERS-OR-MARKERS)" nil t)
186
187 (autoload 'anaphoric-- "anaphora" "\
188 Like `-', but the result of evaluating the previous expression is bound to `it'.
189
190 The variable `it' is available within all expressions after the
191 initial one.
192
193 NUMBER-OR-MARKER and NUMBERS-OR-MARKERS are otherwise as
194 documented for `-'.
195
196 \(fn &optional NUMBER-OR-MARKER &rest NUMBERS-OR-MARKERS)" nil t)
197
198 (autoload 'anaphoric-* "anaphora" "\
199 Like `*', but the result of evaluating the previous expression is bound to `it'.
200
201 The variable `it' is available within all expressions after the
202 initial one.
203
204 NUMBERS-OR-MARKERS are otherwise as documented for `*'.
205
206 \(fn &rest NUMBERS-OR-MARKERS)" nil t)
207
208 (autoload 'anaphoric-/ "anaphora" "\
209 Like `/', but the result of evaluating the previous divisor is bound to `it'.
210
211 The variable `it' is available within all expressions after the
212 first divisor.
213
214 DIVIDEND, DIVISOR, and DIVISORS are otherwise as documented for `/'.
215
216 \(fn DIVIDEND DIVISOR &rest DIVISORS)" nil t)
217
218 (if (fboundp 'register-definition-prefixes) (register-definition-prefixes "anaphora" '("anaphora-install-font-lock-keywords")))
219
220 ;;;***
221
222 ;; Local Variables:
223 ;; version-control: never
224 ;; no-byte-compile: t
225 ;; no-update-autoloads: t
226 ;; coding: utf-8
227 ;; End:
228 ;;; anaphora-autoloads.el ends here