comparison lisp/emacs-lisp/cl-loaddefs.el @ 87728:eab11dedafe5

Regenerate.
author Glenn Morris <rgm@gnu.org>
date Sat, 12 Jan 2008 23:48:35 +0000
parents f1a78e8d37f0
children 7ce84052e493 c70e45a7acfd
comparison
equal deleted inserted replaced
87727:9b21752de22e 87728:eab11dedafe5
8 ;;;;;; revappend concatenate subseq cl-float-limits random-state-p 8 ;;;;;; revappend concatenate subseq cl-float-limits random-state-p
9 ;;;;;; make-random-state random* signum rem* mod* round* truncate* 9 ;;;;;; make-random-state random* signum rem* mod* round* truncate*
10 ;;;;;; ceiling* floor* isqrt lcm gcd cl-progv-before cl-set-frame-visible-p 10 ;;;;;; ceiling* floor* isqrt lcm gcd cl-progv-before cl-set-frame-visible-p
11 ;;;;;; cl-map-overlays cl-map-intervals cl-map-keymap-recursively 11 ;;;;;; cl-map-overlays cl-map-intervals cl-map-keymap-recursively
12 ;;;;;; notevery notany every some mapcon mapcan mapl maplist map 12 ;;;;;; notevery notany every some mapcon mapcan mapl maplist map
13 ;;;;;; cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "53c2b3ede19dac62cff13a37f58cdf9c") 13 ;;;;;; cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "2f89c94c42629315419a9d7404469c42")
14 ;;; Generated autoloads from cl-extra.el 14 ;;; Generated autoloads from cl-extra.el
15 15
16 (autoload (quote coerce) "cl-extra" "\ 16 (autoload 'coerce "cl-extra" "\
17 Coerce OBJECT to type TYPE. 17 Coerce OBJECT to type TYPE.
18 TYPE is a Common Lisp type specifier. 18 TYPE is a Common Lisp type specifier.
19 19
20 \(fn OBJECT TYPE)" nil nil) 20 \(fn OBJECT TYPE)" nil nil)
21 21
22 (autoload (quote equalp) "cl-extra" "\ 22 (autoload 'equalp "cl-extra" "\
23 Return t if two Lisp objects have similar structures and contents. 23 Return t if two Lisp objects have similar structures and contents.
24 This is like `equal', except that it accepts numerically equal 24 This is like `equal', except that it accepts numerically equal
25 numbers of different types (float vs. integer), and also compares 25 numbers of different types (float vs. integer), and also compares
26 strings case-insensitively. 26 strings case-insensitively.
27 27
28 \(fn X Y)" nil nil) 28 \(fn X Y)" nil nil)
29 29
30 (autoload (quote cl-mapcar-many) "cl-extra" "\ 30 (autoload 'cl-mapcar-many "cl-extra" "\
31 Not documented 31 Not documented
32 32
33 \(fn CL-FUNC CL-SEQS)" nil nil) 33 \(fn CL-FUNC CL-SEQS)" nil nil)
34 34
35 (autoload (quote map) "cl-extra" "\ 35 (autoload 'map "cl-extra" "\
36 Map a FUNCTION across one or more SEQUENCEs, returning a sequence. 36 Map a FUNCTION across one or more SEQUENCEs, returning a sequence.
37 TYPE is the sequence type to return. 37 TYPE is the sequence type to return.
38 38
39 \(fn TYPE FUNCTION SEQUENCE...)" nil nil) 39 \(fn TYPE FUNCTION SEQUENCE...)" nil nil)
40 40
41 (autoload (quote maplist) "cl-extra" "\ 41 (autoload 'maplist "cl-extra" "\
42 Map FUNCTION to each sublist of LIST or LISTs. 42 Map FUNCTION to each sublist of LIST or LISTs.
43 Like `mapcar', except applies to lists and their cdr's rather than to 43 Like `mapcar', except applies to lists and their cdr's rather than to
44 the elements themselves. 44 the elements themselves.
45 45
46 \(fn FUNCTION LIST...)" nil nil) 46 \(fn FUNCTION LIST...)" nil nil)
47 47
48 (autoload (quote mapl) "cl-extra" "\ 48 (autoload 'mapl "cl-extra" "\
49 Like `maplist', but does not accumulate values returned by the function. 49 Like `maplist', but does not accumulate values returned by the function.
50 50
51 \(fn FUNCTION LIST...)" nil nil) 51 \(fn FUNCTION LIST...)" nil nil)
52 52
53 (autoload (quote mapcan) "cl-extra" "\ 53 (autoload 'mapcan "cl-extra" "\
54 Like `mapcar', but nconc's together the values returned by the function. 54 Like `mapcar', but nconc's together the values returned by the function.
55 55
56 \(fn FUNCTION SEQUENCE...)" nil nil) 56 \(fn FUNCTION SEQUENCE...)" nil nil)
57 57
58 (autoload (quote mapcon) "cl-extra" "\ 58 (autoload 'mapcon "cl-extra" "\
59 Like `maplist', but nconc's together the values returned by the function. 59 Like `maplist', but nconc's together the values returned by the function.
60 60
61 \(fn FUNCTION LIST...)" nil nil) 61 \(fn FUNCTION LIST...)" nil nil)
62 62
63 (autoload (quote some) "cl-extra" "\ 63 (autoload 'some "cl-extra" "\
64 Return true if PREDICATE is true of any element of SEQ or SEQs. 64 Return true if PREDICATE is true of any element of SEQ or SEQs.
65 If so, return the true (non-nil) value returned by PREDICATE. 65 If so, return the true (non-nil) value returned by PREDICATE.
66 66
67 \(fn PREDICATE SEQ...)" nil nil) 67 \(fn PREDICATE SEQ...)" nil nil)
68 68
69 (autoload (quote every) "cl-extra" "\ 69 (autoload 'every "cl-extra" "\
70 Return true if PREDICATE is true of every element of SEQ or SEQs. 70 Return true if PREDICATE is true of every element of SEQ or SEQs.
71 71
72 \(fn PREDICATE SEQ...)" nil nil) 72 \(fn PREDICATE SEQ...)" nil nil)
73 73
74 (autoload (quote notany) "cl-extra" "\ 74 (autoload 'notany "cl-extra" "\
75 Return true if PREDICATE is false of every element of SEQ or SEQs. 75 Return true if PREDICATE is false of every element of SEQ or SEQs.
76 76
77 \(fn PREDICATE SEQ...)" nil nil) 77 \(fn PREDICATE SEQ...)" nil nil)
78 78
79 (autoload (quote notevery) "cl-extra" "\ 79 (autoload 'notevery "cl-extra" "\
80 Return true if PREDICATE is false of some element of SEQ or SEQs. 80 Return true if PREDICATE is false of some element of SEQ or SEQs.
81 81
82 \(fn PREDICATE SEQ...)" nil nil) 82 \(fn PREDICATE SEQ...)" nil nil)
83 83
84 (defalias (quote cl-map-keymap) (quote map-keymap)) 84 (defalias 'cl-map-keymap 'map-keymap)
85 85
86 (autoload (quote cl-map-keymap-recursively) "cl-extra" "\ 86 (autoload 'cl-map-keymap-recursively "cl-extra" "\
87 Not documented 87 Not documented
88 88
89 \(fn CL-FUNC-REC CL-MAP &optional CL-BASE)" nil nil) 89 \(fn CL-FUNC-REC CL-MAP &optional CL-BASE)" nil nil)
90 90
91 (autoload (quote cl-map-intervals) "cl-extra" "\ 91 (autoload 'cl-map-intervals "cl-extra" "\
92 Not documented 92 Not documented
93 93
94 \(fn CL-FUNC &optional CL-WHAT CL-PROP CL-START CL-END)" nil nil) 94 \(fn CL-FUNC &optional CL-WHAT CL-PROP CL-START CL-END)" nil nil)
95 95
96 (autoload (quote cl-map-overlays) "cl-extra" "\ 96 (autoload 'cl-map-overlays "cl-extra" "\
97 Not documented 97 Not documented
98 98
99 \(fn CL-FUNC &optional CL-BUFFER CL-START CL-END CL-ARG)" nil nil) 99 \(fn CL-FUNC &optional CL-BUFFER CL-START CL-END CL-ARG)" nil nil)
100 100
101 (autoload (quote cl-set-frame-visible-p) "cl-extra" "\ 101 (autoload 'cl-set-frame-visible-p "cl-extra" "\
102 Not documented 102 Not documented
103 103
104 \(fn FRAME VAL)" nil nil) 104 \(fn FRAME VAL)" nil nil)
105 105
106 (autoload (quote cl-progv-before) "cl-extra" "\ 106 (autoload 'cl-progv-before "cl-extra" "\
107 Not documented 107 Not documented
108 108
109 \(fn SYMS VALUES)" nil nil) 109 \(fn SYMS VALUES)" nil nil)
110 110
111 (autoload (quote gcd) "cl-extra" "\ 111 (autoload 'gcd "cl-extra" "\
112 Return the greatest common divisor of the arguments. 112 Return the greatest common divisor of the arguments.
113 113
114 \(fn &rest ARGS)" nil nil) 114 \(fn &rest ARGS)" nil nil)
115 115
116 (autoload (quote lcm) "cl-extra" "\ 116 (autoload 'lcm "cl-extra" "\
117 Return the least common multiple of the arguments. 117 Return the least common multiple of the arguments.
118 118
119 \(fn &rest ARGS)" nil nil) 119 \(fn &rest ARGS)" nil nil)
120 120
121 (autoload (quote isqrt) "cl-extra" "\ 121 (autoload 'isqrt "cl-extra" "\
122 Return the integer square root of the argument. 122 Return the integer square root of the argument.
123 123
124 \(fn X)" nil nil) 124 \(fn X)" nil nil)
125 125
126 (autoload (quote floor*) "cl-extra" "\ 126 (autoload 'floor* "cl-extra" "\
127 Return a list of the floor of X and the fractional part of X. 127 Return a list of the floor of X and the fractional part of X.
128 With two arguments, return floor and remainder of their quotient. 128 With two arguments, return floor and remainder of their quotient.
129 129
130 \(fn X &optional Y)" nil nil) 130 \(fn X &optional Y)" nil nil)
131 131
132 (autoload (quote ceiling*) "cl-extra" "\ 132 (autoload 'ceiling* "cl-extra" "\
133 Return a list of the ceiling of X and the fractional part of X. 133 Return a list of the ceiling of X and the fractional part of X.
134 With two arguments, return ceiling and remainder of their quotient. 134 With two arguments, return ceiling and remainder of their quotient.
135 135
136 \(fn X &optional Y)" nil nil) 136 \(fn X &optional Y)" nil nil)
137 137
138 (autoload (quote truncate*) "cl-extra" "\ 138 (autoload 'truncate* "cl-extra" "\
139 Return a list of the integer part of X and the fractional part of X. 139 Return a list of the integer part of X and the fractional part of X.
140 With two arguments, return truncation and remainder of their quotient. 140 With two arguments, return truncation and remainder of their quotient.
141 141
142 \(fn X &optional Y)" nil nil) 142 \(fn X &optional Y)" nil nil)
143 143
144 (autoload (quote round*) "cl-extra" "\ 144 (autoload 'round* "cl-extra" "\
145 Return a list of X rounded to the nearest integer and the remainder. 145 Return a list of X rounded to the nearest integer and the remainder.
146 With two arguments, return rounding and remainder of their quotient. 146 With two arguments, return rounding and remainder of their quotient.
147 147
148 \(fn X &optional Y)" nil nil) 148 \(fn X &optional Y)" nil nil)
149 149
150 (autoload (quote mod*) "cl-extra" "\ 150 (autoload 'mod* "cl-extra" "\
151 The remainder of X divided by Y, with the same sign as Y. 151 The remainder of X divided by Y, with the same sign as Y.
152 152
153 \(fn X Y)" nil nil) 153 \(fn X Y)" nil nil)
154 154
155 (autoload (quote rem*) "cl-extra" "\ 155 (autoload 'rem* "cl-extra" "\
156 The remainder of X divided by Y, with the same sign as X. 156 The remainder of X divided by Y, with the same sign as X.
157 157
158 \(fn X Y)" nil nil) 158 \(fn X Y)" nil nil)
159 159
160 (autoload (quote signum) "cl-extra" "\ 160 (autoload 'signum "cl-extra" "\
161 Return 1 if X is positive, -1 if negative, 0 if zero. 161 Return 1 if X is positive, -1 if negative, 0 if zero.
162 162
163 \(fn X)" nil nil) 163 \(fn X)" nil nil)
164 164
165 (autoload (quote random*) "cl-extra" "\ 165 (autoload 'random* "cl-extra" "\
166 Return a random nonnegative number less than LIM, an integer or float. 166 Return a random nonnegative number less than LIM, an integer or float.
167 Optional second arg STATE is a random-state object. 167 Optional second arg STATE is a random-state object.
168 168
169 \(fn LIM &optional STATE)" nil nil) 169 \(fn LIM &optional STATE)" nil nil)
170 170
171 (autoload (quote make-random-state) "cl-extra" "\ 171 (autoload 'make-random-state "cl-extra" "\
172 Return a copy of random-state STATE, or of `*random-state*' if omitted. 172 Return a copy of random-state STATE, or of `*random-state*' if omitted.
173 If STATE is t, return a new state object seeded from the time of day. 173 If STATE is t, return a new state object seeded from the time of day.
174 174
175 \(fn &optional STATE)" nil nil) 175 \(fn &optional STATE)" nil nil)
176 176
177 (autoload (quote random-state-p) "cl-extra" "\ 177 (autoload 'random-state-p "cl-extra" "\
178 Return t if OBJECT is a random-state object. 178 Return t if OBJECT is a random-state object.
179 179
180 \(fn OBJECT)" nil nil) 180 \(fn OBJECT)" nil nil)
181 181
182 (autoload (quote cl-float-limits) "cl-extra" "\ 182 (autoload 'cl-float-limits "cl-extra" "\
183 Not documented 183 Not documented
184 184
185 \(fn)" nil nil) 185 \(fn)" nil nil)
186 186
187 (autoload (quote subseq) "cl-extra" "\ 187 (autoload 'subseq "cl-extra" "\
188 Return the subsequence of SEQ from START to END. 188 Return the subsequence of SEQ from START to END.
189 If END is omitted, it defaults to the length of the sequence. 189 If END is omitted, it defaults to the length of the sequence.
190 If START or END is negative, it counts from the end. 190 If START or END is negative, it counts from the end.
191 191
192 \(fn SEQ START &optional END)" nil nil) 192 \(fn SEQ START &optional END)" nil nil)
193 193
194 (autoload (quote concatenate) "cl-extra" "\ 194 (autoload 'concatenate "cl-extra" "\
195 Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. 195 Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
196 196
197 \(fn TYPE SEQUENCE...)" nil nil) 197 \(fn TYPE SEQUENCE...)" nil nil)
198 198
199 (autoload (quote revappend) "cl-extra" "\ 199 (autoload 'revappend "cl-extra" "\
200 Equivalent to (append (reverse X) Y). 200 Equivalent to (append (reverse X) Y).
201 201
202 \(fn X Y)" nil nil) 202 \(fn X Y)" nil nil)
203 203
204 (autoload (quote nreconc) "cl-extra" "\ 204 (autoload 'nreconc "cl-extra" "\
205 Equivalent to (nconc (nreverse X) Y). 205 Equivalent to (nconc (nreverse X) Y).
206 206
207 \(fn X Y)" nil nil) 207 \(fn X Y)" nil nil)
208 208
209 (autoload (quote list-length) "cl-extra" "\ 209 (autoload 'list-length "cl-extra" "\
210 Return the length of list X. Return nil if list is circular. 210 Return the length of list X. Return nil if list is circular.
211 211
212 \(fn X)" nil nil) 212 \(fn X)" nil nil)
213 213
214 (autoload (quote tailp) "cl-extra" "\ 214 (autoload 'tailp "cl-extra" "\
215 Return true if SUBLIST is a tail of LIST. 215 Return true if SUBLIST is a tail of LIST.
216 216
217 \(fn SUBLIST LIST)" nil nil) 217 \(fn SUBLIST LIST)" nil nil)
218 218
219 (autoload (quote get*) "cl-extra" "\ 219 (autoload 'get* "cl-extra" "\
220 Return the value of SYMBOL's PROPNAME property, or DEFAULT if none. 220 Return the value of SYMBOL's PROPNAME property, or DEFAULT if none.
221 221
222 \(fn SYMBOL PROPNAME &optional DEFAULT)" nil nil) 222 \(fn SYMBOL PROPNAME &optional DEFAULT)" nil nil)
223 223
224 (autoload (quote getf) "cl-extra" "\ 224 (autoload 'getf "cl-extra" "\
225 Search PROPLIST for property PROPNAME; return its value or DEFAULT. 225 Search PROPLIST for property PROPNAME; return its value or DEFAULT.
226 PROPLIST is a list of the sort returned by `symbol-plist'. 226 PROPLIST is a list of the sort returned by `symbol-plist'.
227 227
228 \(fn PROPLIST PROPNAME &optional DEFAULT)" nil nil) 228 \(fn PROPLIST PROPNAME &optional DEFAULT)" nil nil)
229 229
230 (autoload (quote cl-set-getf) "cl-extra" "\ 230 (autoload 'cl-set-getf "cl-extra" "\
231 Not documented 231 Not documented
232 232
233 \(fn PLIST TAG VAL)" nil nil) 233 \(fn PLIST TAG VAL)" nil nil)
234 234
235 (autoload (quote cl-do-remf) "cl-extra" "\ 235 (autoload 'cl-do-remf "cl-extra" "\
236 Not documented 236 Not documented
237 237
238 \(fn PLIST TAG)" nil nil) 238 \(fn PLIST TAG)" nil nil)
239 239
240 (autoload (quote cl-remprop) "cl-extra" "\ 240 (autoload 'cl-remprop "cl-extra" "\
241 Remove from SYMBOL's plist the property PROPNAME and its value. 241 Remove from SYMBOL's plist the property PROPNAME and its value.
242 242
243 \(fn SYMBOL PROPNAME)" nil nil) 243 \(fn SYMBOL PROPNAME)" nil nil)
244 244
245 (defalias (quote remprop) (quote cl-remprop)) 245 (defalias 'remprop 'cl-remprop)
246 246
247 (defalias (quote cl-gethash) (quote gethash)) 247 (defalias 'cl-gethash 'gethash)
248 248
249 (defalias (quote cl-puthash) (quote puthash)) 249 (defalias 'cl-puthash 'puthash)
250 250
251 (defalias (quote cl-remhash) (quote remhash)) 251 (defalias 'cl-remhash 'remhash)
252 252
253 (defalias (quote cl-clrhash) (quote clrhash)) 253 (defalias 'cl-clrhash 'clrhash)
254 254
255 (defalias (quote cl-maphash) (quote maphash)) 255 (defalias 'cl-maphash 'maphash)
256 256
257 (defalias (quote cl-make-hash-table) (quote make-hash-table)) 257 (defalias 'cl-make-hash-table 'make-hash-table)
258 258
259 (defalias (quote cl-hash-table-p) (quote hash-table-p)) 259 (defalias 'cl-hash-table-p 'hash-table-p)
260 260
261 (defalias (quote cl-hash-table-count) (quote hash-table-count)) 261 (defalias 'cl-hash-table-count 'hash-table-count)
262 262
263 (autoload (quote cl-macroexpand-all) "cl-extra" "\ 263 (autoload 'cl-macroexpand-all "cl-extra" "\
264 Expand all macro calls through a Lisp FORM. 264 Expand all macro calls through a Lisp FORM.
265 This also does some trivial optimizations to make the form prettier. 265 This also does some trivial optimizations to make the form prettier.
266 266
267 \(fn FORM &optional ENV)" nil nil) 267 \(fn FORM &optional ENV)" nil nil)
268 268
269 (autoload (quote cl-prettyexpand) "cl-extra" "\ 269 (autoload 'cl-prettyexpand "cl-extra" "\
270 Not documented 270 Not documented
271 271
272 \(fn FORM &optional FULL)" nil nil) 272 \(fn FORM &optional FULL)" nil nil)
273 273
274 ;;;*** 274 ;;;***
281 ;;;;;; lexical-let* lexical-let symbol-macrolet macrolet labels 281 ;;;;;; lexical-let* lexical-let symbol-macrolet macrolet labels
282 ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist 282 ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist
283 ;;;;;; do* do loop return-from return block etypecase typecase ecase 283 ;;;;;; do* do loop return-from return block etypecase typecase ecase
284 ;;;;;; case load-time-value eval-when destructuring-bind function* 284 ;;;;;; case load-time-value eval-when destructuring-bind function*
285 ;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs" 285 ;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs"
286 ;;;;;; "cl-macs.el" "c9b59a98f2066022e751aa5203b8d6b0") 286 ;;;;;; "cl-macs.el" "b75c9203d71424764cb7d91607a965eb")
287 ;;; Generated autoloads from cl-macs.el 287 ;;; Generated autoloads from cl-macs.el
288 288
289 (autoload 'cl-compile-time-init "cl-macs" "\ 289 (autoload 'cl-compile-time-init "cl-macs" "\
290 Not documented 290 Not documented
291 291
743 ;;;;;; merge stable-sort sort* search mismatch count-if-not count-if 743 ;;;;;; merge stable-sort sort* search mismatch count-if-not count-if
744 ;;;;;; count position-if-not position-if position find-if-not find-if 744 ;;;;;; count position-if-not position-if position find-if-not find-if
745 ;;;;;; find nsubstitute-if-not nsubstitute-if nsubstitute substitute-if-not 745 ;;;;;; find nsubstitute-if-not nsubstitute-if nsubstitute substitute-if-not
746 ;;;;;; substitute-if substitute delete-duplicates remove-duplicates 746 ;;;;;; substitute-if substitute delete-duplicates remove-duplicates
747 ;;;;;; delete-if-not delete-if delete* remove-if-not remove-if remove* 747 ;;;;;; delete-if-not delete-if delete* remove-if-not remove-if remove*
748 ;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "77bee7df392948b6ab0699e391e8abc1") 748 ;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "e3c349e5231811c1c0482dd378dae56a")
749 ;;; Generated autoloads from cl-seq.el 749 ;;; Generated autoloads from cl-seq.el
750 750
751 (autoload 'reduce "cl-seq" "\ 751 (autoload 'reduce "cl-seq" "\
752 Reduce two-argument FUNCTION across SEQ. 752 Reduce two-argument FUNCTION across SEQ.
753 753