annotate lisp/auto-autoloads.el @ 217:d44af0c54775 r20-4b7

Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 41ff10fd062f
children 262b8bb4a523
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1 ;;; DO NOT MODIFY THIS FILE
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
2 (if (featurep 'Standard-autoloads) (error "Already loaded"))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
3
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
4 ;;;### (autoloads nil "abbrev" "lisp/abbrev.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
5
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
6 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
7
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
8 ;;;### (autoloads (about-xemacs) "about" "lisp/about.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
9
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
10 (autoload 'about-xemacs "about" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
11 Describe the True Editor and its minions." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
12
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
13 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
14
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
15 ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "lisp/apropos.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
16
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
17 (fset 'command-apropos 'apropos-command)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
18
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
19 (autoload 'apropos-command "apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
20 Shows commands (interactively callable functions) that match REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
21 With optional prefix ARG or if `apropos-do-all' is non-nil, also show
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
22 variables." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
23
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
24 (autoload 'apropos "apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
25 Show all bound symbols whose names match REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
26 With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
27 symbols and key bindings, which is a little more time-consuming.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
28 Returns list of symbols and documentation found." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
29
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
30 (autoload 'apropos-value "apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
31 Show all symbols whose value's printed image matches REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
32 With optional prefix ARG or if `apropos-do-all' is non-nil, also looks
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
33 at the function and at the names and values of properties.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
34 Returns list of symbols and values found." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
35
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
36 (autoload 'apropos-documentation "apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
37 Show symbols whose documentation contain matches for REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
38 With optional prefix ARG or if `apropos-do-all' is non-nil, also use
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
39 documentation that is not stored in the documentation file and show key
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
40 bindings.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
41 Returns list of symbols and documentation found." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
42
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
43 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
44
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
45 ;;;### (autoloads (batch-update-directory batch-update-autoloads update-autoloads-from-directory update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "lisp/autoload.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
46
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
47 (autoload 'generate-file-autoloads "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
48 Insert at point a loaddefs autoload section for FILE.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
49 autoloads are generated for defuns and defmacros in FILE
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
50 marked by `generate-autoload-cookie' (which see).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
51 If FILE is being visited in a buffer, the contents of the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
52 are used." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
53
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
54 (autoload 'update-file-autoloads "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
55 Update the autoloads for FILE in `generated-autoload-file'
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
56 \(which FILE might bind in its local variables).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
57 This functions refuses to update autoloads files." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
58
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
59 (autoload 'update-autoloads-here "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
60 Update sections of the current buffer generated by `update-file-autoloads'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
61
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
62 (autoload 'update-autoloads-from-directory "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
63 Update `generated-autoload-file' with all the current autoloads from DIR.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
64 This runs `update-file-autoloads' on each .el file in DIR.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
65 Obsolete autoload entries for files that no longer exist are deleted." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
66
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
67 (autoload 'batch-update-autoloads "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
68 Update the autoloads for the files or directories on the command line.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
69 Runs `update-file-autoloads' on files and `update-directory-autoloads'
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
70 on directories. Must be used only with -batch, and kills Emacs on completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
71 Each file will be processed even if an error occurred previously.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
72 For example, invoke `xemacs -batch -f batch-update-autoloads *.el'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
73 The directory to which the auto-autoloads.el file must be the first parameter
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
74 on the command line." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
75
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
76 (autoload 'batch-update-directory "autoload" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
77 Update the autoloads for the directory on the command line.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
78 Runs `update-file-autoloads' on each file in the given directory, must
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
79 be used only with -batch and kills XEmacs on completion." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
80
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
81 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
82
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
83 ;;;### (autoloads nil "buff-menu" "lisp/buff-menu.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
84
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
85 (defvar list-buffers-directory nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
86
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
87 (make-variable-buffer-local 'list-buffers-directory)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
88
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
89 ;;;***
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
90
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
91 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
92
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
93 (autoload 'byte-force-recompile "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
94 Recompile every `.el' file in DIRECTORY that already has a `.elc' file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
95 Files in subdirectories of DIRECTORY are processed also." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
96
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
97 (autoload 'byte-recompile-directory "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
98 Recompile every `.el' file in DIRECTORY that needs recompilation.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
99 This is if a `.elc' file exists but is older than the `.el' file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
100 Files in subdirectories of DIRECTORY are processed also unless argument
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
101 NORECURSION is non-nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
102
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
103 If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
104 But a prefix argument (optional second arg) means ask user,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
105 for each such `.el' file, whether to compile it. Prefix argument 0 means
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
106 don't ask and compile the file anyway.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
107
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
108 A nonzero prefix argument also means ask about each subdirectory.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
109
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
110 If the fourth argument FORCE is non-nil,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
111 recompile every `.el' file that already has a `.elc' file." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
112
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
113 (autoload 'byte-recompile-file "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
114 Recompile a file of Lisp code named FILENAME if it needs recompilation.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
115 This is if the `.elc' file exists but is older than the `.el' file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
116
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
117 If the `.elc' file does not exist, normally the `.el' file is *not*
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
118 compiled. But a prefix argument (optional second arg) means ask user
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
119 whether to compile it. Prefix argument 0 don't ask and recompile anyway." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
120
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
121 (autoload 'byte-compile-file "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
122 Compile a file of Lisp code named FILENAME into a file of byte code.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
123 The output file's name is made by appending `c' to the end of FILENAME.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
124 With prefix arg (noninteractively: 2nd arg), load the file after compiling." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
125
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
126 (autoload 'compile-defun "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
127 Compile and evaluate the current top-level form.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
128 Print the result in the minibuffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
129 With argument, insert value in current buffer after the form." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
130
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
131 (autoload 'byte-compile "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
132 If FORM is a symbol, byte-compile its function definition.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
133 If FORM is a lambda or a macro, byte-compile it as a function." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
134
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
135 (autoload 'byte-compile-sexp "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
136 Compile and return SEXP." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
137
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
138 (autoload 'display-call-tree "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
139 Display a call graph of a specified file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
140 This lists which functions have been called, what functions called
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
141 them, and what functions they call. The list includes all functions
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
142 whose definitions have been compiled in this Emacs session, as well as
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
143 all functions called by those functions.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
144
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
145 The call graph does not include macros, inline functions, or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
146 primitives that the byte-code interpreter knows about directly (eq,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
147 cons, etc.).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
148
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
149 The call tree also lists those functions which are not known to be called
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
150 \(that is, to which no calls have been compiled), and which cannot be
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
151 invoked interactively." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
152
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
153 (autoload 'batch-byte-compile "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
154 Run `byte-compile-file' on the files remaining on the command line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
155 Use this from the command line, with `-batch';
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
156 it won't work in an interactive Emacs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
157 Each file is processed even if an error occurred previously.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
158 For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\"" nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
159
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
160 (autoload 'batch-byte-recompile-directory-norecurse "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
161 Same as `batch-byte-recompile-directory' but without recursion." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
162
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
163 (autoload 'batch-byte-recompile-directory "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
164 Runs `byte-recompile-directory' on the dirs remaining on the command line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
165 Must be used only with `-batch', and kills Emacs on completion.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
166 For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
167
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
168 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
169
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
170 ;;;### (autoloads (compiler-macroexpand define-compiler-macro 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* gentemp gensym cl-compile-time-init) "cl-macs" "lisp/cl-macs.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
171
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
172 (autoload 'cl-compile-time-init "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
173
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
174 (autoload 'gensym "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
175 Generate a new uninterned symbol.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
176 The name is made by appending a number to PREFIX, default \"G\"." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
177
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
178 (autoload 'gentemp "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
179 Generate a new interned symbol with a unique name.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
180 The name is made by appending a number to PREFIX, default \"G\"." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
181
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
182 (autoload 'defun* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
183 (defun* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
184 Like normal `defun', except ARGLIST allows full Common Lisp conventions,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
185 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
186
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
187 (autoload 'defmacro* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
188 (defmacro* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
189 Like normal `defmacro', except ARGLIST allows full Common Lisp conventions,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
190 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
191
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
192 (autoload 'function* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
193 (function* SYMBOL-OR-LAMBDA): introduce a function.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
194 Like normal `function', except that if argument is a lambda form, its
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
195 ARGLIST allows full Common Lisp conventions." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
196
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
197 (autoload 'destructuring-bind "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
198
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
199 (autoload 'eval-when "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
200 (eval-when (WHEN...) BODY...): control when BODY is evaluated.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
201 If `compile' is in WHEN, BODY is evaluated when compiled at top-level.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
202 If `load' is in WHEN, BODY is evaluated when loaded after top-level compile.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
203 If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
204
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
205 (autoload 'load-time-value "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
206 Like `progn', but evaluates the body at load time.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
207 The result of the body appears to the compiler as a quoted constant." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
208
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
209 (autoload 'case "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
210 (case EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
211 Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
212 against each key in each KEYLIST; the corresponding BODY is evaluated.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
213 If no clause succeeds, case returns nil. A single atom may be used in
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
214 place of a KEYLIST of one atom. A KEYLIST of `t' or `otherwise' is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
215 allowed only in the final clause, and matches if no other keys match.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
216 Key values are compared by `eql'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
217
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
218 (autoload 'ecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
219 (ecase EXPR CLAUSES...): like `case', but error if no case fits.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
220 `otherwise'-clauses are not allowed." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
221
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
222 (autoload 'typecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
223 (typecase EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
224 Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
225 satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
226 typecase returns nil. A TYPE of `t' or `otherwise' is allowed only in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
227 final clause, and matches if no other keys match." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
228
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
229 (autoload 'etypecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
230 (etypecase EXPR CLAUSES...): like `typecase', but error if no case fits.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
231 `otherwise'-clauses are not allowed." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
232
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
233 (autoload 'block "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
234 (block NAME BODY...): define a lexically-scoped block named NAME.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
235 NAME may be any symbol. Code inside the BODY forms can call `return-from'
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
236 to jump prematurely out of the block. This differs from `catch' and `throw'
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
237 in two respects: First, the NAME is an unevaluated symbol rather than a
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
238 quoted symbol or other form; and second, NAME is lexically rather than
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
239 dynamically scoped: Only references to it within BODY will work. These
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
240 references may appear inside macro expansions, but not inside functions
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
241 called from BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
242
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
243 (autoload 'return "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
244 (return [RESULT]): return from the block named nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
245 This is equivalent to `(return-from nil RESULT)'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
246
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
247 (autoload 'return-from "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
248 (return-from NAME [RESULT]): return from the block named NAME.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
249 This jump out to the innermost enclosing `(block NAME ...)' form,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
250 returning RESULT from that form (or nil if RESULT is omitted).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
251 This is compatible with Common Lisp, but note that `defun' and
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
252 `defmacro' do not create implicit blocks as they do in Common Lisp." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
253
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
254 (autoload 'loop "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
255 (loop CLAUSE...): The Common Lisp `loop' macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
256 Valid clauses are:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
257 for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
258 for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
259 for VAR across ARRAY, repeat NUM, with VAR = INIT, while COND, until COND,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
260 always COND, never COND, thereis COND, collect EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
261 append EXPR into VAR, nconc EXPR into VAR, sum EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
262 count EXPR into VAR, maximize EXPR into VAR, minimize EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
263 if COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
264 unless COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
265 do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
266 finally return EXPR, named NAME." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
267
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
268 (autoload 'do "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
269 The Common Lisp `do' loop.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
270 Format is: (do ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
271
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
272 (autoload 'do* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
273 The Common Lisp `do*' loop.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
274 Format is: (do* ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
275
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
276 (autoload 'dolist "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
277 (dolist (VAR LIST [RESULT]) BODY...): loop over a list.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
278 Evaluate BODY with VAR bound to each `car' from LIST, in turn.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
279 Then evaluate RESULT to get return value, default nil." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
280
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
281 (autoload 'dotimes "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
282 (dotimes (VAR COUNT [RESULT]) BODY...): loop a certain number of times.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
283 Evaluate BODY with VAR bound to successive integers from 0, inclusive,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
284 to COUNT, exclusive. Then evaluate RESULT to get return value, default
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
285 nil." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
286
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
287 (autoload 'do-symbols "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
288 (dosymbols (VAR [OBARRAY [RESULT]]) BODY...): loop over all symbols.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
289 Evaluate BODY with VAR bound to each interned symbol, or to each symbol
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
290 from OBARRAY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
291
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
292 (autoload 'do-all-symbols "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
293
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
294 (autoload 'psetq "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
295 (psetq SYM VAL SYM VAL ...): set SYMs to the values VALs in parallel.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
296 This is like `setq', except that all VAL forms are evaluated (in order)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
297 before assigning any symbols SYM to the corresponding values." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
298
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
299 (autoload 'progv "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
300 (progv SYMBOLS VALUES BODY...): bind SYMBOLS to VALUES dynamically in BODY.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
301 The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
302 Each SYMBOL in the first list is bound to the corresponding VALUE in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
303 second list (or made unbound if VALUES is shorter than SYMBOLS); then the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
304 BODY forms are executed and their result is returned. This is much like
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
305 a `let' form, except that the list of symbols can be computed at run-time." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
306
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
307 (autoload 'flet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
308 (flet ((FUNC ARGLIST BODY...) ...) FORM...): make temporary function defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
309 This is an analogue of `let' that operates on the function cell of FUNC
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
310 rather than its value cell. The FORMs are evaluated with the specified
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
311 function definitions in place, then the definitions are undone (the FUNCs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
312 go back to their previous definitions, or lack thereof)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
313
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
314 (autoload 'labels "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
315 (labels ((FUNC ARGLIST BODY...) ...) FORM...): make temporary func bindings.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
316 This is like `flet', except the bindings are lexical instead of dynamic.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
317 Unlike `flet', this macro is fully complaint with the Common Lisp standard." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
318
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
319 (autoload 'macrolet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
320 (macrolet ((NAME ARGLIST BODY...) ...) FORM...): make temporary macro defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
321 This is like `flet', but for macros instead of functions." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
322
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
323 (autoload 'symbol-macrolet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
324 (symbol-macrolet ((NAME EXPANSION) ...) FORM...): make symbol macro defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
325 Within the body FORMs, references to the variable NAME will be replaced
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
326 by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
327
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
328 (autoload 'lexical-let "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
329 (lexical-let BINDINGS BODY...): like `let', but lexically scoped.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
330 The main visible difference is that lambdas inside BODY will create
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
331 lexical closures as in Common Lisp." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
332
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
333 (autoload 'lexical-let* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
334 (lexical-let* BINDINGS BODY...): like `let*', but lexically scoped.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
335 The main visible difference is that lambdas inside BODY will create
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
336 lexical closures as in Common Lisp." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
337
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
338 (autoload 'multiple-value-bind "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
339 (multiple-value-bind (SYM SYM...) FORM BODY): collect multiple return values.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
340 FORM must return a list; the BODY is then executed with the first N elements
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
341 of this list bound (`let'-style) to each of the symbols SYM in turn. This
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
342 is analogous to the Common Lisp `multiple-value-bind' macro, using lists to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
343 simulate true multiple return values. For compatibility, (values A B C) is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
344 a synonym for (list A B C)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
345
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
346 (autoload 'multiple-value-setq "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
347 (multiple-value-setq (SYM SYM...) FORM): collect multiple return values.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
348 FORM must return a list; the first N elements of this list are stored in
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
349 each of the symbols SYM in turn. This is analogous to the Common Lisp
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
350 `multiple-value-setq' macro, using lists to simulate true multiple return
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
351 values. For compatibility, (values A B C) is a synonym for (list A B C)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
352
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
353 (autoload 'locally "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
354
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
355 (autoload 'the "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
356
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
357 (autoload 'declare "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
358
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
359 (autoload 'define-setf-method "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
360 (define-setf-method NAME ARGLIST BODY...): define a `setf' method.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
361 This method shows how to handle `setf's to places of the form (NAME ARGS...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
362 The argument forms ARGS are bound according to ARGLIST, as if NAME were
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
363 going to be expanded as a macro, then the BODY forms are executed and must
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
364 return a list of five elements: a temporary-variables list, a value-forms
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
365 list, a store-variables list (of length one), a store-form, and an access-
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
366 form. See `defsetf' for a simpler way to define most setf-methods." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
367
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
368 (autoload 'defsetf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
369 (defsetf NAME FUNC): define a `setf' method.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
370 This macro is an easy-to-use substitute for `define-setf-method' that works
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
371 well for simple place forms. In the simple `defsetf' form, `setf's of
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
372 the form (setf (NAME ARGS...) VAL) are transformed to function or macro
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
373 calls of the form (FUNC ARGS... VAL). Example: (defsetf aref aset).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
374 Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
375 Here, the above `setf' call is expanded by binding the argument forms ARGS
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
376 according to ARGLIST, binding the value form VAL to STORE, then executing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
377 BODY, which must return a Lisp form that does the necessary `setf' operation.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
378 Actually, ARGLIST and STORE may be bound to temporary variables which are
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
379 introduced automatically to preserve proper execution order of the arguments.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
380 Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
381
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
382 (autoload 'get-setf-method "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
383 Return a list of five values describing the setf-method for PLACE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
384 PLACE may be any Lisp form which can appear as the PLACE argument to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
385 a macro like `setf' or `incf'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
386
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
387 (autoload 'setf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
388 (setf PLACE VAL PLACE VAL ...): set each PLACE to the value of its VAL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
389 This is a generalized version of `setq'; the PLACEs may be symbolic
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
390 references such as (car x) or (aref x i), as well as plain symbols.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
391 For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
392 The return value is the last VAL in the list." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
393
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
394 (autoload 'psetf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
395 (psetf PLACE VAL PLACE VAL ...): set PLACEs to the values VALs in parallel.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
396 This is like `setf', except that all VAL forms are evaluated (in order)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
397 before assigning any PLACEs to the corresponding values." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
398
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
399 (autoload 'cl-do-pop "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
400
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
401 (autoload 'remf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
402 (remf PLACE TAG): remove TAG from property list PLACE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
403 PLACE may be a symbol, or any generalized variable allowed by `setf'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
404 The form returns true if TAG was found and removed, nil otherwise." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
405
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
406 (autoload 'shiftf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
407 (shiftf PLACE PLACE... VAL): shift left among PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
408 Example: (shiftf A B C) sets A to B, B to C, and returns the old A.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
409 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
410
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
411 (autoload 'rotatef "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
412 (rotatef PLACE...): rotate left among PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
413 Example: (rotatef A B C) sets A to B, B to C, and C to A. It returns nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
414 Each PLACE may be a symbol, or any generalized variable allowed by `setf'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
415
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
416 (autoload 'letf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
417 (letf ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
418 This is the analogue of `let', but with generalized variables (in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
419 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
420 VALUE, then the BODY forms are executed. On exit, either normally or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
421 because of a `throw' or error, the PLACEs are set back to their original
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
422 values. Note that this macro is *not* available in Common Lisp.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
423 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
424 the PLACE is not modified before executing BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
425
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
426 (autoload 'letf* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
427 (letf* ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
428 This is the analogue of `let*', but with generalized variables (in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
429 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
430 VALUE, then the BODY forms are executed. On exit, either normally or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
431 because of a `throw' or error, the PLACEs are set back to their original
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
432 values. Note that this macro is *not* available in Common Lisp.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
433 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
434 the PLACE is not modified before executing BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
435
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
436 (autoload 'callf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
437 (callf FUNC PLACE ARGS...): set PLACE to (FUNC PLACE ARGS...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
438 FUNC should be an unquoted function name. PLACE may be a symbol,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
439 or any generalized variable allowed by `setf'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
440
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
441 (autoload 'callf2 "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
442 (callf2 FUNC ARG1 PLACE ARGS...): set PLACE to (FUNC ARG1 PLACE ARGS...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
443 Like `callf', but PLACE is the second argument of FUNC, not the first." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
444
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
445 (autoload 'define-modify-macro "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
446 (define-modify-macro NAME ARGLIST FUNC): define a `setf'-like modify macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
447 If NAME is called, it combines its PLACE argument with the other arguments
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
448 from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)" nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
449
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
450 (autoload 'defstruct "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
451 (defstruct (NAME OPTIONS...) (SLOT SLOT-OPTS...)...): define a struct type.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
452 This macro defines a new Lisp data type called NAME, which contains data
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
453 stored in SLOTs. This defines a `make-NAME' constructor, a `copy-NAME'
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
454 copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
455
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
456 (autoload 'cl-struct-setf-expander "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
457
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
458 (autoload 'deftype "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
459 (deftype NAME ARGLIST BODY...): define NAME as a new data type.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
460 The type name can then be used in `typecase', `check-type', etc." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
461
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
462 (autoload 'typep "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
463 Check that OBJECT is of type TYPE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
464 TYPE is a Common Lisp-style type specifier." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
465
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
466 (autoload 'check-type "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
467 Verify that FORM is of type TYPE; signal an error if not.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
468 STRING is an optional description of the desired type." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
469
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
470 (autoload 'assert "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
471 Verify that FORM returns non-nil; signal an error if not.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
472 Second arg SHOW-ARGS means to include arguments of FORM in message.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
473 Other args STRING and ARGS... are arguments to be passed to `error'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
474 They are not evaluated unless the assertion fails. If STRING is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
475 omitted, a default message listing FORM itself is used." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
476
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
477 (autoload 'ignore-errors "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
478 Execute FORMS; if an error occurs, return nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
479 Otherwise, return result of last FORM." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
480
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
481 (autoload 'define-compiler-macro "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
482 (define-compiler-macro FUNC ARGLIST BODY...): Define a compiler-only macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
483 This is like `defmacro', but macro expansion occurs only if the call to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
484 FUNC is compiled (i.e., not interpreted). Compiler macros should be used
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
485 for optimizing the way calls to FUNC are compiled; the form returned by
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
486 BODY should do the same thing as a call to the normal function called
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
487 FUNC, though possibly more efficiently. Note that, like regular macros,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
488 compiler macros are expanded repeatedly until no further expansions are
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
489 possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
490 original function call alone by declaring an initial `&whole foo' parameter
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
491 and then returning foo." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
492
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
493 (autoload 'compiler-macroexpand "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
494
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
495 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
496
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
497 ;;;### (autoloads (batch-remove-old-elc) "cleantree" "lisp/cleantree.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
498
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
499 (autoload 'batch-remove-old-elc "cleantree" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
500
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
501 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
502
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
503 ;;;### (autoloads (config-value config-value-hash-table) "config" "lisp/config.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
504
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
505 (autoload 'config-value-hash-table "config" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
506 Returns hashtable of configuration parameters and their values." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
507
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
508 (autoload 'config-value "config" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
509 Return the value of the configuration parameter CONFIG_SYMBOL." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
510
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
511 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
512
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
513 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp/cus-dep.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
514
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
515 (autoload 'Custom-make-dependencies "cus-dep" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
516 Extract custom dependencies from .el files in SUBDIRS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
517 SUBDIRS is a list of directories. If it is nil, the command-line
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
518 arguments are used. If it is a string, only that directory is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
519 processed. This function is especially useful in batch mode.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
520
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
521 Batch usage: xemacs -batch -l cus-dep.el -f Custom-make-dependencies DIRS" t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
522
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
523 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
524
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
525 ;;;### (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-variable customize-other-window customize customize-save-variable customize-set-variable customize-set-value) "cus-edit" "lisp/cus-edit.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
526
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
527 (autoload 'customize-set-value "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
528 Set VARIABLE to VALUE. VALUE is a Lisp object.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
529
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
530 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
531 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
532
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
533 If VARIABLE has a `custom-type' property, it must be a widget and the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
534 `:prompt-value' property of that widget will be used for reading the value." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
535
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
536 (autoload 'customize-set-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
537 Set the default for VARIABLE to VALUE. VALUE is a Lisp object.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
538
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
539 If VARIABLE has a `custom-set' property, that is used for setting
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
540 VARIABLE, otherwise `set-default' is used.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
541
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
542 The `customized-value' property of the VARIABLE will be set to a list
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
543 with a quoted VALUE as its sole list member.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
544
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
545 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
546 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
547
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
548 If VARIABLE has a `custom-type' property, it must be a widget and the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
549 `:prompt-value' property of that widget will be used for reading the value. " t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
550
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
551 (autoload 'customize-save-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
552 Set the default for VARIABLE to VALUE, and save it for future sessions.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
553 If VARIABLE has a `custom-set' property, that is used for setting
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
554 VARIABLE, otherwise `set-default' is used.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
555
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
556 The `customized-value' property of the VARIABLE will be set to a list
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
557 with a quoted VALUE as its sole list member.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
558
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
559 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
560 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
561
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
562 If VARIABLE has a `custom-type' property, it must be a widget and the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
563 `:prompt-value' property of that widget will be used for reading the value. " t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
564
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
565 (autoload 'customize "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
566 Select a customization buffer which you can use to set user options.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
567 User options are structured into \"groups\".
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
568 The default group is `Emacs'." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
569
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
570 (defalias 'customize-group 'customize)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
571
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
572 (autoload 'customize-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
573 Customize SYMBOL, which must be a customization group." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
574
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
575 (defalias 'customize-group-other-window 'customize-other-window)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
576
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
577 (defalias 'customize-option 'customize-variable)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
578
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
579 (autoload 'customize-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
580 Customize SYMBOL, which must be a user option variable." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
581
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
582 (defalias 'customize-variable-other-window 'customize-option-other-window)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
583
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
584 (autoload 'customize-option-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
585 Customize SYMBOL, which must be a user option variable.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
586 Show the buffer in another window, but don't select it." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
587
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
588 (autoload 'customize-face "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
589 Customize SYMBOL, which should be a face name or nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
590 If SYMBOL is nil, customize all faces." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
591
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
592 (autoload 'customize-face-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
593 Show customization buffer for FACE in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
594
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
595 (autoload 'customize-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
596 Customize all user options set since the last save in this session." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
597
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
598 (autoload 'customize-saved "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
599 Customize all already saved user options." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
600
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
601 (autoload 'customize-apropos "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
602 Customize all user options matching REGEXP.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
603 If ALL is `options', include only options.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
604 If ALL is `faces', include only faces.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
605 If ALL is `groups', include only groups.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
606 If ALL is t (interactively, with prefix arg), include options which are not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
607 user-settable, as well as faces and groups." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
608
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
609 (autoload 'customize-apropos-options "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
610 Customize all user options matching REGEXP.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
611 With prefix arg, include options which are not user-settable." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
612
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
613 (autoload 'customize-apropos-faces "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
614 Customize all user faces matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
615
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
616 (autoload 'customize-apropos-groups "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
617 Customize all user groups matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
618
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
619 (autoload 'custom-buffer-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
620 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
621 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
622 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
623 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
624 that option." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
625
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
626 (autoload 'custom-buffer-create-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
627 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
628 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
629 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
630 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
631 that option." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
632
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
633 (autoload 'customize-browse "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
634 Create a tree browser for the customize hierarchy." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
635
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
636 (defcustom custom-file (if (boundp 'user-init-directory) (concat "~" init-file-user user-init-directory "options.el") "~/.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)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
637
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
638 (autoload 'customize-save-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
639 Save all user options which have been set in this session." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
640
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
641 (autoload 'custom-save-all "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
642 Save all customizations in `custom-file'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
643
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
644 (autoload 'custom-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
645 Create menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
646 The menu is in a format applicable to `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
647
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
648 (autoload 'customize-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
649 Return a customize menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
650 If optional NAME is given, use that as the name of the menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
651 Otherwise the menu will be named `Customize'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
652 The format is suitable for use with `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
653
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
654 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
655
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
656 ;;;### (autoloads (custom-set-faces custom-declare-face) "cus-face" "lisp/cus-face.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
657
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
658 (autoload 'custom-declare-face "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
659 Like `defface', but FACE is evaluated as a normal argument." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
660
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
661 (autoload 'custom-set-faces "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
662 Initialize faces according to user preferences.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
663 The arguments should be a list where each entry has the form:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
664
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
665 (FACE SPEC [NOW])
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
666
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
667 SPEC will be stored as the saved value for FACE. If NOW is present
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
668 and non-nil, FACE will also be created according to SPEC.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
669
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
670 See `defface' for the format of SPEC." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
671
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
672 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
673
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
674 ;;;### (autoloads (disassemble) "disass" "lisp/disass.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
675
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
676 (autoload 'disassemble "disass" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
677 Print disassembled code for OBJECT in (optional) BUFFER.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
678 OBJECT can be a symbol defined as a function, or a function itself
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
679 \(a lambda expression or a compiled-function object).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
680 If OBJECT is not already compiled, we compile it, but do not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
681 redefine OBJECT if it is a symbol." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
682
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
683 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
684
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
685 ;;;### (autoloads nil "easymenu" "lisp/easymenu.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
686
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
687 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
688
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
689 ;;;### (autoloads (tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file find-tag-other-window find-tag visit-tags-table) "etags" "lisp/etags.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
690
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
691 (defcustom tags-build-completion-table 'ask "*If this variable is nil, then tags completion is disabled.\nIf this variable is t, then things which prompt for tags will do so with \n completion across all known tags.\nIf this variable is the symbol `ask', then you will be asked whether each\n tags table should be added to the completion list as it is read in.\n (With the exception that for very small tags tables, you will not be asked,\n since they can be parsed quickly.)" :type '(radio (const :tag "Disabled" nil) (const :tag "Complete All" t) (const :tag "Ask" ask)) :group 'etags)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
692
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
693 (defcustom tags-always-exact nil "*If this variable is non-nil, then tags always looks for exact matches." :type 'boolean :group 'etags)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
694
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
695 (defcustom tag-table-alist nil "*A list which determines which tags files are active for a buffer.\nThis is not really an association list, in that all elements are\nchecked. The CAR of each element of this list is a pattern against\nwhich the buffer's file name is compared; if it matches, then the CDR\nof the list should be the name of the tags table to use. If more than\none element of this list matches the buffer's file name, then all of\nthe associated tags tables will be used. Earlier ones will be\nsearched first.\n\nIf the CAR of elements of this list are strings, then they are treated\nas regular-expressions against which the file is compared (like the\nauto-mode-alist). If they are not strings, then they are evaluated.\nIf they evaluate to non-nil, then the current buffer is considered to\nmatch.\n\nIf the CDR of the elements of this list are strings, then they are\nassumed to name a TAGS file. If they name a directory, then the string\n\"TAGS\" is appended to them to get the file name. If they are not \nstrings, then they are evaluated, and must return an appropriate string.\n\nFor example:\n (setq tag-table-alist\n '((\"/usr/src/public/perl/\" . \"/usr/src/public/perl/perl-3.0/\")\n (\"\\\\.el$\" . \"/usr/local/emacs/src/\")\n (\"/jbw/gnu/\" . \"/usr15/degree/stud/jbw/gnu/\")\n (\"\" . \"/usr/local/emacs/src/\")\n ))\n\nThis means that anything in the /usr/src/public/perl/ directory should use\nthe TAGS file /usr/src/public/perl/perl-3.0/TAGS; and file ending in .el should\nuse the TAGS file /usr/local/emacs/src/TAGS; and anything in or below the\ndirectory /jbw/gnu/ should use the TAGS file /usr15/degree/stud/jbw/gnu/TAGS.\nA file called something like \"/usr/jbw/foo.el\" would use both the TAGS files\n/usr/local/emacs/src/TAGS and /usr15/degree/stud/jbw/gnu/TAGS (in that order)\nbecause it matches both patterns.\n\nIf the buffer-local variable `buffer-tag-table' is set, then it names a tags\ntable that is searched before all others when find-tag is executed from this\nbuffer.\n\nIf there is a file called \"TAGS\" in the same directory as the file in \nquestion, then that tags file will always be used as well (after the\n`buffer-tag-table' but before the tables specified by this list.)\n\nIf the variable tags-file-name is set, then the tags file it names will apply\nto all buffers (for backwards compatibility.) It is searched first.\n" :type '(repeat (cons (choice :value "" (regexp :tag "Buffer regexp") (function :tag "Expression")) (string :tag "Tag file or directory"))) :group 'etags)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
696
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
697 (autoload 'visit-tags-table "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
698 Tell tags commands to use tags table file FILE first.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
699 FILE should be the name of a file created with the `etags' program.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
700 A directory name is ok too; it means file TAGS in that directory." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
701
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
702 (autoload 'find-tag "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
703 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
704 Selects the buffer that the tag is contained in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
705 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
706 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
707 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
708 If called interactively with a numeric argument, searches for the next tag
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
709 in the tag table that matches the tagname used in the previous find-tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
710 If second arg OTHER-WINDOW is non-nil, uses another window to display
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
711 the tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
712
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
713 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
714 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
715
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
716 Variables of note:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
717
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
718 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
719 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
720 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
721 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
722 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
723 tag-mark-stack-max how many tags-based hops to remember" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
724
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
725 (autoload 'find-tag-other-window "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
726 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
727 Selects the buffer that the tag is contained in in another window
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
728 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
729 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
730 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
731 If second arg NEXT is non-nil (interactively, with prefix arg),
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
732 searches for the next tag in the tag table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
733 that matches the tagname used in the previous find-tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
734
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
735 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
736 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
737
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
738 Variables of note:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
739
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
740 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
741 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
742 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
743 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
744 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
745 tag-mark-stack-max how many tags-based hops to remember" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
746
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
747 (autoload 'next-file "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
748 Select next file among files in current tag table(s).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
749
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
750 A first argument of t (prefix arg, if interactive) initializes to the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
751 beginning of the list of files in the (first) tags table. If the argument
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
752 is neither nil nor t, it is evalled to initialize the list of files.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
753
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
754 Non-nil second argument NOVISIT means use a temporary buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
755 to save time and avoid uninteresting warnings.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
756
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
757 Value is nil if the file was already visited;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
758 if the file was newly read in, the value is the filename." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
759
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
760 (autoload 'tags-loop-continue "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
761 Continue last \\[tags-search] or \\[tags-query-replace] command.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
762 Used noninteractively with non-nil argument to begin such a command (the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
763 argument is passed to `next-file', which see).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
764 Two variables control the processing we do on each file:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
765 the value of `tags-loop-scan' is a form to be executed on each file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
766 to see if it is interesting (it returns non-nil if so)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
767 and `tags-loop-operate' is a form to execute to operate on an interesting file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
768 If the latter returns non-nil, we exit; otherwise we scan the next file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
769
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
770 (autoload 'tags-search "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
771 Search through all files listed in tags table for match for REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
772 Stops when a match is found.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
773 To continue searching for next match, use command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
774
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
775 See documentation of variable `tag-table-alist'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
776
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
777 (autoload 'tags-query-replace "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
778 Query-replace-regexp FROM with TO through all files listed in tags table.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
779 Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
780 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
781 with the command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
782
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
783 See documentation of variable `tag-table-alist'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
784
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
785 (autoload 'list-tags "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
786 Display list of tags in file FILE.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
787 FILE should not contain a directory spec
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
788 unless it has one in the tag table." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
789
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
790 (autoload 'tags-apropos "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
791 Display list of all tags in tag table REGEXP matches." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
792
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
793 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
794
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
795 ;;;### (autoloads (font-lock-set-defaults-1 font-lock-fontify-buffer turn-off-font-lock turn-on-font-lock font-lock-mode) "font-lock" "lisp/font-lock.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
796
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
797 (defvar font-lock-auto-fontify t "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
798 *Whether font-lock should automatically fontify files as they're loaded.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
799 This will only happen if font-lock has fontifying keywords for the major
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
800 mode of the file. You can get finer-grained control over auto-fontification
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
801 by using this variable in combination with `font-lock-mode-enable-list' or
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
802 `font-lock-mode-disable-list'.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
803
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
804 (defvar font-lock-mode-enable-list nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
805 *List of modes to auto-fontify, if `font-lock-auto-fontify' is nil.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
806
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
807 (defvar font-lock-mode-disable-list nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
808 *List of modes not to auto-fontify, if `font-lock-auto-fontify' is t.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
809
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
810 (defvar font-lock-use-colors '(color) "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
811 *Specification for when Font Lock will set up color defaults.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
812 Normally this should be '(color), meaning that Font Lock will set up
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
813 color defaults that are only used on color displays. Set this to nil
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
814 if you don't want Font Lock to set up color defaults at all. This
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
815 should be one of
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
816
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
817 -- a list of valid tags, meaning that the color defaults will be used
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
818 when all of the tags apply. (e.g. '(color x))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
819 -- a list whose first element is 'or and whose remaining elements are
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
820 lists of valid tags, meaning that the defaults will be used when
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
821 any of the tag lists apply.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
822 -- nil, meaning that the defaults should not be set up at all.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
823
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
824 \(If you specify face values in your init file, they will override any
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
825 that Font Lock specifies, regardless of whether you specify the face
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
826 values before or after loading Font Lock.)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
827
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
828 See also `font-lock-use-fonts'. If you want more control over the faces
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
829 used for fontification, see the documentation of `font-lock-mode' for
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
830 how to do it.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
831
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
832 (defvar font-lock-use-fonts '(or (mono) (grayscale)) "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
833 *Specification for when Font Lock will set up non-color defaults.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
834
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
835 Normally this should be '(or (mono) (grayscale)), meaning that Font
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
836 Lock will set up non-color defaults that are only used on either mono
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
837 or grayscale displays. Set this to nil if you don't want Font Lock to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
838 set up non-color defaults at all. This should be one of
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
839
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
840 -- a list of valid tags, meaning that the non-color defaults will be used
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
841 when all of the tags apply. (e.g. '(grayscale x))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
842 -- a list whose first element is 'or and whose remaining elements are
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
843 lists of valid tags, meaning that the defaults will be used when
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
844 any of the tag lists apply.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
845 -- nil, meaning that the defaults should not be set up at all.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
846
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
847 \(If you specify face values in your init file, they will override any
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
848 that Font Lock specifies, regardless of whether you specify the face
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
849 values before or after loading Font Lock.)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
850
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
851 See also `font-lock-use-colors'. If you want more control over the faces
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
852 used for fontification, see the documentation of `font-lock-mode' for
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
853 how to do it.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
854
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
855 (defvar font-lock-maximum-decoration nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
856 *If non-nil, the maximum decoration level for fontifying.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
857 If nil, use the minimum decoration (equivalent to level 0).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
858 If t, use the maximum decoration available.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
859 If a number, use that level of decoration (or if not available the maximum).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
860 If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL),
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
861 where MAJOR-MODE is a symbol or t (meaning the default). For example:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
862 ((c++-mode . 2) (c-mode . t) (t . 1))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
863 means use level 2 decoration for buffers in `c++-mode', the maximum decoration
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
864 available for buffers in `c-mode', and level 1 decoration otherwise.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
865
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
866 (define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
867
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
868 (defvar font-lock-maximum-size (* 250 1024) "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
869 *If non-nil, the maximum size for buffers for fontifying.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
870 Only buffers less than this can be fontified when Font Lock mode is turned on.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
871 If nil, means size is irrelevant.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
872 If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
873 where MAJOR-MODE is a symbol or t (meaning the default). For example:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
874 ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
875 means that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
876 megabyte for buffers in `rmail-mode', and size is irrelevant otherwise.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
877
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
878 (defvar font-lock-keywords nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
879 *A list of the keywords to highlight.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
880 Each element should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
881
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
882 MATCHER
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
883 (MATCHER . MATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
884 (MATCHER . FACENAME)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
885 (MATCHER . HIGHLIGHT)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
886 (MATCHER HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
887 (eval . FORM)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
888
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
889 where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
890
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
891 FORM is an expression, whose value should be a keyword element,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
892 evaluated when the keyword is (first) used in a buffer. This feature
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
893 can be used to provide a keyword that can only be generated when Font
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
894 Lock mode is actually turned on.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
895
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
896 For highlighting single items, typically only MATCH-HIGHLIGHT is required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
897 However, if an item or (typically) items is to be highlighted following the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
898 instance of another item (the anchor) then MATCH-ANCHORED may be required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
899
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
900 MATCH-HIGHLIGHT should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
901
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
902 (MATCH FACENAME OVERRIDE LAXMATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
903
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
904 Where MATCHER can be either the regexp to search for, a variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
905 containing the regexp to search for, or the function to call to make
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
906 the search (called with one argument, the limit of the search). MATCH
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
907 is the subexpression of MATCHER to be highlighted. FACENAME is either
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
908 a symbol naming a face, or an expression whose value is the face name
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
909 to use. If you want FACENAME to be a symbol that evaluates to a face,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
910 use a form like \"(progn sym)\".
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
911
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
912 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
913 be overwritten. If `keep', only parts not already fontified are highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
914 If `prepend' or `append', existing fontification is merged with the new, in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
915 which the new or existing fontification, respectively, takes precedence.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
916 If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
917
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
918 For example, an element of the form highlights (if not already highlighted):
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
919
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
920 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
921 variable `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
922 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
923 the value of `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
924 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
925 (\"foo\\\\|bar\" 0 foo-bar-face t)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
926 Occurrences of either \"foo\" or \"bar\" in the value
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
927 of `foo-bar-face', even if already highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
928
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
929 MATCH-ANCHORED should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
930
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
931 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
932
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
933 Where MATCHER is as for MATCH-HIGHLIGHT with one exception; see below.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
934 PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
935 the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
936 used to initialise before, and cleanup after, MATCHER is used. Typically,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
937 PRE-MATCH-FORM is used to move to some position relative to the original
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
938 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
939 be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
940
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
941 For example, an element of the form highlights (if not already highlighted):
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
942
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
943 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
944
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
945 Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
946 discrete occurrences of \"item\" (on the same line) in the value of `item-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
947 (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
948 initially searched for starting from the end of the match of \"anchor\", and
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
949 searching for subsequent instance of \"anchor\" resumes from where searching
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
950 for \"item\" concluded.)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
951
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
952 The above-mentioned exception is as follows. The limit of the MATCHER search
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
953 defaults to the end of the line after PRE-MATCH-FORM is evaluated.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
954 However, if PRE-MATCH-FORM returns a position greater than the position after
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
955 PRE-MATCH-FORM is evaluated, that position is used as the limit of the search.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
956 It is generally a bad idea to return a position greater than the end of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
957 line, i.e., cause the MATCHER search to span lines.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
958
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
959 Note that the MATCH-ANCHORED feature is experimental; in the future, we may
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
960 replace it with other ways of providing this functionality.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
961
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
962 These regular expressions should not match text which spans lines. While
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
963 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
964 when you edit the buffer does not, since it considers text one line at a time.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
965
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
966 Be very careful composing regexps for this list;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
967 the wrong pattern can dramatically slow things down!")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
968
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
969 (make-variable-buffer-local 'font-lock-keywords)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
970
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
971 (defvar font-lock-mode nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
972
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
973 (defvar font-lock-mode-hook nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
974 Function or functions to run on entry to font-lock-mode.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
975
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
976 (autoload 'font-lock-mode "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
977 Toggle Font Lock Mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
978 With arg, turn font-lock mode on if and only if arg is positive.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
979
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
980 When Font Lock mode is enabled, text is fontified as you type it:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
981
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
982 - Comments are displayed in `font-lock-comment-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
983 - Strings are displayed in `font-lock-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
984 - Documentation strings (in Lisp-like languages) are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
985 `font-lock-doc-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
986 - Language keywords (\"reserved words\") are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
987 `font-lock-keyword-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
988 - Function names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
989 `font-lock-function-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
990 - Variable names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
991 `font-lock-variable-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
992 - Type names are displayed in `font-lock-type-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
993 - References appearing in help files and the like are displayed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
994 in `font-lock-reference-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
995 - Preprocessor declarations are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
996 `font-lock-preprocessor-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
997
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
998 and
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
999
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1000 - Certain other expressions are displayed in other faces according
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1001 to the value of the variable `font-lock-keywords'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1002
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1003 Where modes support different levels of fontification, you can use the variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1004 `font-lock-maximum-decoration' to specify which level you generally prefer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1005 When you turn Font Lock mode on/off the buffer is fontified/defontified, though
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1006 fontification occurs only if the buffer is less than `font-lock-maximum-size'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1007 To fontify a buffer without turning on Font Lock mode, and regardless of buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1008 size, you can use \\[font-lock-fontify-buffer].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1009
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1010 See the variable `font-lock-keywords' for customization." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1011
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1012 (autoload 'turn-on-font-lock "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1013 Unconditionally turn on Font Lock mode." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1014
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1015 (autoload 'turn-off-font-lock "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1016 Unconditionally turn off Font Lock mode." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1017
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1018 (autoload 'font-lock-fontify-buffer "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1019 Fontify the current buffer the way `font-lock-mode' would.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1020 See `font-lock-mode' for details.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1021
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1022 This can take a while for large buffers." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1023
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1024 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1025
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1026 (add-minor-mode 'font-lock-mode " Font")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1027
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1028 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1029
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1030 ;;;### (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")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1031
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1032 (autoload 'font-create-object "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1033
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1034 (autoload 'font-default-font-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1035
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1036 (autoload 'font-default-object-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1037
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1038 (autoload 'font-default-family-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1039
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1040 (autoload 'font-default-registry-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1041
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1042 (autoload 'font-default-encoding-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1043
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1044 (autoload 'font-default-size-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1045
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1046 (autoload 'x-font-build-cache "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1047
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1048 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1049
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1050 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1051
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1052 (defcustom gnuserv-frame nil "*The frame to be used to display all edited files.\nIf nil, then a new frame is created for each file edited.\nIf t, then the currently selected frame will be used.\nIf a function, then this will be called with a symbol `x' or `tty' as the\nonly argument, and its return value will be interpreted as above." :tag "Gnuserv Frame" :type '(radio (const :tag "Create new frame each time" nil) (const :tag "Use selected frame" t) (function-item :tag "Use main Emacs frame" gnuserv-main-frame-function) (function-item :tag "Use visible frame, otherwise create new" gnuserv-visible-frame-function) (function-item :tag "Create special Gnuserv frame and use it" gnuserv-special-frame-function) (function :tag "Other")) :group 'gnuserv :group 'frames)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1053
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1054 (autoload 'gnuserv-running-p "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1055 Return non-nil if a gnuserv process is running from this XEmacs session." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1056
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1057 (autoload 'gnuserv-start "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1058 Allow this Emacs process to be a server for client processes.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1059 This starts a gnuserv communications subprocess through which
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1060 client \"editors\" (gnuclient and gnudoit) can send editing commands to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1061 this Emacs job. See the gnuserv(1) manual page for more details.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1062
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1063 Prefix arg means just kill any existing server communications subprocess." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1064
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1065 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1066
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1067 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1068
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1069 (defcustom three-step-help t "*Non-nil means give more info about Help command in three steps.\nThe three steps are simple prompt, prompt with all options,\nand window listing and describing the options.\nA value of nil means skip the middle step, so that\n\\[help-command] \\[help-command] gives the window that lists the options." :type 'boolean :group 'help-appearance)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1070
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1071 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1072
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1073 ;;;### (autoloads (hyper-apropos-popup-menu hyper-apropos-set-variable hyper-set-variable hyper-apropos-read-variable-symbol hyper-describe-function hyper-describe-variable hyper-describe-face hyper-describe-key-briefly hyper-describe-key hyper-apropos) "hyper-apropos" "lisp/hyper-apropos.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1074
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1075 (autoload 'hyper-apropos "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1076 Display lists of functions and variables matching REGEXP
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1077 in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1078 value of `hyper-apropos-programming-apropos' is toggled for this search.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1079 See also `hyper-apropos-mode'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1080
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1081 (autoload 'hyper-describe-key "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1082
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1083 (autoload 'hyper-describe-key-briefly "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1084
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1085 (autoload 'hyper-describe-face "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1086 Describe face..
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1087 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1088
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1089 (autoload 'hyper-describe-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1090 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1091 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1092
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1093 (autoload 'hyper-describe-function "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1094 Hypertext replacement for `describe-function'. Unlike `describe-function'
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1095 in that the symbol under the cursor is the default if it is a function.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1096 See also `hyper-apropos' and `hyper-describe-variable'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1097
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1098 (autoload 'hyper-apropos-read-variable-symbol "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1099 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1100 See also `hyper-apropos' and `hyper-describe-function'." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1101
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1102 (define-obsolete-function-alias 'hypropos-read-variable-symbol 'hyper-apropos-read-variable-symbol)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1103
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1104 (define-obsolete-function-alias 'hypropos-get-doc 'hyper-apropos-get-doc)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1105
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1106 (autoload 'hyper-set-variable "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1107
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1108 (autoload 'hyper-apropos-set-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1109 Interactively set the variable on the current line." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1110
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1111 (define-obsolete-function-alias 'hypropos-set-variable 'hyper-apropos-set-variable)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1112
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1113 (autoload 'hyper-apropos-popup-menu "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1114
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1115 (define-obsolete-function-alias 'hypropos-popup-menu 'hyper-apropos-popup-menu)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1116
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1117 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1118
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1119 ;;;### (autoloads (Info-elisp-ref Info-emacs-key Info-goto-emacs-key-command-node Info-goto-emacs-command-node Info-emacs-command Info-search Info-visit-file Info-goto-node Info-query info) "info" "lisp/info.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1120
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1121 (autoload 'info "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1122 Enter Info, the documentation browser.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1123 Optional argument FILE specifies the file to examine;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1124 the default is the top-level directory of Info.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1125
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1126 In interactive use, a prefix argument directs this command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1127 to read a file name from the minibuffer." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1128
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1129 (autoload 'Info-query "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1130 Enter Info, the documentation browser. Prompt for name of Info file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1131
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1132 (autoload 'Info-goto-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1133 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1134 Actually, the following interpretations of NAME are tried in order:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1135 (FILENAME)NODENAME
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1136 (FILENAME) (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1137 NODENAME (in current file)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1138 TAGNAME (see below)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1139 FILENAME (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1140 where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1141 annotation for any node of any file. (See `a' and `x' commands.)" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1142
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1143 (autoload 'Info-visit-file "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1144 Directly visit an info file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1145
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1146 (autoload 'Info-search "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1147 Search for REGEXP, starting from point, and select node it's found in." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1148
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1149 (autoload 'Info-emacs-command "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1150 Look up an Emacs command in the Emacs manual in the Info system.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1151 This command is designed to be used whether you are already in Info or not." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1152
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1153 (autoload 'Info-goto-emacs-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1154 Look up an Emacs command in the Emacs manual in the Info system.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1155 This command is designed to be used whether you are already in Info or not." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1156
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1157 (autoload 'Info-goto-emacs-key-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1158 Look up an Emacs key sequence in the Emacs manual in the Info system.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1159 This command is designed to be used whether you are already in Info or not." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1160
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1161 (autoload 'Info-emacs-key "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1162 Look up an Emacs key sequence in the Emacs manual in the Info system.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1163 This command is designed to be used whether you are already in Info or not." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1164
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1165 (autoload 'Info-elisp-ref "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1166 Look up an Emacs Lisp function in the Elisp manual in the Info system.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1167 This command is designed to be used whether you are already in Info or not." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1168
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1169 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1170
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1171 ;;;### (autoloads nil "itimer-autosave" "lisp/itimer-autosave.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1172
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1173 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1174
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1175 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1176
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1177 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1178
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1179 ;;;### (autoloads (package-admin-add-binary-package package-admin-add-single-file-package) "package-admin" "lisp/package-admin.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1180
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1181 (autoload 'package-admin-add-single-file-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1182 Install a single file Lisp package into XEmacs package hierarchy.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1183 `file' should be the full path to the lisp file to install.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1184 `destdir' should be a simple directory name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1185 The optional `pkg-dir' can be used to override the default package hiearchy
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1186 \(last package-path)." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1187
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1188 (autoload 'package-admin-add-binary-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1189 Install a pre-bytecompiled XEmacs package into package hierarchy." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1190
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1191 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1192
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1193 ;;;### (autoloads (list-load-path-shadows) "shadow" "lisp/shadow.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1194
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1195 (autoload 'list-load-path-shadows "shadow" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1196 Display a list of Emacs Lisp files that shadow other files.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1197
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1198 This function lists potential load-path problems. Directories in the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1199 `load-path' variable are searched, in order, for Emacs Lisp
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1200 files. When a previously encountered file name is found again, a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1201 message is displayed indicating that the later file is \"hidden\" by
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1202 the earlier.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1203
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1204 For example, suppose `load-path' is set to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1205
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1206 \(\"/usr/gnu/emacs/site-lisp\" \"/usr/gnu/emacs/share/emacs/19.30/lisp\")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1207
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1208 and that each of these directories contains a file called XXX.el. Then
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1209 XXX.el in the site-lisp directory is referred to by all of:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1210 \(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1211
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1212 The first XXX.el file prevents emacs from seeing the second (unless
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1213 the second is loaded explicitly via load-file).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1214
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1215 When not intended, such shadowings can be the source of subtle
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1216 problems. For example, the above situation may have arisen because the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1217 XXX package was not distributed with versions of emacs prior to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1218 19.30. An emacs maintainer downloaded XXX from elsewhere and installed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1219 it. Later, XXX was updated and included in the emacs distribution.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1220 Unless the emacs maintainer checks for this, the new version of XXX
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1221 will be hidden behind the old (which may no longer work with the new
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1222 emacs version).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1223
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1224 This function performs these checks and flags all possible
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1225 shadowings. Because a .el file may exist without a corresponding .elc
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1226 \(or vice-versa), these suffixes are essentially ignored. A file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1227 XXX.elc in an early directory (that does not contain XXX.el) is
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1228 considered to shadow a later file XXX.el, and vice-versa.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1229
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1230 When run interactively, the shadowings (if any) are displayed in a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1231 buffer called `*Shadows*'. Shadowings are located by calling the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1232 \(non-interactive) companion function, `find-emacs-lisp-shadows'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1233
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1234 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1235
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1236 ;;;### (autoloads (load-default-sounds load-sound-file) "sound" "lisp/sound.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1237
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1238 (or sound-alist (setq sound-alist '((ready nil) (warp nil))))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1239
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1240 (autoload 'load-sound-file "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1241 Read in an audio-file and add it to the sound-alist.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1242
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1243 You can only play sound files if you are running on display 0 of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1244 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1245 server and XEmacs has the necessary sound support compiled in.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1246
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1247 The sound file must be in the Sun/NeXT U-LAW format, except on Linux,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1248 where .wav files are also supported by the sound card drivers." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1249
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1250 (autoload 'load-default-sounds "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1251 Load and install some sound files as beep-types, using
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1252 `load-sound-file'. This only works if you're on display 0 of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1253 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1254 server and XEmacs has the necessary sound support compiled in." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1255
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1256 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1257
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1258 ;;;### (autoloads (auto-view-mode view-major-mode view-mode view-minor-mode view-buffer-other-window view-file-other-window view-buffer view-file) "view-less" "lisp/view-less.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1259
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1260 (defvar view-minor-mode-map (let ((map (make-keymap))) (set-keymap-name map 'view-minor-mode-map) (suppress-keymap map) (define-key map "-" 'negative-argument) (define-key map " " 'scroll-up) (define-key map "f" 'scroll-up) (define-key map "b" 'scroll-down) (define-key map 'backspace 'scroll-down) (define-key map 'delete 'scroll-down) (define-key map " " 'view-scroll-lines-up) (define-key map "\n" 'view-scroll-lines-up) (define-key map "e" 'view-scroll-lines-up) (define-key map "j" 'view-scroll-lines-up) (define-key map "y" 'view-scroll-lines-down) (define-key map "k" 'view-scroll-lines-down) (define-key map "d" 'view-scroll-some-lines-up) (define-key map "u" 'view-scroll-some-lines-down) (define-key map "r" 'recenter) (define-key map "t" 'toggle-truncate-lines) (define-key map "N" 'view-buffer) (define-key map "E" 'view-file) (define-key map "P" 'view-buffer) (define-key map "!" 'shell-command) (define-key map "|" 'shell-command-on-region) (define-key map "=" 'what-line) (define-key map "?" 'view-search-backward) (define-key map "h" 'view-mode-describe) (define-key map "s" 'view-repeat-search) (define-key map "n" 'view-repeat-search) (define-key map "/" 'view-search-forward) (define-key map "\\" 'view-search-backward) (define-key map "g" 'view-goto-line) (define-key map "G" 'view-last-windowful) (define-key map "%" 'view-goto-percent) (define-key map "p" 'view-goto-percent) (define-key map "m" 'point-to-register) (define-key map "'" 'register-to-point) (define-key map "C" 'view-cleanup-backspaces) (define-key map "" 'view-quit) (define-key map "" 'view-quit-toggle-ro) (define-key map "q" 'view-quit) map))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1261
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1262 (defvar view-mode-map (let ((map (copy-keymap view-minor-mode-map))) (set-keymap-name map 'view-mode-map) map))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1263
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1264 (autoload 'view-file "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1265 Find FILE, enter view mode. With prefix arg OTHER-P, use other window." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1266
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1267 (autoload 'view-buffer "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1268 Switch to BUF, enter view mode. With prefix arg use other window." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1269
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1270 (autoload 'view-file-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1271 Find FILE in other window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1272
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1273 (autoload 'view-buffer-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1274 Switch to BUFFER in another window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1275
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1276 (autoload 'view-minor-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1277 Minor mode for viewing text, with bindings like `less'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1278 Commands are:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1279 \\<view-minor-mode-map>
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1280 0..9 prefix args
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1281 - prefix minus
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1282 \\[scroll-up] page forward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1283 \\[scroll-down] page back
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1284 \\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1285 \\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1286 \\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1287 \\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1288 \\[what-line] print line number
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1289 \\[view-mode-describe] print this help message
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1290 \\[view-search-forward] regexp search, uses previous string if you just hit RET
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1291 \\[view-search-backward] as above but searches backward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1292 \\[view-repeat-search] repeat last search
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1293 \\[view-goto-line] goto line prefix-arg, default 1
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1294 \\[view-last-windowful] goto line prefix-arg, default last line
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1295 \\[view-goto-percent] goto a position by percentage
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1296 \\[toggle-truncate-lines] toggle truncate-lines
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1297 \\[view-file] view another file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1298 \\[view-buffer] view another buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1299 \\[view-cleanup-backspaces] cleanup backspace constructions
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1300 \\[shell-command] execute a shell command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1301 \\[shell-command-on-region] execute a shell command with the region as input
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1302 \\[view-quit] exit view-mode, and bury the current buffer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1303
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1304 If invoked with the optional (prefix) arg non-nil, view-mode cleans up
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1305 backspace constructions.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1306
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1307 More precisely:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1308 \\{view-minor-mode-map}" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1309
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1310 (autoload 'view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1311 View the current buffer using view-minor-mode. This exists to be 99.9%
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1312 compatible with the implementations of `view-mode' in view.el and older
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1313 versions of view-less.el." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1314
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1315 (autoload 'view-major-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1316 View the current buffer using view-mode, as a major mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1317 This function has a nonstandard name because `view-mode' is wrongly
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1318 named but is like this for compatibility reasons." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1319
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1320 (autoload 'auto-view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1321 If the file of the current buffer is not writable, call view-mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1322 This is meant to be added to `find-file-hooks'." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1323
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1324 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1325
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1326 ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse widget-browse-at) "wid-browse" "lisp/wid-browse.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1327
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1328 (autoload 'widget-browse-at "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1329 Browse the widget under point." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1330
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1331 (autoload 'widget-browse "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1332 Create a widget browser for WIDGET." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1333
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1334 (autoload 'widget-browse-other-window "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1335 Show widget browser for WIDGET in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1336
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1337 (autoload 'widget-minor-mode "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1338 Togle minor mode for traversing widgets.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1339 With arg, turn widget mode on if and only if arg is positive." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1340
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1341 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1342
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1343 ;;;### (autoloads (widget-delete widget-create widget-prompt-value) "wid-edit" "lisp/wid-edit.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1344
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1345 (autoload 'widget-prompt-value "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1346 Prompt for a value matching WIDGET, using PROMPT.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1347 The current value is assumed to be VALUE, unless UNBOUND is non-nil." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1348
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1349 (autoload 'widget-create "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1350 Create widget of TYPE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1351 The optional ARGS are additional keyword arguments." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1352
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1353 (autoload 'widget-delete "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1354 Delete WIDGET." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1355
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1356 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1357
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1358 ;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "x-font-menu" "lisp/x-font-menu.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1359
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1360 (defcustom font-menu-ignore-scaled-fonts t "*If non-nil, then the font menu will try to show only bitmap fonts." :type 'boolean :group 'x)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1361
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1362 (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 'x)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1363
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1364 (fset 'install-font-menus 'reset-device-font-menus)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1365
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1366 (autoload 'reset-device-font-menus "x-font-menu" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1367 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1368 This is run the first time that a font-menu is needed for each device.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1369 If you don't like the lazy invocation of this function, you can add it to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1370 `create-device-hook' and that will make the font menus respond more quickly
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1371 when they are selected for the first time. If you add fonts to your system,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1372 or if you change your font path, you can call this to re-initialize the menus." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1373
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1374 (autoload 'font-menu-family-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1375
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1376 (autoload 'font-menu-size-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1377
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1378 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1379
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1380 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1381
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1382 (provide 'Standard-autoloads)