comparison lisp/auto-autoloads.el @ 410:de805c49cfc1 r21-2-35

Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1 ;;; DO NOT MODIFY THIS FILE 1 ;;; DO NOT MODIFY THIS FILE
2 (if (featurep 'lisp-autoloads) (error "Already loaded")) 2 (if (featurep 'lisp-autoloads) (error "Already loaded"))
3
4 ;;;### (autoloads nil "abbrev" "lisp/abbrev.el")
5
6 ;;;***
7
8 ;;;### (autoloads (about-xemacs) "about" "lisp/about.el")
9
10 (autoload 'about-xemacs "about" "\
11 Describe the True Editor and its minions." t nil)
12
13 ;;;***
14
15 ;;;### (autoloads (set-modified-alist modify-alist remove-alist set-alist del-alist put-alist vassoc) "alist" "lisp/alist.el")
16
17 (autoload 'vassoc "alist" "\
18 Search VALIST for a vector whose first element is equal to KEY.
19 See also `assoc'." nil nil)
20
21 (autoload 'put-alist "alist" "\
22 Modify ALIST to set VALUE to ITEM.
23 If there is a pair whose car is ITEM, replace its cdr by VALUE.
24 If there is not such pair, create new pair (ITEM . VALUE) and
25 return new alist whose car is the new pair and cdr is ALIST.
26 [tomo's ELIS like function]" nil nil)
27
28 (autoload 'del-alist "alist" "\
29 If there is a pair whose key is ITEM, delete it from ALIST.
30 [tomo's ELIS emulating function]" nil nil)
31
32 (autoload 'set-alist "alist" "\
33 Modify a alist indicated by SYMBOL to set VALUE to ITEM." nil nil)
34
35 (autoload 'remove-alist "alist" "\
36 Remove ITEM from the alist indicated by SYMBOL." nil nil)
37
38 (autoload 'modify-alist "alist" "\
39 Modify alist DEFAULT into alist MODIFIER." nil nil)
40
41 (autoload 'set-modified-alist "alist" "\
42 Modify a value of a symbol SYM into alist MODIFIER.
43 The symbol SYM should be alist. If it is not bound,
44 its value regard as nil." nil nil)
45
46 ;;;***
47
48 ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "lisp/apropos.el")
49
50 (fset 'command-apropos 'apropos-command)
51
52 (autoload 'apropos-command "apropos" "\
53 Shows commands (interactively callable functions) that match REGEXP.
54 With optional prefix ARG or if `apropos-do-all' is non-nil, also show
55 variables." t nil)
56
57 (autoload 'apropos "apropos" "\
58 Show all bound symbols whose names match REGEXP.
59 With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound
60 symbols and key bindings, which is a little more time-consuming.
61 Returns list of symbols and documentation found." t nil)
62
63 (autoload 'apropos-value "apropos" "\
64 Show all symbols whose value's printed image matches REGEXP.
65 With optional prefix ARG or if `apropos-do-all' is non-nil, also looks
66 at the function and at the names and values of properties.
67 Returns list of symbols and values found." t nil)
68
69 (autoload 'apropos-documentation "apropos" "\
70 Show symbols whose documentation contain matches for REGEXP.
71 With optional prefix ARG or if `apropos-do-all' is non-nil, also use
72 documentation that is not stored in the documentation file and show key
73 bindings.
74 Returns list of symbols and documentation found." t nil)
75
76 ;;;***
3 77
4 ;;;### (autoloads (batch-update-one-directory batch-update-directory batch-update-autoloads update-autoloads-from-directory update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "lisp/autoload.el") 78 ;;;### (autoloads (batch-update-one-directory batch-update-directory batch-update-autoloads update-autoloads-from-directory update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "lisp/autoload.el")
5 79
6 (autoload 'generate-file-autoloads "autoload" "\ 80 (autoload 'generate-file-autoloads "autoload" "\
7 Insert at point a loaddefs autoload section for FILE. 81 Insert at point a loaddefs autoload section for FILE.
44 Runs `update-file-autoloads' on each file in the given directory, and must 118 Runs `update-file-autoloads' on each file in the given directory, and must
45 be used only with -batch." nil nil) 119 be used only with -batch." nil nil)
46 120
47 ;;;*** 121 ;;;***
48 122
123 ;;;### (autoloads nil "buff-menu" "lisp/buff-menu.el")
124
125 (defvar list-buffers-directory nil)
126
127 (make-variable-buffer-local 'list-buffers-directory)
128
129 ;;;***
130
131 ;;;### (autoloads (build-report) "build-report" "lisp/build-report.el")
132
133 (autoload 'build-report "build-report" "\
134 Initializes a fresh mail composition buffer using `compose-mail'
135 with the contents of XEmacs Installation file and excerpts from XEmacs
136 make output and errors and leaves point at the beginning of the mail text.
137 See also
138 `compose-mail', `mail-user-agent',
139 `build-report-destination',
140 `build-report-keep-regexp',
141 `build-report-delete-regexp',
142 `build-report-make-output-file' and
143 `build-report-installation-file'." t nil)
144
145 ;;;***
146
49 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile-one-file batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-buffer byte-compile-and-load-file byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el") 147 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile-one-file batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-buffer byte-compile-and-load-file byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el")
50 148
51 (autoload 'byte-force-recompile "bytecomp" "\ 149 (autoload 'byte-force-recompile "bytecomp" "\
52 Recompile every `.el' file in DIRECTORY that already has a `.elc' file. 150 Recompile every `.el' file in DIRECTORY that already has a `.elc' file.
53 Files in subdirectories of DIRECTORY are processed also." t nil) 151 Files in subdirectories of DIRECTORY are processed also." t nil)
133 231
134 (autoload 'batch-byte-recompile-directory "bytecomp" "\ 232 (autoload 'batch-byte-recompile-directory "bytecomp" "\
135 Runs `byte-recompile-directory' on the dirs remaining on the command line. 233 Runs `byte-recompile-directory' on the dirs remaining on the command line.
136 Must be used only with `-batch', and kills Emacs on completion. 234 Must be used only with `-batch', and kills Emacs on completion.
137 For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'." nil nil) 235 For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'." nil nil)
236
237 ;;;***
238
239 ;;;### (autoloads (compiler-macroexpand define-compiler-macro ignore-file-errors ignore-errors assert check-type typep deftype cl-struct-setf-expander defstruct define-modify-macro callf2 callf letf* letf rotatef shiftf remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method declare the locally multiple-value-setq multiple-value-bind lexical-let* lexical-let symbol-macrolet macrolet labels flet progv psetq do-all-symbols do-symbols dotimes dolist do* do loop return-from return block etypecase typecase ecase case load-time-value eval-when destructuring-bind function* defmacro* defun* cl-compile-time-init) "cl-macs" "lisp/cl-macs.el")
240
241 (autoload 'cl-compile-time-init "cl-macs" nil nil nil)
242
243 (autoload 'defun* "cl-macs" "\
244 (defun* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function.
245 Like normal `defun', except ARGLIST allows full Common Lisp conventions,
246 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
247
248 (autoload 'defmacro* "cl-macs" "\
249 (defmacro* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a macro.
250 Like normal `defmacro', except ARGLIST allows full Common Lisp conventions,
251 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
252
253 (autoload 'function* "cl-macs" "\
254 (function* SYMBOL-OR-LAMBDA): introduce a function.
255 Like normal `function', except that if argument is a lambda form, its
256 ARGLIST allows full Common Lisp conventions." nil 'macro)
257
258 (autoload 'destructuring-bind "cl-macs" nil nil 'macro)
259
260 (autoload 'eval-when "cl-macs" "\
261 (eval-when (WHEN...) BODY...): control when BODY is evaluated.
262 If `compile' is in WHEN, BODY is evaluated when compiled at top-level.
263 If `load' is in WHEN, BODY is evaluated when loaded after top-level compile.
264 If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level." nil 'macro)
265
266 (autoload 'load-time-value "cl-macs" "\
267 Like `progn', but evaluates the body at load time.
268 The result of the body appears to the compiler as a quoted constant." nil 'macro)
269
270 (autoload 'case "cl-macs" "\
271 (case EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
272 Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared
273 against each key in each KEYLIST; the corresponding BODY is evaluated.
274 If no clause succeeds, case returns nil. A single atom may be used in
275 place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is
276 allowed only in the final clause, and matches if no other keys match.
277 Key values are compared by `eql'." nil 'macro)
278
279 (autoload 'ecase "cl-macs" "\
280 (ecase EXPR CLAUSES...): like `case', but error if no case fits.
281 `otherwise'-clauses are not allowed." nil 'macro)
282
283 (autoload 'typecase "cl-macs" "\
284 (typecase EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
285 Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it
286 satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds,
287 typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the
288 final clause, and matches if no other keys match." nil 'macro)
289
290 (autoload 'etypecase "cl-macs" "\
291 (etypecase EXPR CLAUSES...): like `typecase', but error if no case fits.
292 `otherwise'-clauses are not allowed." nil 'macro)
293
294 (autoload 'block "cl-macs" "\
295 (block NAME BODY...): define a lexically-scoped block named NAME.
296 NAME may be any symbol. Code inside the BODY forms can call `return-from'
297 to jump prematurely out of the block. This differs from `catch' and `throw'
298 in two respects: First, the NAME is an unevaluated symbol rather than a
299 quoted symbol or other form; and second, NAME is lexically rather than
300 dynamically scoped: Only references to it within BODY will work. These
301 references may appear inside macro expansions, but not inside functions
302 called from BODY." nil 'macro)
303
304 (autoload 'return "cl-macs" "\
305 (return [RESULT]): return from the block named nil.
306 This is equivalent to `(return-from nil RESULT)'." nil 'macro)
307
308 (autoload 'return-from "cl-macs" "\
309 (return-from NAME [RESULT]): return from the block named NAME.
310 This jumps out to the innermost enclosing `(block NAME ...)' form,
311 returning RESULT from that form (or nil if RESULT is omitted).
312 This is compatible with Common Lisp, but note that `defun' and
313 `defmacro' do not create implicit blocks as they do in Common Lisp." nil 'macro)
314
315 (autoload 'loop "cl-macs" "\
316 (loop CLAUSE...): The Common Lisp `loop' macro.
317 Valid clauses are:
318 for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM,
319 for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR,
320 for VAR across ARRAY, repeat NUM, with VAR = INIT, while COND, until COND,
321 always COND, never COND, thereis COND, collect EXPR into VAR,
322 append EXPR into VAR, nconc EXPR into VAR, sum EXPR into VAR,
323 count EXPR into VAR, maximize EXPR into VAR, minimize EXPR into VAR,
324 if COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
325 unless COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
326 do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR,
327 finally return EXPR, named NAME." nil 'macro)
328
329 (autoload 'do "cl-macs" "\
330 The Common Lisp `do' loop.
331 Format is: (do ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
332
333 (autoload 'do* "cl-macs" "\
334 The Common Lisp `do*' loop.
335 Format is: (do* ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
336
337 (autoload 'dolist "cl-macs" "\
338 (dolist (VAR LIST [RESULT]) BODY...): loop over a list.
339 Evaluate BODY with VAR bound to each `car' from LIST, in turn.
340 Then evaluate RESULT to get return value, default nil." nil 'macro)
341
342 (autoload 'dotimes "cl-macs" "\
343 (dotimes (VAR COUNT [RESULT]) BODY...): loop a certain number of times.
344 Evaluate BODY with VAR bound to successive integers from 0, inclusive,
345 to COUNT, exclusive. Then evaluate RESULT to get return value, default
346 nil." nil 'macro)
347
348 (autoload 'do-symbols "cl-macs" "\
349 (dosymbols (VAR [OBARRAY [RESULT]]) BODY...): loop over all symbols.
350 Evaluate BODY with VAR bound to each interned symbol, or to each symbol
351 from OBARRAY." nil 'macro)
352
353 (autoload 'do-all-symbols "cl-macs" nil nil 'macro)
354
355 (autoload 'psetq "cl-macs" "\
356 (psetq SYM VAL SYM VAL ...): set SYMs to the values VALs in parallel.
357 This is like `setq', except that all VAL forms are evaluated (in order)
358 before assigning any symbols SYM to the corresponding values." nil 'macro)
359
360 (autoload 'progv "cl-macs" "\
361 (progv SYMBOLS VALUES BODY...): bind SYMBOLS to VALUES dynamically in BODY.
362 The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists.
363 Each SYMBOL in the first list is bound to the corresponding VALUE in the
364 second list (or made unbound if VALUES is shorter than SYMBOLS); then the
365 BODY forms are executed and their result is returned. This is much like
366 a `let' form, except that the list of symbols can be computed at run-time." nil 'macro)
367
368 (autoload 'flet "cl-macs" "\
369 (flet ((FUNC ARGLIST BODY...) ...) FORM...): make temporary function defns.
370 This is an analogue of `let' that operates on the function cell of FUNC
371 rather than its value cell. The FORMs are evaluated with the specified
372 function definitions in place, then the definitions are undone (the FUNCs
373 go back to their previous definitions, or lack thereof)." nil 'macro)
374
375 (autoload 'labels "cl-macs" "\
376 (labels ((FUNC ARGLIST BODY...) ...) FORM...): make temporary func bindings.
377 This is like `flet', except the bindings are lexical instead of dynamic.
378 Unlike `flet', this macro is fully compliant with the Common Lisp standard." nil 'macro)
379
380 (autoload 'macrolet "cl-macs" "\
381 (macrolet ((NAME ARGLIST BODY...) ...) FORM...): make temporary macro defns.
382 This is like `flet', but for macros instead of functions." nil 'macro)
383
384 (autoload 'symbol-macrolet "cl-macs" "\
385 (symbol-macrolet ((NAME EXPANSION) ...) FORM...): make symbol macro defns.
386 Within the body FORMs, references to the variable NAME will be replaced
387 by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...)." nil 'macro)
388
389 (autoload 'lexical-let "cl-macs" "\
390 (lexical-let BINDINGS BODY...): like `let', but lexically scoped.
391 The main visible difference is that lambdas inside BODY will create
392 lexical closures as in Common Lisp." nil 'macro)
393
394 (autoload 'lexical-let* "cl-macs" "\
395 (lexical-let* BINDINGS BODY...): like `let*', but lexically scoped.
396 The main visible difference is that lambdas inside BODY will create
397 lexical closures as in Common Lisp." nil 'macro)
398
399 (autoload 'multiple-value-bind "cl-macs" "\
400 (multiple-value-bind (SYM SYM...) FORM BODY): collect multiple return values.
401 FORM must return a list; the BODY is then executed with the first N elements
402 of this list bound (`let'-style) to each of the symbols SYM in turn. This
403 is analogous to the Common Lisp `multiple-value-bind' macro, using lists to
404 simulate true multiple return values. For compatibility, (values A B C) is
405 a synonym for (list A B C)." nil 'macro)
406
407 (autoload 'multiple-value-setq "cl-macs" "\
408 (multiple-value-setq (SYM SYM...) FORM): collect multiple return values.
409 FORM must return a list; the first N elements of this list are stored in
410 each of the symbols SYM in turn. This is analogous to the Common Lisp
411 `multiple-value-setq' macro, using lists to simulate true multiple return
412 values. For compatibility, (values A B C) is a synonym for (list A B C)." nil 'macro)
413
414 (autoload 'locally "cl-macs" nil nil 'macro)
415
416 (autoload 'the "cl-macs" nil nil 'macro)
417
418 (autoload 'declare "cl-macs" nil nil 'macro)
419
420 (autoload 'define-setf-method "cl-macs" "\
421 (define-setf-method NAME ARGLIST BODY...): define a `setf' method.
422 This method shows how to handle `setf's to places of the form (NAME ARGS...).
423 The argument forms ARGS are bound according to ARGLIST, as if NAME were
424 going to be expanded as a macro, then the BODY forms are executed and must
425 return a list of five elements: a temporary-variables list, a value-forms
426 list, a store-variables list (of length one), a store-form, and an access-
427 form. See `defsetf' for a simpler way to define most setf-methods." nil 'macro)
428
429 (autoload 'defsetf "cl-macs" "\
430 (defsetf NAME FUNC): define a `setf' method.
431 This macro is an easy-to-use substitute for `define-setf-method' that works
432 well for simple place forms. In the simple `defsetf' form, `setf's of
433 the form (setf (NAME ARGS...) VAL) are transformed to function or macro
434 calls of the form (FUNC ARGS... VAL). Example: (defsetf aref aset).
435 Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
436 Here, the above `setf' call is expanded by binding the argument forms ARGS
437 according to ARGLIST, binding the value form VAL to STORE, then executing
438 BODY, which must return a Lisp form that does the necessary `setf' operation.
439 Actually, ARGLIST and STORE may be bound to temporary variables which are
440 introduced automatically to preserve proper execution order of the arguments.
441 Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))." nil 'macro)
442
443 (autoload 'get-setf-method "cl-macs" "\
444 Return a list of five values describing the setf-method for PLACE.
445 PLACE may be any Lisp form which can appear as the PLACE argument to
446 a macro like `setf' or `incf'." nil nil)
447
448 (autoload 'setf "cl-macs" "\
449 (setf PLACE VAL PLACE VAL ...): set each PLACE to the value of its VAL.
450 This is a generalized version of `setq'; the PLACEs may be symbolic
451 references such as (car x) or (aref x i), as well as plain symbols.
452 For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
453 The return value is the last VAL in the list." nil 'macro)
454
455 (autoload 'psetf "cl-macs" "\
456 (psetf PLACE VAL PLACE VAL ...): set PLACEs to the values VALs in parallel.
457 This is like `setf', except that all VAL forms are evaluated (in order)
458 before assigning any PLACEs to the corresponding values." nil 'macro)
459
460 (autoload 'cl-do-pop "cl-macs" nil nil nil)
461
462 (autoload 'remf "cl-macs" "\
463 (remf PLACE TAG): remove TAG from property list PLACE.
464 PLACE may be a symbol, or any generalized variable allowed by `setf'.
465 The form returns true if TAG was found and removed, nil otherwise." nil 'macro)
466
467 (autoload 'shiftf "cl-macs" "\
468 (shiftf PLACE PLACE... VAL): shift left among PLACEs.
469 Example: (shiftf A B C) sets A to B, B to C, and returns the old A.
470 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
471
472 (autoload 'rotatef "cl-macs" "\
473 (rotatef PLACE...): rotate left among PLACEs.
474 Example: (rotatef A B C) sets A to B, B to C, and C to A. It returns nil.
475 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
476
477 (autoload 'letf "cl-macs" "\
478 (letf ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
479 This is the analogue of `let', but with generalized variables (in the
480 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
481 VALUE, then the BODY forms are executed. On exit, either normally or
482 because of a `throw' or error, the PLACEs are set back to their original
483 values. Note that this macro is *not* available in Common Lisp.
484 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
485 the PLACE is not modified before executing BODY." nil 'macro)
486
487 (autoload 'letf* "cl-macs" "\
488 (letf* ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
489 This is the analogue of `let*', but with generalized variables (in the
490 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
491 VALUE, then the BODY forms are executed. On exit, either normally or
492 because of a `throw' or error, the PLACEs are set back to their original
493 values. Note that this macro is *not* available in Common Lisp.
494 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
495 the PLACE is not modified before executing BODY." nil 'macro)
496
497 (autoload 'callf "cl-macs" "\
498 (callf FUNC PLACE ARGS...): set PLACE to (FUNC PLACE ARGS...).
499 FUNC should be an unquoted function name. PLACE may be a symbol,
500 or any generalized variable allowed by `setf'." nil 'macro)
501
502 (autoload 'callf2 "cl-macs" "\
503 (callf2 FUNC ARG1 PLACE ARGS...): set PLACE to (FUNC ARG1 PLACE ARGS...).
504 Like `callf', but PLACE is the second argument of FUNC, not the first." nil 'macro)
505
506 (autoload 'define-modify-macro "cl-macs" "\
507 (define-modify-macro NAME ARGLIST FUNC): define a `setf'-like modify macro.
508 If NAME is called, it combines its PLACE argument with the other arguments
509 from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)" nil 'macro)
510
511 (autoload 'defstruct "cl-macs" "\
512 (defstruct (NAME OPTIONS...) (SLOT SLOT-OPTS...)...): define a struct type.
513 This macro defines a new Lisp data type called NAME, which contains data
514 stored in SLOTs. This defines a `make-NAME' constructor, a `copy-NAME'
515 copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors." nil 'macro)
516
517 (autoload 'cl-struct-setf-expander "cl-macs" nil nil nil)
518
519 (autoload 'deftype "cl-macs" "\
520 (deftype NAME ARGLIST BODY...): define NAME as a new data type.
521 The type name can then be used in `typecase', `check-type', etc." nil 'macro)
522
523 (autoload 'typep "cl-macs" "\
524 Check that OBJECT is of type TYPE.
525 TYPE is a Common Lisp-style type specifier." nil nil)
526
527 (autoload 'check-type "cl-macs" "\
528 Verify that FORM is of type TYPE; signal an error if not.
529 STRING is an optional description of the desired type." nil 'macro)
530
531 (autoload 'assert "cl-macs" "\
532 Verify that FORM returns non-nil; signal an error if not.
533 Second arg SHOW-ARGS means to include arguments of FORM in message.
534 Other args STRING and ARGS... are arguments to be passed to `error'.
535 They are not evaluated unless the assertion fails. If STRING is
536 omitted, a default message listing FORM itself is used." nil 'macro)
537
538 (autoload 'ignore-errors "cl-macs" "\
539 Execute FORMS; if an error occurs, return nil.
540 Otherwise, return result of last FORM." nil 'macro)
541
542 (autoload 'ignore-file-errors "cl-macs" "\
543 Execute FORMS; if an error of type `file-error' occurs, return nil.
544 Otherwise, return result of last FORM." nil 'macro)
545
546 (autoload 'define-compiler-macro "cl-macs" "\
547 (define-compiler-macro FUNC ARGLIST BODY...): Define a compiler-only macro.
548 This is like `defmacro', but macro expansion occurs only if the call to
549 FUNC is compiled (i.e., not interpreted). Compiler macros should be used
550 for optimizing the way calls to FUNC are compiled; the form returned by
551 BODY should do the same thing as a call to the normal function called
552 FUNC, though possibly more efficiently. Note that, like regular macros,
553 compiler macros are expanded repeatedly until no further expansions are
554 possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
555 original function call alone by declaring an initial `&whole foo' parameter
556 and then returning foo." nil 'macro)
557
558 (autoload 'compiler-macroexpand "cl-macs" nil nil nil)
559
560 ;;;***
561
562 ;;;### (autoloads (batch-remove-old-elc) "cleantree" "lisp/cleantree.el")
563
564 (autoload 'batch-remove-old-elc "cleantree" nil nil nil)
565
566 ;;;***
567
568 ;;;### (autoloads (config-value config-value-hash-table) "config" "lisp/config.el")
569
570 (autoload 'config-value-hash-table "config" "\
571 Return hash table of configuration parameters and their values." nil nil)
572
573 (autoload 'config-value "config" "\
574 Return the value of the configuration parameter CONFIG_SYMBOL." nil nil)
575
576 ;;;***
577
578 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp/cus-dep.el")
579
580 (autoload 'Custom-make-dependencies "cus-dep" "\
581 Extract custom dependencies from .el files in SUBDIRS.
582 SUBDIRS is a list of directories. If it is nil, the command-line
583 arguments are used. If it is a string, only that directory is
584 processed. This function is especially useful in batch mode.
585
586 Batch usage: xemacs -batch -l cus-dep.el -f Custom-make-dependencies DIRS" t nil)
587
588 ;;;***
589
590 ;;;### (autoloads (custom-migrate-custom-file customize-menu-create custom-menu-create custom-save-all customize-save-customized customize-browse custom-buffer-create-other-window custom-buffer-create customize-apropos-groups customize-apropos-faces customize-apropos-options customize-apropos customize-saved customize-customized customize-face-other-window customize-face customize-option-other-window customize-changed-options customize-variable customize-other-window customize customize-save-variable customize-set-variable customize-set-value) "cus-edit" "lisp/cus-edit.el")
591
592 (autoload 'customize-set-value "cus-edit" "\
593 Set VARIABLE to VALUE. VALUE is a Lisp object.
594
595 If VARIABLE has a `variable-interactive' property, that is used as if
596 it were the arg to `interactive' (which see) to interactively read the value.
597
598 If VARIABLE has a `custom-type' property, it must be a widget and the
599 `:prompt-value' property of that widget will be used for reading the value.
600
601 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
602
603 (autoload 'customize-set-variable "cus-edit" "\
604 Set the default for VARIABLE to VALUE. VALUE is a Lisp object.
605
606 If VARIABLE has a `custom-set' property, that is used for setting
607 VARIABLE, otherwise `set-default' is used.
608
609 The `customized-value' property of the VARIABLE will be set to a list
610 with a quoted VALUE as its sole list member.
611
612 If VARIABLE has a `variable-interactive' property, that is used as if
613 it were the arg to `interactive' (which see) to interactively read the value.
614
615 If VARIABLE has a `custom-type' property, it must be a widget and the
616 `:prompt-value' property of that widget will be used for reading the value.
617
618 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
619
620 (autoload 'customize-save-variable "cus-edit" "\
621 Set the default for VARIABLE to VALUE, and save it for future sessions.
622 If VARIABLE has a `custom-set' property, that is used for setting
623 VARIABLE, otherwise `set-default' is used.
624
625 The `customized-value' property of the VARIABLE will be set to a list
626 with a quoted VALUE as its sole list member.
627
628 If VARIABLE has a `variable-interactive' property, that is used as if
629 it were the arg to `interactive' (which see) to interactively read the value.
630
631 If VARIABLE has a `custom-type' property, it must be a widget and the
632 `:prompt-value' property of that widget will be used for reading the value.
633
634 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
635
636 (autoload 'customize "cus-edit" "\
637 Select a customization buffer which you can use to set user options.
638 User options are structured into \"groups\".
639 The default group is `Emacs'." t nil)
640
641 (defalias 'customize-group 'customize)
642
643 (autoload 'customize-other-window "cus-edit" "\
644 Customize SYMBOL, which must be a customization group." t nil)
645
646 (defalias 'customize-group-other-window 'customize-other-window)
647
648 (defalias 'customize-option 'customize-variable)
649
650 (autoload 'customize-variable "cus-edit" "\
651 Customize SYMBOL, which must be a user option variable." t nil)
652
653 (autoload 'customize-changed-options "cus-edit" "\
654 Customize all user option variables whose default values changed recently.
655 This means, in other words, variables defined with a `:version' keyword." t nil)
656
657 (defalias 'customize-variable-other-window 'customize-option-other-window)
658
659 (autoload 'customize-option-other-window "cus-edit" "\
660 Customize SYMBOL, which must be a user option variable.
661 Show the buffer in another window, but don't select it." t nil)
662
663 (autoload 'customize-face "cus-edit" "\
664 Customize SYMBOL, which should be a face name or nil.
665 If SYMBOL is nil, customize all faces." t nil)
666
667 (autoload 'customize-face-other-window "cus-edit" "\
668 Show customization buffer for FACE in other window." t nil)
669
670 (autoload 'customize-customized "cus-edit" "\
671 Customize all user options set since the last save in this session." t nil)
672
673 (autoload 'customize-saved "cus-edit" "\
674 Customize all already saved user options." t nil)
675
676 (autoload 'customize-apropos "cus-edit" "\
677 Customize all user options matching REGEXP.
678 If ALL is `options', include only options.
679 If ALL is `faces', include only faces.
680 If ALL is `groups', include only groups.
681 If ALL is t (interactively, with prefix arg), include options which are not
682 user-settable, as well as faces and groups." t nil)
683
684 (autoload 'customize-apropos-options "cus-edit" "\
685 Customize all user options matching REGEXP.
686 With prefix arg, include options which are not user-settable." t nil)
687
688 (autoload 'customize-apropos-faces "cus-edit" "\
689 Customize all user faces matching REGEXP." t nil)
690
691 (autoload 'customize-apropos-groups "cus-edit" "\
692 Customize all user groups matching REGEXP." t nil)
693
694 (autoload 'custom-buffer-create "cus-edit" "\
695 Create a buffer containing OPTIONS.
696 Optional NAME is the name of the buffer.
697 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
698 SYMBOL is a customization option, and WIDGET is a widget for editing
699 that option." nil nil)
700
701 (autoload 'custom-buffer-create-other-window "cus-edit" "\
702 Create a buffer containing OPTIONS.
703 Optional NAME is the name of the buffer.
704 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
705 SYMBOL is a customization option, and WIDGET is a widget for editing
706 that option." nil nil)
707
708 (autoload 'customize-browse "cus-edit" "\
709 Create a tree browser for the customize hierarchy." t nil)
710
711 (autoload 'customize-save-customized "cus-edit" "\
712 Save all user options which have been set in this session." t nil)
713
714 (autoload 'custom-save-all "cus-edit" "\
715 Save all customizations in `custom-file'." nil nil)
716
717 (autoload 'custom-menu-create "cus-edit" "\
718 Create menu for customization group SYMBOL.
719 The menu is in a format applicable to `easy-menu-define'." nil nil)
720
721 (autoload 'customize-menu-create "cus-edit" "\
722 Return a customize menu for customization group SYMBOL.
723 If optional NAME is given, use that as the name of the menu.
724 Otherwise the menu will be named `Customize'.
725 The format is suitable for use with `easy-menu-define'." nil nil)
726
727 (autoload 'custom-migrate-custom-file "cus-edit" "\
728 Migrate custom file from home directory." nil nil)
729
730 ;;;***
731
732 ;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-theme-face-value custom-theme-set-faces custom-set-faces custom-set-face-update-spec custom-declare-face) "cus-face" "lisp/cus-face.el")
733
734 (autoload 'custom-declare-face "cus-face" "\
735 Like `defface', but FACE is evaluated as a normal argument." nil nil)
736
737 (autoload 'custom-set-face-update-spec "cus-face" "\
738 Customize the FACE for display types matching DISPLAY, merging
739 in the new items from PLIST" nil nil)
740
741 (autoload 'custom-set-faces "cus-face" "\
742 Initialize faces according to user preferences.
743 This asociates the setting with the USER theme.
744 The arguments should be a list where each entry has the form:
745
746 (FACE SPEC [NOW [COMMENT]])
747
748 SPEC will be stored as the saved value for FACE. If NOW is present
749 and non-nil, FACE will also be created according to SPEC.
750 COMMENT is a string comment about FACE.
751
752 See `defface' for the format of SPEC." nil nil)
753
754 (autoload 'custom-theme-set-faces "cus-face" "\
755 Initialize faces according to settings specified by args.
756 Records the settings as belonging to THEME.
757
758 See `custom-set-faces' for a description of the arguments ARGS." nil nil)
759
760 (autoload 'custom-theme-face-value "cus-face" "\
761 Return spec of FACE in THEME if the THEME modifies the
762 FACE. Nil otherwise." nil nil)
763
764 (autoload 'custom-theme-reset-faces "cus-face" nil nil nil)
765
766 (autoload 'custom-reset-faces "cus-face" "\
767 Reset the value of the face to values previously defined.
768 Assosiate this setting with the 'user' theme.
769
770 ARGS is defined as for `custom-theme-reset-faces'" nil nil)
771
772 ;;;***
773
774 ;;;### (autoloads (make-custom-file-name) "cus-file" "lisp/cus-file.el")
775
776 (defconst custom-file-base "custom.el" "\
777 Base of file name for storing customization information.")
778
779 (defvar custom-file nil "\
780 File used for storing customization information.
781 If you change this from the default you need to
782 explicitly load that file for the settings to take effect.")
783
784 (autoload 'make-custom-file-name "cus-file" "\
785 Construct the default custom file name from the init file name.
786 If FORCE-NEW is non-nil, force post-migration location." nil nil)
787
788 ;;;***
789
790 ;;;### (autoloads (disassemble) "disass" "lisp/disass.el")
791
792 (autoload 'disassemble "disass" "\
793 Print disassembled code for OBJECT in (optional) BUFFER.
794 OBJECT can be a symbol defined as a function, or a function itself
795 \(a lambda expression or a compiled-function object).
796 If OBJECT is not already compiled, we compile it, but do not
797 redefine OBJECT if it is a symbol." t nil)
798
799 ;;;***
800
801 ;;;### (autoloads (standard-display-european standard-display-underline standard-display-graphic standard-display-g1 standard-display-ascii standard-display-default standard-display-8bit make-display-table describe-current-display-table) "disp-table" "lisp/disp-table.el")
802
803 (autoload 'describe-current-display-table "disp-table" "\
804 Describe the display table in use in the selected window and buffer." t nil)
805
806 (autoload 'make-display-table "disp-table" "\
807 Return a new, empty display table." nil nil)
808
809 (autoload 'standard-display-8bit "disp-table" "\
810 Display characters in the range L to H literally." nil nil)
811
812 (autoload 'standard-display-default "disp-table" "\
813 Display characters in the range L to H using the default notation." nil nil)
814
815 (autoload 'standard-display-ascii "disp-table" "\
816 Display character C using printable string S." nil nil)
817
818 (autoload 'standard-display-g1 "disp-table" "\
819 Display character C as character SC in the g1 character set.
820 This function assumes that your terminal uses the SO/SI characters;
821 it is meaningless for an X frame." nil nil)
822
823 (autoload 'standard-display-graphic "disp-table" "\
824 Display character C as character GC in graphics character set.
825 This function assumes VT100-compatible escapes; it is meaningless for an
826 X frame." nil nil)
827
828 (autoload 'standard-display-underline "disp-table" "\
829 Display character C as character UC plus underlining." nil nil)
830
831 (autoload 'standard-display-european "disp-table" "\
832 Toggle display of European characters encoded with ISO 8859.
833 When enabled, characters in the range of 160 to 255 display not
834 as octal escapes, but as accented characters.
835 With prefix argument, enable European character display iff arg is positive." t nil)
836
837 ;;;***
838
839 ;;;### (autoloads nil "easymenu" "lisp/easymenu.el")
138 840
139 ;;;*** 841 ;;;***
140 842
141 ;;;### (autoloads (pop-tag-mark tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file tag-complete-symbol find-tag-other-window find-tag find-tag-at-point visit-tags-table) "etags" "lisp/etags.el") 843 ;;;### (autoloads (pop-tag-mark tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file tag-complete-symbol find-tag-other-window find-tag find-tag-at-point visit-tags-table) "etags" "lisp/etags.el")
142 844
274 (define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration) 976 (define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration)
275 977
276 (defcustom font-lock-maximum-size (* 250 1024) "*If non-nil, the maximum size for buffers for fontifying.\nOnly buffers less than this can be fontified when Font Lock mode is turned on.\nIf nil, means size is irrelevant.\nIf a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),\nwhere MAJOR-MODE is a symbol or t (meaning the default). For example:\n ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576))\nmeans that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one\nmegabyte for buffers in `rmail-mode', and size is irrelevant otherwise." :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'font-lock) 978 (defcustom font-lock-maximum-size (* 250 1024) "*If non-nil, the maximum size for buffers for fontifying.\nOnly buffers less than this can be fontified when Font Lock mode is turned on.\nIf nil, means size is irrelevant.\nIf a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),\nwhere MAJOR-MODE is a symbol or t (meaning the default). For example:\n ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576))\nmeans that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one\nmegabyte for buffers in `rmail-mode', and size is irrelevant otherwise." :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'font-lock)
277 979
278 (defvar font-lock-keywords nil "\ 980 (defvar font-lock-keywords nil "\
279 A list of the keywords to highlight. 981 A list defining the keywords for `font-lock-mode' to highlight.
280 Each element should be of the form: 982
281 983 FONT-LOCK-KEYWORDS := List of FONT-LOCK-FORM's.
282 MATCHER 984
283 (MATCHER . MATCH) 985 FONT-LOCK-FORM :== MATCHER
284 (MATCHER . FACENAME) 986 | (MATCHER . MATCH)
285 (MATCHER . HIGHLIGHT) 987 | (MATCHER . FACE-FORM)
286 (MATCHER HIGHLIGHT ...) 988 | (MATCHER . HIGHLIGHT)
287 (eval . FORM) 989 | (MATCHER HIGHLIGHT ...)
288 990 | (eval . FORM)
289 where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. 991
290 992 MATCHER :== A string containing a regexp.
291 FORM is an expression, whose value should be a keyword element, 993 | A variable containing a regexp to search for.
292 evaluated when the keyword is (first) used in a buffer. This feature 994 | A function to call to make the search.
293 can be used to provide a keyword that can only be generated when Font 995 It is called with one arg, the limit of the search,
294 Lock mode is actually turned on. 996 and should leave MATCH results in the XEmacs global
997 match data.
998
999 MATCH :== An integer match subexpression number from MATCHER.
1000
1001 FACE-FORM :== The symbol naming a defined face.
1002 | Expression whos value is the face name to use. If you
1003 want FACE-FORM to be a symbol that evaluates to a face,
1004 use a form like \"(progn sym)\".
1005
1006 HIGHLIGHT :== MATCH-HIGHLIGHT
1007 | MATCH-ANCHORED
1008
1009 FORM :== Expression returning a FONT-LOCK-FORM, evaluated when
1010 the FONT-LOCK-FORM is first used in a buffer. This
1011 feature can be used to provide a FONT-LOCK-FORM that
1012 can only be generated when Font Lock mode is actually
1013 turned on.
1014
1015 MATCH-HIGHLIGHT :== (MATCH FACE-FORM OVERRIDE LAXMATCH)
1016
1017 OVERRIDE :== t - overwrite existing fontification
1018 | 'keep - only parts not already fontified are
1019 highlighted.
1020 | 'prepend - merge faces, this fontification has
1021 precedence over existing
1022 | 'append - merge faces, existing fontification has
1023 precedence over
1024 this face.
1025
1026 LAXMATCH :== If non-nil, no error is signalled if there is no MATCH
1027 in MATCHER.
1028
1029 MATCH-ANCHORED :== (ANCHOR-MATCHER PRE-MATCH-FORM \\
1030 POST-MATCH-FORM MATCH-HIGHLIGHT ...)
1031
1032 ANCHOR-MATCHER :== Like a MATCHER, except that the limit of the search
1033 defaults to the end of the line after PRE-MATCH-FORM
1034 is evaluated. However, if PRE-MATCH-FORM returns a
1035 position greater than the end of the line, that
1036 position is used as the limit of the search. It is
1037 generally a bad idea to return a position greater than
1038 the end of the line, i.e., cause the ANCHOR-MATCHER
1039 search to span lines.
1040
1041 PRE-MATCH-FORM :== Evaluated before the ANCHOR-MATCHER is used, therefore
1042 can be used to initialize before, ANCHOR-MATCHER is
1043 used. Typically, PRE-MATCH-FORM is used to move to
1044 some position relative to the original MATCHER, before
1045 starting with the ANCHOR-MATCHER.
1046
1047 POST-MATCH-FORM :== Like PRE-MATCH-FORM, but used to clean up after the
1048 ANCHOR-MATCHER. It might be used to move, before
1049 resuming with MATCH-ANCHORED's parent's MATCHER.
1050
1051 For example, an element of the first form highlights (if not already highlighted):
1052
1053 \"\\\\<foo\\\\>\" Discrete occurrences of \"foo\" in the value
1054 of the variable `font-lock-keyword-face'.
1055
1056 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of
1057 \"fubar\" in the value of
1058 `font-lock-keyword-face'.
1059
1060 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of
1061 `fubar-face'.
1062
1063 (\"foo\\\\|bar\" 0 foo-bar-face t) Occurrences of either \"foo\" or \"bar\" in the
1064 value of `foo-bar-face', even if already
1065 highlighted.
1066
1067 (fubar-match 1 fubar-face) The first subexpression within all
1068 occurrences of whatever the function
1069 `fubar-match' finds and matches in the value
1070 of `fubar-face'.
1071
1072 (\"\\\\<anchor\\\\>\" (0 anchor-face) (\"\\\\<item\\\\>\" nil nil (0 item-face)))
1073 -------------- --------------- ------------ --- --- -------------
1074 | | | | | |
1075 MATCHER | ANCHOR-MATCHER | +------+ MATCH-HIGHLIGHT
1076 MATCH-HIGHLIGHT PRE-MATCH-FORM |
1077 POST-MATCH-FORM
1078
1079 Discrete occurrences of \"anchor\" in the value of `anchor-face', and
1080 subsequent discrete occurrences of \"item\" (on the same line) in the value
1081 of `item-face'. (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil.
1082 Therefore \"item\" is initially searched for starting from the end of the
1083 match of \"anchor\", and searching for subsequent instance of \"anchor\"
1084 resumes from where searching for \"item\" concluded.)
295 1085
296 For highlighting single items, typically only MATCH-HIGHLIGHT is required. 1086 For highlighting single items, typically only MATCH-HIGHLIGHT is required.
297 However, if an item or (typically) items is to be highlighted following the 1087 However, if an item or (typically) several items are to be highlighted
298 instance of another item (the anchor) then MATCH-ANCHORED may be required. 1088 following the instance of another item (the anchor) then MATCH-ANCHORED may be
299 1089 required.
300 MATCH-HIGHLIGHT should be of the form:
301
302 (MATCH FACENAME OVERRIDE LAXMATCH)
303
304 Where MATCHER can be either the regexp to search for, a variable
305 containing the regexp to search for, or the function to call to make
306 the search (called with one argument, the limit of the search). MATCH
307 is the subexpression of MATCHER to be highlighted. FACENAME is either
308 a symbol naming a face, or an expression whose value is the face name
309 to use. If you want FACENAME to be a symbol that evaluates to a face,
310 use a form like \"(progn sym)\".
311
312 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may
313 be overwritten. If `keep', only parts not already fontified are highlighted.
314 If `prepend' or `append', existing fontification is merged with the new, in
315 which the new or existing fontification, respectively, takes precedence.
316 If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER.
317
318 For example, an element of the form highlights (if not already highlighted):
319
320 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the
321 variable `font-lock-keyword-face'.
322 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in
323 the value of `font-lock-keyword-face'.
324 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'.
325 (\"foo\\\\|bar\" 0 foo-bar-face t)
326 Occurrences of either \"foo\" or \"bar\" in the value
327 of `foo-bar-face', even if already highlighted.
328
329 MATCH-ANCHORED should be of the form:
330
331 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
332
333 Where MATCHER is as for MATCH-HIGHLIGHT with one exception; see below.
334 PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after
335 the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be
336 used to initialize before, and cleanup after, MATCHER is used. Typically,
337 PRE-MATCH-FORM is used to move to some position relative to the original
338 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might
339 be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER.
340
341 For example, an element of the form highlights (if not already highlighted):
342
343 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
344
345 Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
346 discrete occurrences of \"item\" (on the same line) in the value of `item-face'.
347 (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is
348 initially searched for starting from the end of the match of \"anchor\", and
349 searching for subsequent instance of \"anchor\" resumes from where searching
350 for \"item\" concluded.)
351
352 The above-mentioned exception is as follows. The limit of the MATCHER search
353 defaults to the end of the line after PRE-MATCH-FORM is evaluated.
354 However, if PRE-MATCH-FORM returns a position greater than the position after
355 PRE-MATCH-FORM is evaluated, that position is used as the limit of the search.
356 It is generally a bad idea to return a position greater than the end of the
357 line, i.e., cause the MATCHER search to span lines.
358
359 Note that the MATCH-ANCHORED feature is experimental; in the future, we may
360 replace it with other ways of providing this functionality.
361 1090
362 These regular expressions should not match text which spans lines. While 1091 These regular expressions should not match text which spans lines. While
363 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating 1092 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating when you
364 when you edit the buffer does not, since it considers text one line at a time. 1093 edit the buffer does not, since it considers text one line at a time.
365 1094
366 Be very careful composing regexps for this list; 1095 Be very careful composing regexps for this list; the wrong pattern can
367 the wrong pattern can dramatically slow things down!") 1096 dramatically slow things down!
1097 ")
368 1098
369 (make-variable-buffer-local 'font-lock-keywords) 1099 (make-variable-buffer-local 'font-lock-keywords)
370 1100
371 (defcustom font-lock-mode nil "Non nil means `font-lock-mode' is on" :group 'font-lock :type 'boolean :initialize 'custom-initialize-default :require 'font-lock :set (function (lambda (var val) (font-lock-mode (or val 0))))) 1101 (defcustom font-lock-mode nil "Non nil means `font-lock-mode' is on" :group 'font-lock :type 'boolean :initialize 'custom-initialize-default :require 'font-lock :set (function (lambda (var val) (font-lock-mode (or val 0)))))
372 1102
422 This can take a while for large buffers." t nil) 1152 This can take a while for large buffers." t nil)
423 1153
424 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil) 1154 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil)
425 1155
426 (add-minor-mode 'font-lock-mode " Font") 1156 (add-minor-mode 'font-lock-mode " Font")
1157
1158 ;;;***
1159
1160 ;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "font-menu" "lisp/font-menu.el")
1161
1162 (defcustom font-menu-ignore-scaled-fonts nil "*If non-nil, then the font menu will try to show only bitmap fonts." :type 'boolean :group 'font-menu)
1163
1164 (defcustom font-menu-this-frame-only-p nil "*If non-nil, then changing the default font from the font menu will only\naffect one frame instead of all frames." :type 'boolean :group 'font-menu)
1165
1166 (fset 'install-font-menus 'reset-device-font-menus)
1167
1168 (autoload 'reset-device-font-menus "font-menu" "\
1169 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
1170 This is run the first time that a font-menu is needed for each device.
1171 If you don't like the lazy invocation of this function, you can add it to
1172 `create-device-hook' and that will make the font menus respond more quickly
1173 when they are selected for the first time. If you add fonts to your system,
1174 or if you change your font path, you can call this to re-initialize the menus." nil nil)
1175
1176 (autoload 'font-menu-family-constructor "font-menu" nil nil nil)
1177
1178 (autoload 'font-menu-size-constructor "font-menu" nil nil nil)
1179
1180 (autoload 'font-menu-weight-constructor "font-menu" nil nil nil)
1181
1182 ;;;***
1183
1184 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp/font.el")
1185
1186 (autoload 'font-create-object "font" nil nil nil)
1187
1188 (autoload 'font-default-font-for-device "font" nil nil nil)
1189
1190 (autoload 'font-default-object-for-device "font" nil nil nil)
1191
1192 (autoload 'font-default-family-for-device "font" nil nil nil)
1193
1194 (autoload 'font-default-registry-for-device "font" nil nil nil)
1195
1196 (autoload 'font-default-encoding-for-device "font" nil nil nil)
1197
1198 (autoload 'font-default-size-for-device "font" nil nil nil)
1199
1200 (autoload 'x-font-build-cache "font" nil nil nil)
427 1201
428 ;;;*** 1202 ;;;***
429 1203
430 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el") 1204 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el")
431 1205
1131 ;;;### (autoloads (x-win-init-xfree86) "x-win-xfree86" "lisp/x-win-xfree86.el") 1905 ;;;### (autoloads (x-win-init-xfree86) "x-win-xfree86" "lisp/x-win-xfree86.el")
1132 1906
1133 (autoload 'x-win-init-xfree86 "x-win-xfree86" nil nil nil) 1907 (autoload 'x-win-init-xfree86 "x-win-xfree86" nil nil nil)
1134 1908
1135 ;;;*** 1909 ;;;***
1136
1137 ;;;### (autoloads nil "abbrev" "lisp\\abbrev.el")
1138
1139 ;;;***
1140
1141 ;;;### (autoloads (about-xemacs) "about" "lisp\\about.el")
1142
1143 (autoload 'about-xemacs "about" "\
1144 Describe the True Editor and its minions." t nil)
1145
1146 ;;;***
1147
1148 ;;;### (autoloads (set-modified-alist modify-alist remove-alist set-alist del-alist put-alist vassoc) "alist" "lisp\\alist.el")
1149
1150 (autoload 'vassoc "alist" "\
1151 Search VALIST for a vector whose first element is equal to KEY.
1152 See also `assoc'." nil nil)
1153
1154 (autoload 'put-alist "alist" "\
1155 Modify ALIST to set VALUE to ITEM.
1156 If there is a pair whose car is ITEM, replace its cdr by VALUE.
1157 If there is not such pair, create new pair (ITEM . VALUE) and
1158 return new alist whose car is the new pair and cdr is ALIST.
1159 [tomo's ELIS like function]" nil nil)
1160
1161 (autoload 'del-alist "alist" "\
1162 If there is a pair whose key is ITEM, delete it from ALIST.
1163 [tomo's ELIS emulating function]" nil nil)
1164
1165 (autoload 'set-alist "alist" "\
1166 Modify a alist indicated by SYMBOL to set VALUE to ITEM." nil nil)
1167
1168 (autoload 'remove-alist "alist" "\
1169 Remove ITEM from the alist indicated by SYMBOL." nil nil)
1170
1171 (autoload 'modify-alist "alist" "\
1172 Modify alist DEFAULT into alist MODIFIER." nil nil)
1173
1174 (autoload 'set-modified-alist "alist" "\
1175 Modify a value of a symbol SYM into alist MODIFIER.
1176 The symbol SYM should be alist. If it is not bound,
1177 its value regard as nil." nil nil)
1178
1179 ;;;***
1180
1181 ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "lisp\\apropos.el")
1182
1183 (fset 'command-apropos 'apropos-command)
1184
1185 (autoload 'apropos-command "apropos" "\
1186 Shows commands (interactively callable functions) that match REGEXP.
1187 With optional prefix ARG or if `apropos-do-all' is non-nil, also show
1188 variables." t nil)
1189
1190 (autoload 'apropos "apropos" "\
1191 Show all bound symbols whose names match REGEXP.
1192 With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound
1193 symbols and key bindings, which is a little more time-consuming.
1194 Returns list of symbols and documentation found." t nil)
1195
1196 (autoload 'apropos-value "apropos" "\
1197 Show all symbols whose value's printed image matches REGEXP.
1198 With optional prefix ARG or if `apropos-do-all' is non-nil, also looks
1199 at the function and at the names and values of properties.
1200 Returns list of symbols and values found." t nil)
1201
1202 (autoload 'apropos-documentation "apropos" "\
1203 Show symbols whose documentation contain matches for REGEXP.
1204 With optional prefix ARG or if `apropos-do-all' is non-nil, also use
1205 documentation that is not stored in the documentation file and show key
1206 bindings.
1207 Returns list of symbols and documentation found." t nil)
1208
1209 ;;;***
1210
1211 ;;;### (autoloads nil "buff-menu" "lisp\\buff-menu.el")
1212
1213 (defvar list-buffers-directory nil)
1214
1215 (make-variable-buffer-local 'list-buffers-directory)
1216
1217 ;;;***
1218
1219 ;;;### (autoloads (compiler-macroexpand define-compiler-macro ignore-file-errors ignore-errors assert check-type typep deftype cl-struct-setf-expander defstruct define-modify-macro callf2 callf letf* letf rotatef shiftf remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method declare the locally multiple-value-setq multiple-value-bind lexical-let* lexical-let symbol-macrolet macrolet labels flet progv psetq do-all-symbols do-symbols dotimes dolist do* do loop return-from return block etypecase typecase ecase case load-time-value eval-when destructuring-bind function* defmacro* defun* cl-compile-time-init) "cl-macs" "lisp\\cl-macs.el")
1220
1221 (autoload 'cl-compile-time-init "cl-macs" nil nil nil)
1222
1223 (autoload 'defun* "cl-macs" "\
1224 (defun* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function.
1225 Like normal `defun', except ARGLIST allows full Common Lisp conventions,
1226 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
1227
1228 (autoload 'defmacro* "cl-macs" "\
1229 (defmacro* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a macro.
1230 Like normal `defmacro', except ARGLIST allows full Common Lisp conventions,
1231 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
1232
1233 (autoload 'function* "cl-macs" "\
1234 (function* SYMBOL-OR-LAMBDA): introduce a function.
1235 Like normal `function', except that if argument is a lambda form, its
1236 ARGLIST allows full Common Lisp conventions." nil 'macro)
1237
1238 (autoload 'destructuring-bind "cl-macs" nil nil 'macro)
1239
1240 (autoload 'eval-when "cl-macs" "\
1241 (eval-when (WHEN...) BODY...): control when BODY is evaluated.
1242 If `compile' is in WHEN, BODY is evaluated when compiled at top-level.
1243 If `load' is in WHEN, BODY is evaluated when loaded after top-level compile.
1244 If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level." nil 'macro)
1245
1246 (autoload 'load-time-value "cl-macs" "\
1247 Like `progn', but evaluates the body at load time.
1248 The result of the body appears to the compiler as a quoted constant." nil 'macro)
1249
1250 (autoload 'case "cl-macs" "\
1251 (case EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
1252 Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared
1253 against each key in each KEYLIST; the corresponding BODY is evaluated.
1254 If no clause succeeds, case returns nil. A single atom may be used in
1255 place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is
1256 allowed only in the final clause, and matches if no other keys match.
1257 Key values are compared by `eql'." nil 'macro)
1258
1259 (autoload 'ecase "cl-macs" "\
1260 (ecase EXPR CLAUSES...): like `case', but error if no case fits.
1261 `otherwise'-clauses are not allowed." nil 'macro)
1262
1263 (autoload 'typecase "cl-macs" "\
1264 (typecase EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
1265 Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it
1266 satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds,
1267 typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the
1268 final clause, and matches if no other keys match." nil 'macro)
1269
1270 (autoload 'etypecase "cl-macs" "\
1271 (etypecase EXPR CLAUSES...): like `typecase', but error if no case fits.
1272 `otherwise'-clauses are not allowed." nil 'macro)
1273
1274 (autoload 'block "cl-macs" "\
1275 (block NAME BODY...): define a lexically-scoped block named NAME.
1276 NAME may be any symbol. Code inside the BODY forms can call `return-from'
1277 to jump prematurely out of the block. This differs from `catch' and `throw'
1278 in two respects: First, the NAME is an unevaluated symbol rather than a
1279 quoted symbol or other form; and second, NAME is lexically rather than
1280 dynamically scoped: Only references to it within BODY will work. These
1281 references may appear inside macro expansions, but not inside functions
1282 called from BODY." nil 'macro)
1283
1284 (autoload 'return "cl-macs" "\
1285 (return [RESULT]): return from the block named nil.
1286 This is equivalent to `(return-from nil RESULT)'." nil 'macro)
1287
1288 (autoload 'return-from "cl-macs" "\
1289 (return-from NAME [RESULT]): return from the block named NAME.
1290 This jumps out to the innermost enclosing `(block NAME ...)' form,
1291 returning RESULT from that form (or nil if RESULT is omitted).
1292 This is compatible with Common Lisp, but note that `defun' and
1293 `defmacro' do not create implicit blocks as they do in Common Lisp." nil 'macro)
1294
1295 (autoload 'loop "cl-macs" "\
1296 (loop CLAUSE...): The Common Lisp `loop' macro.
1297 Valid clauses are:
1298 for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM,
1299 for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR,
1300 for VAR across ARRAY, repeat NUM, with VAR = INIT, while COND, until COND,
1301 always COND, never COND, thereis COND, collect EXPR into VAR,
1302 append EXPR into VAR, nconc EXPR into VAR, sum EXPR into VAR,
1303 count EXPR into VAR, maximize EXPR into VAR, minimize EXPR into VAR,
1304 if COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
1305 unless COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
1306 do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR,
1307 finally return EXPR, named NAME." nil 'macro)
1308
1309 (autoload 'do "cl-macs" "\
1310 The Common Lisp `do' loop.
1311 Format is: (do ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
1312
1313 (autoload 'do* "cl-macs" "\
1314 The Common Lisp `do*' loop.
1315 Format is: (do* ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
1316
1317 (autoload 'dolist "cl-macs" "\
1318 (dolist (VAR LIST [RESULT]) BODY...): loop over a list.
1319 Evaluate BODY with VAR bound to each `car' from LIST, in turn.
1320 Then evaluate RESULT to get return value, default nil." nil 'macro)
1321
1322 (autoload 'dotimes "cl-macs" "\
1323 (dotimes (VAR COUNT [RESULT]) BODY...): loop a certain number of times.
1324 Evaluate BODY with VAR bound to successive integers from 0, inclusive,
1325 to COUNT, exclusive. Then evaluate RESULT to get return value, default
1326 nil." nil 'macro)
1327
1328 (autoload 'do-symbols "cl-macs" "\
1329 (dosymbols (VAR [OBARRAY [RESULT]]) BODY...): loop over all symbols.
1330 Evaluate BODY with VAR bound to each interned symbol, or to each symbol
1331 from OBARRAY." nil 'macro)
1332
1333 (autoload 'do-all-symbols "cl-macs" nil nil 'macro)
1334
1335 (autoload 'psetq "cl-macs" "\
1336 (psetq SYM VAL SYM VAL ...): set SYMs to the values VALs in parallel.
1337 This is like `setq', except that all VAL forms are evaluated (in order)
1338 before assigning any symbols SYM to the corresponding values." nil 'macro)
1339
1340 (autoload 'progv "cl-macs" "\
1341 (progv SYMBOLS VALUES BODY...): bind SYMBOLS to VALUES dynamically in BODY.
1342 The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists.
1343 Each SYMBOL in the first list is bound to the corresponding VALUE in the
1344 second list (or made unbound if VALUES is shorter than SYMBOLS); then the
1345 BODY forms are executed and their result is returned. This is much like
1346 a `let' form, except that the list of symbols can be computed at run-time." nil 'macro)
1347
1348 (autoload 'flet "cl-macs" "\
1349 (flet ((FUNC ARGLIST BODY...) ...) FORM...): make temporary function defns.
1350 This is an analogue of `let' that operates on the function cell of FUNC
1351 rather than its value cell. The FORMs are evaluated with the specified
1352 function definitions in place, then the definitions are undone (the FUNCs
1353 go back to their previous definitions, or lack thereof)." nil 'macro)
1354
1355 (autoload 'labels "cl-macs" "\
1356 (labels ((FUNC ARGLIST BODY...) ...) FORM...): make temporary func bindings.
1357 This is like `flet', except the bindings are lexical instead of dynamic.
1358 Unlike `flet', this macro is fully compliant with the Common Lisp standard." nil 'macro)
1359
1360 (autoload 'macrolet "cl-macs" "\
1361 (macrolet ((NAME ARGLIST BODY...) ...) FORM...): make temporary macro defns.
1362 This is like `flet', but for macros instead of functions." nil 'macro)
1363
1364 (autoload 'symbol-macrolet "cl-macs" "\
1365 (symbol-macrolet ((NAME EXPANSION) ...) FORM...): make symbol macro defns.
1366 Within the body FORMs, references to the variable NAME will be replaced
1367 by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...)." nil 'macro)
1368
1369 (autoload 'lexical-let "cl-macs" "\
1370 (lexical-let BINDINGS BODY...): like `let', but lexically scoped.
1371 The main visible difference is that lambdas inside BODY will create
1372 lexical closures as in Common Lisp." nil 'macro)
1373
1374 (autoload 'lexical-let* "cl-macs" "\
1375 (lexical-let* BINDINGS BODY...): like `let*', but lexically scoped.
1376 The main visible difference is that lambdas inside BODY will create
1377 lexical closures as in Common Lisp." nil 'macro)
1378
1379 (autoload 'multiple-value-bind "cl-macs" "\
1380 (multiple-value-bind (SYM SYM...) FORM BODY): collect multiple return values.
1381 FORM must return a list; the BODY is then executed with the first N elements
1382 of this list bound (`let'-style) to each of the symbols SYM in turn. This
1383 is analogous to the Common Lisp `multiple-value-bind' macro, using lists to
1384 simulate true multiple return values. For compatibility, (values A B C) is
1385 a synonym for (list A B C)." nil 'macro)
1386
1387 (autoload 'multiple-value-setq "cl-macs" "\
1388 (multiple-value-setq (SYM SYM...) FORM): collect multiple return values.
1389 FORM must return a list; the first N elements of this list are stored in
1390 each of the symbols SYM in turn. This is analogous to the Common Lisp
1391 `multiple-value-setq' macro, using lists to simulate true multiple return
1392 values. For compatibility, (values A B C) is a synonym for (list A B C)." nil 'macro)
1393
1394 (autoload 'locally "cl-macs" nil nil 'macro)
1395
1396 (autoload 'the "cl-macs" nil nil 'macro)
1397
1398 (autoload 'declare "cl-macs" nil nil 'macro)
1399
1400 (autoload 'define-setf-method "cl-macs" "\
1401 (define-setf-method NAME ARGLIST BODY...): define a `setf' method.
1402 This method shows how to handle `setf's to places of the form (NAME ARGS...).
1403 The argument forms ARGS are bound according to ARGLIST, as if NAME were
1404 going to be expanded as a macro, then the BODY forms are executed and must
1405 return a list of five elements: a temporary-variables list, a value-forms
1406 list, a store-variables list (of length one), a store-form, and an access-
1407 form. See `defsetf' for a simpler way to define most setf-methods." nil 'macro)
1408
1409 (autoload 'defsetf "cl-macs" "\
1410 (defsetf NAME FUNC): define a `setf' method.
1411 This macro is an easy-to-use substitute for `define-setf-method' that works
1412 well for simple place forms. In the simple `defsetf' form, `setf's of
1413 the form (setf (NAME ARGS...) VAL) are transformed to function or macro
1414 calls of the form (FUNC ARGS... VAL). Example: (defsetf aref aset).
1415 Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
1416 Here, the above `setf' call is expanded by binding the argument forms ARGS
1417 according to ARGLIST, binding the value form VAL to STORE, then executing
1418 BODY, which must return a Lisp form that does the necessary `setf' operation.
1419 Actually, ARGLIST and STORE may be bound to temporary variables which are
1420 introduced automatically to preserve proper execution order of the arguments.
1421 Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))." nil 'macro)
1422
1423 (autoload 'get-setf-method "cl-macs" "\
1424 Return a list of five values describing the setf-method for PLACE.
1425 PLACE may be any Lisp form which can appear as the PLACE argument to
1426 a macro like `setf' or `incf'." nil nil)
1427
1428 (autoload 'setf "cl-macs" "\
1429 (setf PLACE VAL PLACE VAL ...): set each PLACE to the value of its VAL.
1430 This is a generalized version of `setq'; the PLACEs may be symbolic
1431 references such as (car x) or (aref x i), as well as plain symbols.
1432 For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
1433 The return value is the last VAL in the list." nil 'macro)
1434
1435 (autoload 'psetf "cl-macs" "\
1436 (psetf PLACE VAL PLACE VAL ...): set PLACEs to the values VALs in parallel.
1437 This is like `setf', except that all VAL forms are evaluated (in order)
1438 before assigning any PLACEs to the corresponding values." nil 'macro)
1439
1440 (autoload 'cl-do-pop "cl-macs" nil nil nil)
1441
1442 (autoload 'remf "cl-macs" "\
1443 (remf PLACE TAG): remove TAG from property list PLACE.
1444 PLACE may be a symbol, or any generalized variable allowed by `setf'.
1445 The form returns true if TAG was found and removed, nil otherwise." nil 'macro)
1446
1447 (autoload 'shiftf "cl-macs" "\
1448 (shiftf PLACE PLACE... VAL): shift left among PLACEs.
1449 Example: (shiftf A B C) sets A to B, B to C, and returns the old A.
1450 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
1451
1452 (autoload 'rotatef "cl-macs" "\
1453 (rotatef PLACE...): rotate left among PLACEs.
1454 Example: (rotatef A B C) sets A to B, B to C, and C to A. It returns nil.
1455 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
1456
1457 (autoload 'letf "cl-macs" "\
1458 (letf ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
1459 This is the analogue of `let', but with generalized variables (in the
1460 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
1461 VALUE, then the BODY forms are executed. On exit, either normally or
1462 because of a `throw' or error, the PLACEs are set back to their original
1463 values. Note that this macro is *not* available in Common Lisp.
1464 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
1465 the PLACE is not modified before executing BODY." nil 'macro)
1466
1467 (autoload 'letf* "cl-macs" "\
1468 (letf* ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
1469 This is the analogue of `let*', but with generalized variables (in the
1470 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
1471 VALUE, then the BODY forms are executed. On exit, either normally or
1472 because of a `throw' or error, the PLACEs are set back to their original
1473 values. Note that this macro is *not* available in Common Lisp.
1474 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
1475 the PLACE is not modified before executing BODY." nil 'macro)
1476
1477 (autoload 'callf "cl-macs" "\
1478 (callf FUNC PLACE ARGS...): set PLACE to (FUNC PLACE ARGS...).
1479 FUNC should be an unquoted function name. PLACE may be a symbol,
1480 or any generalized variable allowed by `setf'." nil 'macro)
1481
1482 (autoload 'callf2 "cl-macs" "\
1483 (callf2 FUNC ARG1 PLACE ARGS...): set PLACE to (FUNC ARG1 PLACE ARGS...).
1484 Like `callf', but PLACE is the second argument of FUNC, not the first." nil 'macro)
1485
1486 (autoload 'define-modify-macro "cl-macs" "\
1487 (define-modify-macro NAME ARGLIST FUNC): define a `setf'-like modify macro.
1488 If NAME is called, it combines its PLACE argument with the other arguments
1489 from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)" nil 'macro)
1490
1491 (autoload 'defstruct "cl-macs" "\
1492 (defstruct (NAME OPTIONS...) (SLOT SLOT-OPTS...)...): define a struct type.
1493 This macro defines a new Lisp data type called NAME, which contains data
1494 stored in SLOTs. This defines a `make-NAME' constructor, a `copy-NAME'
1495 copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors." nil 'macro)
1496
1497 (autoload 'cl-struct-setf-expander "cl-macs" nil nil nil)
1498
1499 (autoload 'deftype "cl-macs" "\
1500 (deftype NAME ARGLIST BODY...): define NAME as a new data type.
1501 The type name can then be used in `typecase', `check-type', etc." nil 'macro)
1502
1503 (autoload 'typep "cl-macs" "\
1504 Check that OBJECT is of type TYPE.
1505 TYPE is a Common Lisp-style type specifier." nil nil)
1506
1507 (autoload 'check-type "cl-macs" "\
1508 Verify that FORM is of type TYPE; signal an error if not.
1509 STRING is an optional description of the desired type." nil 'macro)
1510
1511 (autoload 'assert "cl-macs" "\
1512 Verify that FORM returns non-nil; signal an error if not.
1513 Second arg SHOW-ARGS means to include arguments of FORM in message.
1514 Other args STRING and ARGS... are arguments to be passed to `error'.
1515 They are not evaluated unless the assertion fails. If STRING is
1516 omitted, a default message listing FORM itself is used." nil 'macro)
1517
1518 (autoload 'ignore-errors "cl-macs" "\
1519 Execute FORMS; if an error occurs, return nil.
1520 Otherwise, return result of last FORM." nil 'macro)
1521
1522 (autoload 'ignore-file-errors "cl-macs" "\
1523 Execute FORMS; if an error of type `file-error' occurs, return nil.
1524 Otherwise, return result of last FORM." nil 'macro)
1525
1526 (autoload 'define-compiler-macro "cl-macs" "\
1527 (define-compiler-macro FUNC ARGLIST BODY...): Define a compiler-only macro.
1528 This is like `defmacro', but macro expansion occurs only if the call to
1529 FUNC is compiled (i.e., not interpreted). Compiler macros should be used
1530 for optimizing the way calls to FUNC are compiled; the form returned by
1531 BODY should do the same thing as a call to the normal function called
1532 FUNC, though possibly more efficiently. Note that, like regular macros,
1533 compiler macros are expanded repeatedly until no further expansions are
1534 possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
1535 original function call alone by declaring an initial `&whole foo' parameter
1536 and then returning foo." nil 'macro)
1537
1538 (autoload 'compiler-macroexpand "cl-macs" nil nil nil)
1539
1540 ;;;***
1541
1542 ;;;### (autoloads (batch-remove-old-elc) "cleantree" "lisp\\cleantree.el")
1543
1544 (autoload 'batch-remove-old-elc "cleantree" nil nil nil)
1545
1546 ;;;***
1547
1548 ;;;### (autoloads (config-value config-value-hash-table) "config" "lisp\\config.el")
1549
1550 (autoload 'config-value-hash-table "config" "\
1551 Return hash table of configuration parameters and their values." nil nil)
1552
1553 (autoload 'config-value "config" "\
1554 Return the value of the configuration parameter CONFIG_SYMBOL." nil nil)
1555
1556 ;;;***
1557
1558 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp\\cus-dep.el")
1559
1560 (autoload 'Custom-make-dependencies "cus-dep" "\
1561 Extract custom dependencies from .el files in SUBDIRS.
1562 SUBDIRS is a list of directories. If it is nil, the command-line
1563 arguments are used. If it is a string, only that directory is
1564 processed. This function is especially useful in batch mode.
1565
1566 Batch usage: xemacs -batch -l cus-dep.el -f Custom-make-dependencies DIRS" t nil)
1567
1568 ;;;***
1569
1570 ;;;### (autoloads (customize-menu-create custom-menu-create custom-save-all customize-save-customized customize-browse custom-buffer-create-other-window custom-buffer-create customize-apropos-groups customize-apropos-faces customize-apropos-options customize-apropos customize-saved customize-customized customize-face-other-window customize-face customize-option-other-window customize-changed-options customize-variable customize-other-window customize customize-save-variable customize-set-variable customize-set-value) "cus-edit" "lisp\\cus-edit.el")
1571
1572 (autoload 'customize-set-value "cus-edit" "\
1573 Set VARIABLE to VALUE. VALUE is a Lisp object.
1574
1575 If VARIABLE has a `variable-interactive' property, that is used as if
1576 it were the arg to `interactive' (which see) to interactively read the value.
1577
1578 If VARIABLE has a `custom-type' property, it must be a widget and the
1579 `:prompt-value' property of that widget will be used for reading the value.
1580
1581 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
1582
1583 (autoload 'customize-set-variable "cus-edit" "\
1584 Set the default for VARIABLE to VALUE. VALUE is a Lisp object.
1585
1586 If VARIABLE has a `custom-set' property, that is used for setting
1587 VARIABLE, otherwise `set-default' is used.
1588
1589 The `customized-value' property of the VARIABLE will be set to a list
1590 with a quoted VALUE as its sole list member.
1591
1592 If VARIABLE has a `variable-interactive' property, that is used as if
1593 it were the arg to `interactive' (which see) to interactively read the value.
1594
1595 If VARIABLE has a `custom-type' property, it must be a widget and the
1596 `:prompt-value' property of that widget will be used for reading the value.
1597
1598 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
1599
1600 (autoload 'customize-save-variable "cus-edit" "\
1601 Set the default for VARIABLE to VALUE, and save it for future sessions.
1602 If VARIABLE has a `custom-set' property, that is used for setting
1603 VARIABLE, otherwise `set-default' is used.
1604
1605 The `customized-value' property of the VARIABLE will be set to a list
1606 with a quoted VALUE as its sole list member.
1607
1608 If VARIABLE has a `variable-interactive' property, that is used as if
1609 it were the arg to `interactive' (which see) to interactively read the value.
1610
1611 If VARIABLE has a `custom-type' property, it must be a widget and the
1612 `:prompt-value' property of that widget will be used for reading the value.
1613
1614 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
1615
1616 (autoload 'customize "cus-edit" "\
1617 Select a customization buffer which you can use to set user options.
1618 User options are structured into \"groups\".
1619 The default group is `Emacs'." t nil)
1620
1621 (defalias 'customize-group 'customize)
1622
1623 (autoload 'customize-other-window "cus-edit" "\
1624 Customize SYMBOL, which must be a customization group." t nil)
1625
1626 (defalias 'customize-group-other-window 'customize-other-window)
1627
1628 (defalias 'customize-option 'customize-variable)
1629
1630 (autoload 'customize-variable "cus-edit" "\
1631 Customize SYMBOL, which must be a user option variable." t nil)
1632
1633 (autoload 'customize-changed-options "cus-edit" "\
1634 Customize all user option variables whose default values changed recently.
1635 This means, in other words, variables defined with a `:version' keyword." t nil)
1636
1637 (defalias 'customize-variable-other-window 'customize-option-other-window)
1638
1639 (autoload 'customize-option-other-window "cus-edit" "\
1640 Customize SYMBOL, which must be a user option variable.
1641 Show the buffer in another window, but don't select it." t nil)
1642
1643 (autoload 'customize-face "cus-edit" "\
1644 Customize SYMBOL, which should be a face name or nil.
1645 If SYMBOL is nil, customize all faces." t nil)
1646
1647 (autoload 'customize-face-other-window "cus-edit" "\
1648 Show customization buffer for FACE in other window." t nil)
1649
1650 (autoload 'customize-customized "cus-edit" "\
1651 Customize all user options set since the last save in this session." t nil)
1652
1653 (autoload 'customize-saved "cus-edit" "\
1654 Customize all already saved user options." t nil)
1655
1656 (autoload 'customize-apropos "cus-edit" "\
1657 Customize all user options matching REGEXP.
1658 If ALL is `options', include only options.
1659 If ALL is `faces', include only faces.
1660 If ALL is `groups', include only groups.
1661 If ALL is t (interactively, with prefix arg), include options which are not
1662 user-settable, as well as faces and groups." t nil)
1663
1664 (autoload 'customize-apropos-options "cus-edit" "\
1665 Customize all user options matching REGEXP.
1666 With prefix arg, include options which are not user-settable." t nil)
1667
1668 (autoload 'customize-apropos-faces "cus-edit" "\
1669 Customize all user faces matching REGEXP." t nil)
1670
1671 (autoload 'customize-apropos-groups "cus-edit" "\
1672 Customize all user groups matching REGEXP." t nil)
1673
1674 (autoload 'custom-buffer-create "cus-edit" "\
1675 Create a buffer containing OPTIONS.
1676 Optional NAME is the name of the buffer.
1677 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
1678 SYMBOL is a customization option, and WIDGET is a widget for editing
1679 that option." nil nil)
1680
1681 (autoload 'custom-buffer-create-other-window "cus-edit" "\
1682 Create a buffer containing OPTIONS.
1683 Optional NAME is the name of the buffer.
1684 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
1685 SYMBOL is a customization option, and WIDGET is a widget for editing
1686 that option." nil nil)
1687
1688 (autoload 'customize-browse "cus-edit" "\
1689 Create a tree browser for the customize hierarchy." t nil)
1690
1691 (defcustom custom-file "~/.emacs" "File used for storing customization information.\nIf you change this from the default \"~/.emacs\" you need to\nexplicitly load that file for the settings to take effect." :type 'file :group 'customize)
1692
1693 (autoload 'customize-save-customized "cus-edit" "\
1694 Save all user options which have been set in this session." t nil)
1695
1696 (autoload 'custom-save-all "cus-edit" "\
1697 Save all customizations in `custom-file'." nil nil)
1698
1699 (autoload 'custom-menu-create "cus-edit" "\
1700 Create menu for customization group SYMBOL.
1701 The menu is in a format applicable to `easy-menu-define'." nil nil)
1702
1703 (autoload 'customize-menu-create "cus-edit" "\
1704 Return a customize menu for customization group SYMBOL.
1705 If optional NAME is given, use that as the name of the menu.
1706 Otherwise the menu will be named `Customize'.
1707 The format is suitable for use with `easy-menu-define'." nil nil)
1708
1709 ;;;***
1710
1711 ;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-theme-face-value custom-theme-set-faces custom-set-faces custom-set-face-update-spec custom-declare-face) "cus-face" "lisp\\cus-face.el")
1712
1713 (autoload 'custom-declare-face "cus-face" "\
1714 Like `defface', but FACE is evaluated as a normal argument." nil nil)
1715
1716 (autoload 'custom-set-face-update-spec "cus-face" "\
1717 Customize the FACE for display types matching DISPLAY, merging
1718 in the new items from PLIST" nil nil)
1719
1720 (autoload 'custom-set-faces "cus-face" "\
1721 Initialize faces according to user preferences.
1722 This asociates the setting with the USER theme.
1723 The arguments should be a list where each entry has the form:
1724
1725 (FACE SPEC [NOW [COMMENT]])
1726
1727 SPEC will be stored as the saved value for FACE. If NOW is present
1728 and non-nil, FACE will also be created according to SPEC.
1729 COMMENT is a string comment about FACE.
1730
1731 See `defface' for the format of SPEC." nil nil)
1732
1733 (autoload 'custom-theme-set-faces "cus-face" "\
1734 Initialize faces according to settings specified by args.
1735 Records the settings as belonging to THEME.
1736
1737 See `custom-set-faces' for a description of the arguments ARGS." nil nil)
1738
1739 (autoload 'custom-theme-face-value "cus-face" "\
1740 Return spec of FACE in THEME if the THEME modifies the
1741 FACE. Nil otherwise." nil nil)
1742
1743 (autoload 'custom-theme-reset-faces "cus-face" nil nil nil)
1744
1745 (autoload 'custom-reset-faces "cus-face" "\
1746 Reset the value of the face to values previously defined.
1747 Assosiate this setting with the 'user' theme.
1748
1749 ARGS is defined as for `custom-theme-reset-faces'" nil nil)
1750
1751 ;;;***
1752
1753 ;;;### (autoloads (disassemble) "disass" "lisp\\disass.el")
1754
1755 (autoload 'disassemble "disass" "\
1756 Print disassembled code for OBJECT in (optional) BUFFER.
1757 OBJECT can be a symbol defined as a function, or a function itself
1758 \(a lambda expression or a compiled-function object).
1759 If OBJECT is not already compiled, we compile it, but do not
1760 redefine OBJECT if it is a symbol." t nil)
1761
1762 ;;;***
1763
1764 ;;;### (autoloads (standard-display-european standard-display-underline standard-display-graphic standard-display-g1 standard-display-ascii standard-display-default standard-display-8bit make-display-table describe-current-display-table) "disp-table" "lisp\\disp-table.el")
1765
1766 (autoload 'describe-current-display-table "disp-table" "\
1767 Describe the display table in use in the selected window and buffer." t nil)
1768
1769 (autoload 'make-display-table "disp-table" "\
1770 Return a new, empty display table." nil nil)
1771
1772 (autoload 'standard-display-8bit "disp-table" "\
1773 Display characters in the range L to H literally." nil nil)
1774
1775 (autoload 'standard-display-default "disp-table" "\
1776 Display characters in the range L to H using the default notation." nil nil)
1777
1778 (autoload 'standard-display-ascii "disp-table" "\
1779 Display character C using printable string S." nil nil)
1780
1781 (autoload 'standard-display-g1 "disp-table" "\
1782 Display character C as character SC in the g1 character set.
1783 This function assumes that your terminal uses the SO/SI characters;
1784 it is meaningless for an X frame." nil nil)
1785
1786 (autoload 'standard-display-graphic "disp-table" "\
1787 Display character C as character GC in graphics character set.
1788 This function assumes VT100-compatible escapes; it is meaningless for an
1789 X frame." nil nil)
1790
1791 (autoload 'standard-display-underline "disp-table" "\
1792 Display character C as character UC plus underlining." nil nil)
1793
1794 (autoload 'standard-display-european "disp-table" "\
1795 Toggle display of European characters encoded with ISO 8859.
1796 When enabled, characters in the range of 160 to 255 display not
1797 as octal escapes, but as accented characters.
1798 With prefix argument, enable European character display iff arg is positive." t nil)
1799
1800 ;;;***
1801
1802 ;;;### (autoloads nil "easymenu" "lisp\\easymenu.el")
1803
1804 ;;;***
1805
1806 ;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "font-menu" "lisp\\font-menu.el")
1807
1808 (defcustom font-menu-ignore-scaled-fonts nil "*If non-nil, then the font menu will try to show only bitmap fonts." :type 'boolean :group 'font-menu)
1809
1810 (defcustom font-menu-this-frame-only-p nil "*If non-nil, then changing the default font from the font menu will only\naffect one frame instead of all frames." :type 'boolean :group 'font-menu)
1811
1812 (fset 'install-font-menus 'reset-device-font-menus)
1813
1814 (autoload 'reset-device-font-menus "font-menu" "\
1815 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
1816 This is run the first time that a font-menu is needed for each device.
1817 If you don't like the lazy invocation of this function, you can add it to
1818 `create-device-hook' and that will make the font menus respond more quickly
1819 when they are selected for the first time. If you add fonts to your system,
1820 or if you change your font path, you can call this to re-initialize the menus." nil nil)
1821
1822 (autoload 'font-menu-family-constructor "font-menu" nil nil nil)
1823
1824 (autoload 'font-menu-size-constructor "font-menu" nil nil nil)
1825
1826 (autoload 'font-menu-weight-constructor "font-menu" nil nil nil)
1827
1828 ;;;***
1829
1830 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp\\font.el")
1831
1832 (autoload 'font-create-object "font" nil nil nil)
1833
1834 (autoload 'font-default-font-for-device "font" nil nil nil)
1835
1836 (autoload 'font-default-object-for-device "font" nil nil nil)
1837
1838 (autoload 'font-default-family-for-device "font" nil nil nil)
1839
1840 (autoload 'font-default-registry-for-device "font" nil nil nil)
1841
1842 (autoload 'font-default-encoding-for-device "font" nil nil nil)
1843
1844 (autoload 'font-default-size-for-device "font" nil nil nil)
1845
1846 (autoload 'x-font-build-cache "font" nil nil nil)
1847
1848 ;;;***
1849 1910
1850 (provide 'lisp-autoloads) 1911 (provide 'lisp-autoloads)