annotate lisp/auto-autoloads.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 8efd647ea9ca
children 6330739388db
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
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
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-changed-options customize-variable customize-other-window customize customize-save-variable customize-set-variable customize-set-value) "cus-edit" "lisp/cus-edit.el")
209
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
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
582 (autoload 'customize-changed-options "cus-edit" "\
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
583 Customize all user option variables whose default values changed recently.
225
12579d965149 Import from CVS: tag r20-4b11
cvs
parents: 223
diff changeset
584 This means, in other words, variables defined with a `:version' keyword." t nil)
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
585
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
586 (defalias 'customize-variable-other-window 'customize-option-other-window)
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-option-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
589 Customize SYMBOL, which must be a user option variable.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
590 Show the buffer in another window, but don't select it." 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 "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
593 Customize SYMBOL, which should be a face name or nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
594 If SYMBOL is nil, customize all faces." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
595
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
596 (autoload 'customize-face-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
597 Show customization buffer for FACE in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
598
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
599 (autoload 'customize-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
600 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
601
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
602 (autoload 'customize-saved "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
603 Customize all already saved user options." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
604
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
605 (autoload 'customize-apropos "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
606 Customize all user options matching REGEXP.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
607 If ALL is `options', include only options.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
608 If ALL is `faces', include only faces.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
609 If ALL is `groups', include only groups.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
610 If ALL is t (interactively, with prefix arg), include options which are not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
611 user-settable, as well as faces and groups." 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-options "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
614 Customize all user options matching REGEXP.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
615 With prefix arg, include options which are not user-settable." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
616
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
617 (autoload 'customize-apropos-faces "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
618 Customize all user faces matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
619
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
620 (autoload 'customize-apropos-groups "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
621 Customize all user groups matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
622
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
623 (autoload 'custom-buffer-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
624 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
625 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
626 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
627 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
628 that option." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
629
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
630 (autoload 'custom-buffer-create-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
631 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
632 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
633 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
634 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
635 that option." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
636
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
637 (autoload 'customize-browse "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
638 Create a tree browser for the customize hierarchy." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
639
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
640 (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
641
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
642 (autoload 'customize-save-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
643 Save all user options which have been set in this session." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
644
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
645 (autoload 'custom-save-all "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
646 Save all customizations in `custom-file'." 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 'custom-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
649 Create menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
650 The menu is in a format applicable to `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
651
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
652 (autoload 'customize-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
653 Return a customize menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
654 If optional NAME is given, use that as the name of the menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
655 Otherwise the menu will be named `Customize'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
656 The format is suitable for use with `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
657
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
658 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
659
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
660 ;;;### (autoloads (custom-set-faces custom-declare-face) "cus-face" "lisp/cus-face.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
661
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
662 (autoload 'custom-declare-face "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
663 Like `defface', but FACE is evaluated as a normal argument." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
664
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
665 (autoload 'custom-set-faces "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
666 Initialize faces according to user preferences.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
667 The arguments should be a list where each entry has the form:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
668
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
669 (FACE SPEC [NOW])
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
670
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
671 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
672 and non-nil, FACE will also be created according to SPEC.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
673
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
674 See `defface' for the format of SPEC." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
675
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
676 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
677
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
678 ;;;### (autoloads (disassemble) "disass" "lisp/disass.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
679
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
680 (autoload 'disassemble "disass" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
681 Print disassembled code for OBJECT in (optional) BUFFER.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
682 OBJECT can be a symbol defined as a function, or a function itself
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
683 \(a lambda expression or a compiled-function object).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
684 If OBJECT is not already compiled, we compile it, but do not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
685 redefine OBJECT if it is a symbol." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
686
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
687 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
688
219
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
689 ;;;### (autoloads (standard-display-european standard-display-underline standard-display-graphic standard-display-g1 standard-display-ascii standard-display-default standard-display-8bit make-display-table describe-current-display-table) "disp-table" "lisp/disp-table.el")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
690
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
691 (autoload 'describe-current-display-table "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
692 Describe the display table in use in the selected window and buffer." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
693
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
694 (autoload 'make-display-table "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
695 Return a new, empty display table." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
696
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
697 (autoload 'standard-display-8bit "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
698 Display characters in the range L to H literally." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
699
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
700 (autoload 'standard-display-default "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
701 Display characters in the range L to H using the default notation." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
702
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
703 (autoload 'standard-display-ascii "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
704 Display character C using printable string S." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
705
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
706 (autoload 'standard-display-g1 "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
707 Display character C as character SC in the g1 character set.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
708 This function assumes that your terminal uses the SO/SI characters;
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
709 it is meaningless for an X frame." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
710
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
711 (autoload 'standard-display-graphic "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
712 Display character C as character GC in graphics character set.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
713 This function assumes VT100-compatible escapes; it is meaningless for an
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
714 X frame." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
715
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
716 (autoload 'standard-display-underline "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
717 Display character C as character UC plus underlining." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
718
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
719 (autoload 'standard-display-european "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
720 Toggle display of European characters encoded with ISO 8859.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
721 When enabled, characters in the range of 160 to 255 display not
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
722 as octal escapes, but as accented characters.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
723 With prefix argument, enable European character display iff arg is positive." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
724
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
725 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
726
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
727 ;;;### (autoloads nil "easymenu" "lisp/easymenu.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
728
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
729 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
730
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
731 ;;;### (autoloads (tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file tag-complete-symbol find-tag-other-window find-tag visit-tags-table) "etags" "lisp/etags.el")
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
732
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
733 (autoload 'visit-tags-table "etags" "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
734 Tell tags commands to use tags table file FILE when all else fails.
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
735 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
736 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
737
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
738 (autoload 'find-tag "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
739 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
740 Selects the buffer that the tag is contained in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
741 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
742 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
743 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
744 If called interactively with a numeric argument, searches for the next tag
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
745 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
746 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
747 the tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
748
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
749 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
750 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
751
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
752 Variables of note:
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 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
755 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
756 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
757 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
758 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
759 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
760
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
761 (autoload 'find-tag-other-window "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
762 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
763 Selects the buffer that the tag is contained in in another window
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
764 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
765 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
766 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
767 If second arg NEXT is non-nil (interactively, with prefix arg),
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
768 searches for the next tag in the tag table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
769 that matches the tagname used in the previous find-tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
770
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
771 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
772 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
773
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
774 Variables of note:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
775
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
776 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
777 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
778 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
779 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
780 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
781 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
782
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
783 (autoload 'tag-complete-symbol "etags" "\
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
784 The function used to do tags-completion (using 'tag-completion-predicate)." t nil)
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
785
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
786 (autoload 'next-file "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
787 Select next file among files in current tag table(s).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
788
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
789 A first argument of t (prefix arg, if interactive) initializes to the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
790 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
791 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
792
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
793 Non-nil second argument NOVISIT means use a temporary buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
794 to save time and avoid uninteresting warnings.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
795
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
796 Value is nil if the file was already visited;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
797 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
798
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
799 (autoload 'tags-loop-continue "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
800 Continue last \\[tags-search] or \\[tags-query-replace] command.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
801 Used noninteractively with non-nil argument to begin such a command (the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
802 argument is passed to `next-file', which see).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
803 Two variables control the processing we do on each file:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
804 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
805 to see if it is interesting (it returns non-nil if so)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
806 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
807 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
808
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
809 (autoload 'tags-search "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
810 Search through all files listed in tags table for match for REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
811 Stops when a match is found.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
812 To continue searching for next match, use command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
813
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
814 See documentation of variable `tag-table-alist'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
815
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
816 (autoload 'tags-query-replace "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
817 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
818 Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
819 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
820 with the command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
821
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
822 See documentation of variable `tag-table-alist'." t nil)
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 (autoload 'list-tags "etags" "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
825 Display list of tags in FILE." t nil)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
826
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
827 (autoload 'tags-apropos "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
828 Display list of all tags in tag table REGEXP matches." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
829
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
830 (define-key esc-map "*" 'pop-tag-mark)
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
831
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
832 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
833
239
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
834 ;;;### (autoloads (finder-by-keyword) "finder" "lisp/finder.el")
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
835
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
836 (autoload 'finder-by-keyword "finder" "\
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
837 Find packages matching a given keyword." t nil)
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
838
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
839 ;;;***
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
840
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
841 ;;;### (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
842
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
843 (defcustom font-lock-auto-fontify t "*Whether font-lock should automatically fontify files as they're loaded.\nThis will only happen if font-lock has fontifying keywords for the major\nmode of the file. You can get finer-grained control over auto-fontification\nby using this variable in combination with `font-lock-mode-enable-list' or\n`font-lock-mode-disable-list'." :type 'boolean :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
844
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
845 (defcustom font-lock-mode-enable-list nil "*List of modes to auto-fontify, if `font-lock-auto-fontify' is nil." :type '(repeat (symbol :tag "Mode")) :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
846
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
847 (defcustom font-lock-mode-disable-list nil "*List of modes not to auto-fontify, if `font-lock-auto-fontify' is t." :type '(repeat (symbol :tag "Mode")) :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
848
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
849 (defcustom font-lock-use-colors '(color) "*Specification for when Font Lock will set up color defaults.\nNormally this should be '(color), meaning that Font Lock will set up\ncolor defaults that are only used on color displays. Set this to nil\nif you don't want Font Lock to set up color defaults at all. This\nshould be one of\n\n-- a list of valid tags, meaning that the color defaults will be used\n when all of the tags apply. (e.g. '(color x))\n-- a list whose first element is 'or and whose remaining elements are\n lists of valid tags, meaning that the defaults will be used when\n any of the tag lists apply.\n-- nil, meaning that the defaults should not be set up at all.\n\n(If you specify face values in your init file, they will override any\nthat Font Lock specifies, regardless of whether you specify the face\nvalues before or after loading Font Lock.)\n\nSee also `font-lock-use-fonts'. If you want more control over the faces\nused for fontification, see the documentation of `font-lock-mode' for\nhow to do it." :type 'sexp :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
850
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
851 (defcustom font-lock-use-fonts '(or (mono) (grayscale)) "*Specification for when Font Lock will set up non-color defaults.\n\nNormally this should be '(or (mono) (grayscale)), meaning that Font\nLock will set up non-color defaults that are only used on either mono\nor grayscale displays. Set this to nil if you don't want Font Lock to\nset up non-color defaults at all. This should be one of\n\n-- a list of valid tags, meaning that the non-color defaults will be used\n when all of the tags apply. (e.g. '(grayscale x))\n-- a list whose first element is 'or and whose remaining elements are\n lists of valid tags, meaning that the defaults will be used when\n any of the tag lists apply.\n-- nil, meaning that the defaults should not be set up at all.\n\n(If you specify face values in your init file, they will override any\nthat Font Lock specifies, regardless of whether you specify the face\nvalues before or after loading Font Lock.)\n\nSee also `font-lock-use-colors'. If you want more control over the faces\nused for fontification, see the documentation of `font-lock-mode' for\nhow to do it." :type 'sexp :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
852
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
853 (defcustom font-lock-maximum-decoration t "*If non-nil, the maximum decoration level for fontifying.\nIf nil, use the minimum decoration (equivalent to level 0).\nIf t, use the maximum decoration available.\nIf a number, use that level of decoration (or if not available the maximum).\nIf a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL),\nwhere MAJOR-MODE is a symbol or t (meaning the default). For example:\n ((c++-mode . 2) (c-mode . t) (t . 1))\nmeans use level 2 decoration for buffers in `c++-mode', the maximum decoration\navailable for buffers in `c-mode', and level 1 decoration otherwise." :type '(choice (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1) (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t . t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Decoration" (const :tag "default" nil) (const :tag "maximum" t) (integer :tag "level" 1))))) :group 'font-lock)
217
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 (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
856
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
857 (defcustom font-lock-maximum-size (* 250 1024) "*If non-nil, the maximum size for buffers for fontifying.\nOnly buffers less than this can be fontified when Font Lock mode is turned on.\nIf nil, means size is irrelevant.\nIf a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),\nwhere MAJOR-MODE is a symbol or t (meaning the default). For example:\n ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576))\nmeans that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one\nmegabyte for buffers in `rmail-mode', and size is irrelevant otherwise." :type '(choice (const :tag "none" nil) (integer :tag "size") (repeat :menu-tag "mode specific" :tag "mode specific" :value ((t)) (cons :tag "Instance" (radio :tag "Mode" (const :tag "all" t) (symbol :tag "name")) (radio :tag "Size" (const :tag "none" nil) (integer :tag "size"))))) :group 'font-lock)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
858
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
859 (defvar font-lock-keywords nil "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
860 A list of the keywords to highlight.
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
861 Each element should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
862
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
863 MATCHER
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
864 (MATCHER . MATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
865 (MATCHER . FACENAME)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
866 (MATCHER . HIGHLIGHT)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
867 (MATCHER HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
868 (eval . FORM)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
869
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
870 where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
871
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
872 FORM is an expression, whose value should be a keyword element,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
873 evaluated when the keyword is (first) used in a buffer. This feature
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
874 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
875 Lock mode is actually turned on.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
876
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
877 For highlighting single items, typically only MATCH-HIGHLIGHT is required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
878 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
879 instance of another item (the anchor) then MATCH-ANCHORED may be required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
880
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
881 MATCH-HIGHLIGHT should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
882
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
883 (MATCH FACENAME OVERRIDE LAXMATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
884
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
885 Where MATCHER can be either the regexp to search for, a variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
886 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
887 the search (called with one argument, the limit of the search). MATCH
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
888 is the subexpression of MATCHER to be highlighted. FACENAME is either
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
889 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
890 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
891 use a form like \"(progn sym)\".
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
892
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
893 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
894 be overwritten. If `keep', only parts not already fontified are highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
895 If `prepend' or `append', existing fontification is merged with the new, in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
896 which the new or existing fontification, respectively, takes precedence.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
897 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
898
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
899 For example, an element of the form highlights (if not already highlighted):
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
900
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
901 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
902 variable `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
903 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
904 the value of `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
905 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
906 (\"foo\\\\|bar\" 0 foo-bar-face t)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
907 Occurrences of either \"foo\" or \"bar\" in the value
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
908 of `foo-bar-face', even if already highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
909
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
910 MATCH-ANCHORED should be of the form:
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 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
913
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
914 Where MATCHER is as for MATCH-HIGHLIGHT with one exception; see below.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
915 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
916 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
917 used to initialise before, and cleanup after, MATCHER is used. Typically,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
918 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
919 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
920 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
921
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
922 For example, an element of the form highlights (if not already highlighted):
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
923
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
924 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
925
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
926 Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
927 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
928 (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
929 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
930 searching for subsequent instance of \"anchor\" resumes from where searching
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
931 for \"item\" concluded.)
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 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
934 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
935 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
936 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
937 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
938 line, i.e., cause the MATCHER search to span lines.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
939
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
940 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
941 replace it with other ways of providing this functionality.
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 These regular expressions should not match text which spans lines. While
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
944 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
945 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
946
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
947 Be very careful composing regexps for this list;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
948 the wrong pattern can dramatically slow things down!")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
949
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
950 (make-variable-buffer-local 'font-lock-keywords)
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 (defvar font-lock-mode nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
953
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
954 (defvar font-lock-mode-hook nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
955 Function or functions to run on entry to font-lock-mode.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
956
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
957 (autoload 'font-lock-mode "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
958 Toggle Font Lock Mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
959 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
960
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
961 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
962
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
963 - Comments are displayed in `font-lock-comment-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
964 - Strings are displayed in `font-lock-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
965 - Documentation strings (in Lisp-like languages) are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
966 `font-lock-doc-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
967 - Language keywords (\"reserved words\") are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
968 `font-lock-keyword-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
969 - Function names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
970 `font-lock-function-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
971 - Variable names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
972 `font-lock-variable-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
973 - Type names are displayed in `font-lock-type-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
974 - References appearing in help files and the like are displayed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
975 in `font-lock-reference-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
976 - Preprocessor declarations are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
977 `font-lock-preprocessor-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
978
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
979 and
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
980
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
981 - Certain other expressions are displayed in other faces according
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
982 to the value of the variable `font-lock-keywords'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
983
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
984 Where modes support different levels of fontification, you can use the variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
985 `font-lock-maximum-decoration' to specify which level you generally prefer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
986 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
987 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
988 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
989 size, you can use \\[font-lock-fontify-buffer].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
990
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
991 See the variable `font-lock-keywords' for customization." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
992
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
993 (autoload 'turn-on-font-lock "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
994 Unconditionally turn on Font Lock mode." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
995
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
996 (autoload 'turn-off-font-lock "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
997 Unconditionally turn off Font Lock mode." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
998
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
999 (autoload 'font-lock-fontify-buffer "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1000 Fontify the current buffer the way `font-lock-mode' would.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1001 See `font-lock-mode' for details.
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 This can take a while for large buffers." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1004
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1005 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1006
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1007 (add-minor-mode 'font-lock-mode " Font")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1008
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
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1011 ;;;### (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
1012
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1013 (autoload 'font-create-object "font" nil 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 'font-default-font-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1016
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1017 (autoload 'font-default-object-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1018
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1019 (autoload 'font-default-family-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1020
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1021 (autoload 'font-default-registry-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1022
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1023 (autoload 'font-default-encoding-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1024
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1025 (autoload 'font-default-size-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1026
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1027 (autoload 'x-font-build-cache "font" nil nil nil)
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
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1031 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1032
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1033 (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
1034
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1035 (autoload 'gnuserv-running-p "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1036 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
1037
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1038 (autoload 'gnuserv-start "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1039 Allow this Emacs process to be a server for client processes.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1040 This starts a gnuserv communications subprocess through which
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1041 client \"editors\" (gnuclient and gnudoit) can send editing commands to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1042 this Emacs job. See the gnuserv(1) manual page for more details.
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 Prefix arg means just kill any existing server communications subprocess." t 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 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1047
247
e70b3a057e12 Import from CVS: tag r20-5b22
cvs
parents: 243
diff changeset
1048 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el")
217
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 (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
1051
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1052 ;;;***
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 ;;;### (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
1055
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1056 (autoload 'hyper-apropos "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1057 Display lists of functions and variables matching REGEXP
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1058 in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1059 value of `hyper-apropos-programming-apropos' is toggled for this search.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1060 See also `hyper-apropos-mode'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1061
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1062 (autoload 'hyper-describe-key "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1063
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1064 (autoload 'hyper-describe-key-briefly "hyper-apropos" nil t nil)
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 (autoload 'hyper-describe-face "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1067 Describe face..
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1068 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1069
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1070 (autoload 'hyper-describe-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1071 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1072 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1073
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1074 (autoload 'hyper-describe-function "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1075 Hypertext replacement for `describe-function'. Unlike `describe-function'
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1076 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
1077 See also `hyper-apropos' and `hyper-describe-variable'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1078
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1079 (autoload 'hyper-apropos-read-variable-symbol "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1080 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1081 See also `hyper-apropos' and `hyper-describe-function'." nil 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 (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
1084
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1085 (define-obsolete-function-alias 'hypropos-get-doc 'hyper-apropos-get-doc)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1086
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1087 (autoload 'hyper-set-variable "hyper-apropos" nil 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-apropos-set-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1090 Interactively set the variable on the current line." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1091
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1092 (define-obsolete-function-alias 'hypropos-set-variable 'hyper-apropos-set-variable)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1093
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1094 (autoload 'hyper-apropos-popup-menu "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1095
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1096 (define-obsolete-function-alias 'hypropos-popup-menu 'hyper-apropos-popup-menu)
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 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1099
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1100 ;;;### (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
1101
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1102 (autoload 'info "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1103 Enter Info, the documentation browser.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1104 Optional argument FILE specifies the file to examine;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1105 the default is the top-level directory of Info.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1106
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1107 In interactive use, a prefix argument directs this command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1108 to read a file name from the minibuffer." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1109
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1110 (autoload 'Info-query "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1111 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
1112
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1113 (autoload 'Info-goto-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1114 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1115 Actually, the following interpretations of NAME are tried in order:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1116 (FILENAME)NODENAME
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1117 (FILENAME) (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1118 NODENAME (in current file)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1119 TAGNAME (see below)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1120 FILENAME (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1121 where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1122 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
1123
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1124 (autoload 'Info-visit-file "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1125 Directly visit an info file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1126
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1127 (autoload 'Info-search "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1128 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
1129
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1130 (autoload 'Info-emacs-command "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1131 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
1132 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
1133
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1134 (autoload 'Info-goto-emacs-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1135 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
1136 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
1137
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1138 (autoload 'Info-goto-emacs-key-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1139 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
1140 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
1141
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1142 (autoload 'Info-emacs-key "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1143 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
1144 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
1145
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1146 (autoload 'Info-elisp-ref "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1147 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
1148 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
1149
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1150 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1151
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1152 ;;;### (autoloads nil "itimer-autosave" "lisp/itimer-autosave.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1153
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1154 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1155
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1156 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1157
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1158 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1159
237
89ec2bb86eea Import from CVS: tag r20-5b17
cvs
parents: 233
diff changeset
1160 ;;;### (autoloads nil "loadhist" "lisp/loadhist.el")
233
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1161
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1162 ;;;***
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1163
265
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1164 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el")
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1165
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1166 (autoload 'mwheel-install "mwheel" "\
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1167 Enable mouse wheel support." nil nil)
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1168
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1169 ;;;***
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1170
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1171 ;;;### (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
1172
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1173 (autoload 'package-admin-add-single-file-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1174 Install a single file Lisp package into XEmacs package hierarchy.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1175 `file' should be the full path to the lisp file to install.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1176 `destdir' should be a simple directory name.
243
f220cc83d72e Import from CVS: tag r20-5b20
cvs
parents: 239
diff changeset
1177 The optional `pkg-dir' can be used to override the default package hierarchy
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1178 \(last package-path)." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1179
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1180 (autoload 'package-admin-add-binary-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1181 Install a pre-bytecompiled XEmacs package into package hierarchy." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1182
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1183 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1184
219
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1185 ;;;### (autoloads (picture-mode) "picture" "lisp/picture.el")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1186
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1187 (autoload 'picture-mode "picture" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1188 Switch to Picture mode, in which a quarter-plane screen model is used.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1189 Printing characters replace instead of inserting themselves with motion
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1190 afterwards settable by these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1191 C-c < Move left after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1192 C-c > Move right after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1193 C-c ^ Move up after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1194 C-c . Move down after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1195 C-c ` Move northwest (nw) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1196 C-c ' Move northeast (ne) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1197 C-c / Move southwest (sw) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1198 C-c \\ Move southeast (se) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1199 The current direction is displayed in the modeline. The initial
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1200 direction is right. Whitespace is inserted and tabs are changed to
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1201 spaces when required by movement. You can move around in the buffer
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1202 with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1203 \\[picture-move-down] Move vertically to SAME column in previous line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1204 \\[picture-move-up] Move vertically to SAME column in next line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1205 \\[picture-end-of-line] Move to column following last non-whitespace character.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1206 \\[picture-forward-column] Move right inserting spaces if required.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1207 \\[picture-backward-column] Move left changing tabs to spaces if required.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1208 C-c C-f Move in direction of current picture motion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1209 C-c C-b Move in opposite direction of current picture motion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1210 Return Move to beginning of next line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1211 You can edit tabular text with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1212 M-Tab Move to column beneath (or at) next interesting character.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1213 `Indents' relative to a previous line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1214 Tab Move to next stop in tab stop list.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1215 C-c Tab Set tab stops according to context of this line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1216 With ARG resets tab stops to default (global) value.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1217 See also documentation of variable picture-tab-chars
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1218 which defines \"interesting character\". You can manually
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1219 change the tab stop list with command \\[edit-tab-stops].
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1220 You can manipulate text with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1221 C-d Clear (replace) ARG columns after point without moving.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1222 C-c C-d Delete char at point - the command normally assigned to C-d.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1223 \\[picture-backward-clear-column] Clear (replace) ARG columns before point, moving back over them.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1224 \\[picture-clear-line] Clear ARG lines, advancing over them. The cleared
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1225 text is saved in the kill ring.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1226 \\[picture-open-line] Open blank line(s) beneath current line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1227 You can manipulate rectangles with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1228 C-c C-k Clear (or kill) a rectangle and save it.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1229 C-c C-w Like C-c C-k except rectangle is saved in named register.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1230 C-c C-y Overlay (or insert) currently saved rectangle at point.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1231 C-c C-x Like C-c C-y except rectangle is taken from named register.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1232 \\[copy-rectangle-to-register] Copies a rectangle to a register.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1233 \\[advertised-undo] Can undo effects of rectangle overlay commands
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1234 commands if invoked soon enough.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1235 You can return to the previous mode with:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1236 C-c C-c Which also strips trailing whitespace from every line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1237 Stripping is suppressed by supplying an argument.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1238
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1239 Entry to this mode calls the value of picture-mode-hook if non-nil.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1240
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1241 Note that Picture mode commands will work outside of Picture mode, but
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1242 they are not defaultly assigned to keys." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1243
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1244 (defalias 'edit-picture 'picture-mode)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1245
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1246 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1247
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1248 ;;;### (autoloads (clear-rectangle string-rectangle open-rectangle insert-rectangle yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle delete-rectangle) "rect" "lisp/rect.el")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1249
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1250 (autoload 'delete-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1251 Delete (don't save) text in rectangle with point and mark as corners.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1252 The same range of columns is deleted in each line starting with the line
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1253 where the region begins and ending with the line where the region ends." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1254
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1255 (autoload 'delete-extract-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1256 Delete contents of rectangle and return it as a list of strings.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1257 Arguments START and END are the corners of the rectangle.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1258 The value is list of strings, one for each line of the rectangle." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1259
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1260 (autoload 'extract-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1261 Return contents of rectangle with corners at START and END.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1262 Value is list of strings, one for each line of the rectangle." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1263
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1264 (defvar killed-rectangle nil "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1265 Rectangle for yank-rectangle to insert.")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1266
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1267 (autoload 'kill-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1268 Delete rectangle with corners at point and mark; save as last killed one.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1269 Calling from program, supply two args START and END, buffer positions.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1270 But in programs you might prefer to use `delete-extract-rectangle'." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1271
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1272 (autoload 'yank-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1273 Yank the last killed rectangle with upper left corner at point." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1274
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1275 (autoload 'insert-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1276 Insert text of RECTANGLE with upper left corner at point.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1277 RECTANGLE's first line is inserted at point, its second
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1278 line is inserted at a point vertically under point, etc.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1279 RECTANGLE should be a list of strings.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1280 After this command, the mark is at the upper left corner
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1281 and point is at the lower right corner." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1282
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1283 (autoload 'open-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1284 Blank out rectangle with corners at point and mark, shifting text right.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1285 The text previously in the region is not overwritten by the blanks,
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1286 but instead winds up to the right of the rectangle." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1287
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1288 (autoload 'string-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1289 Insert STRING on each line of the region-rectangle, shifting text right.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1290 The left edge of the rectangle specifies the column for insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1291 This command does not delete or overwrite any existing text.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1292
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1293 Called from a program, takes three args; START, END and STRING." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1294
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1295 (autoload 'clear-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1296 Blank out rectangle with corners at point and mark.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1297 The text previously in the region is overwritten by the blanks.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1298 When called from a program, requires two args which specify the corners." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1299
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1300 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1301
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1302 ;;;### (autoloads (list-load-path-shadows) "shadow" "lisp/shadow.el")
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 (autoload 'list-load-path-shadows "shadow" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1305 Display a list of Emacs Lisp files that shadow other files.
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 This function lists potential load-path problems. Directories in the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1308 `load-path' variable are searched, in order, for Emacs Lisp
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1309 files. When a previously encountered file name is found again, a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1310 message is displayed indicating that the later file is \"hidden\" by
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1311 the earlier.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1312
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1313 For example, suppose `load-path' is set to
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 \(\"/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
1316
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1317 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
1318 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
1319 \(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1320
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1321 The first XXX.el file prevents emacs from seeing the second (unless
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1322 the second is loaded explicitly via load-file).
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 When not intended, such shadowings can be the source of subtle
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1325 problems. For example, the above situation may have arisen because the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1326 XXX package was not distributed with versions of emacs prior to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1327 19.30. An emacs maintainer downloaded XXX from elsewhere and installed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1328 it. Later, XXX was updated and included in the emacs distribution.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1329 Unless the emacs maintainer checks for this, the new version of XXX
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1330 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
1331 emacs version).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1332
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1333 This function performs these checks and flags all possible
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1334 shadowings. Because a .el file may exist without a corresponding .elc
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1335 \(or vice-versa), these suffixes are essentially ignored. A file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1336 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
1337 considered to shadow a later file XXX.el, and vice-versa.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1338
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1339 When run interactively, the shadowings (if any) are displayed in a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1340 buffer called `*Shadows*'. Shadowings are located by calling the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1341 \(non-interactive) companion function, `find-emacs-lisp-shadows'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1342
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1343 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1344
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1345 ;;;### (autoloads (load-default-sounds load-sound-file) "sound" "lisp/sound.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1346
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1347 (or sound-alist (setq sound-alist '((ready nil) (warp nil))))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1348
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1349 (autoload 'load-sound-file "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1350 Read in an audio-file and add it to the sound-alist.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1351
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1352 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
1353 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1354 server and XEmacs has the necessary sound support compiled in.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1355
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1356 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
1357 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
1358
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1359 (autoload 'load-default-sounds "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1360 Load and install some sound files as beep-types, using
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1361 `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
1362 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1363 server and XEmacs has the necessary sound support compiled in." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1364
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1365 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1366
233
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1367 ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) "userlock" "lisp/userlock.el")
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1368
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1369 (autoload 'ask-user-about-lock "userlock" "\
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1370 Ask user what to do when he wants to edit FILE but it is locked by USER.
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1371 This function has a choice of three things to do:
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1372 do (signal 'file-locked (list FILE USER))
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1373 to refrain from editing the file
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1374 return t (grab the lock on the file)
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1375 return nil (edit the file even though it is locked).
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1376 You can rewrite it to use any criterion you like to choose which one to do." nil nil)
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1377
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1378 (autoload 'ask-user-about-supersession-threat "userlock" "\
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1379 Ask a user who is about to modify an obsolete buffer what to do.
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1380 This function has two choices: it can return, in which case the modification
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1381 of the buffer will proceed, or it can (signal 'file-supersession (file)),
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1382 in which case the proposed buffer modification will not be made.
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1383
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1384 You can rewrite this to use any criterion you like to choose which one to do.
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1385 The buffer in question is current when this function is called." nil nil)
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1386
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1387 ;;;***
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1388
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1389 ;;;### (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
1390
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1391 (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
1392
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1393 (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
1394
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1395 (autoload 'view-file "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1396 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
1397
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1398 (autoload 'view-buffer "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1399 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
1400
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1401 (autoload 'view-file-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1402 Find FILE in other window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1403
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1404 (autoload 'view-buffer-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1405 Switch to BUFFER in another window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1406
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1407 (autoload 'view-minor-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1408 Minor mode for viewing text, with bindings like `less'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1409 Commands are:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1410 \\<view-minor-mode-map>
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1411 0..9 prefix args
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1412 - prefix minus
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1413 \\[scroll-up] page forward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1414 \\[scroll-down] page back
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1415 \\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1416 \\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1417 \\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1418 \\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1419 \\[what-line] print line number
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1420 \\[view-mode-describe] print this help message
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1421 \\[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
1422 \\[view-search-backward] as above but searches backward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1423 \\[view-repeat-search] repeat last search
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1424 \\[view-goto-line] goto line prefix-arg, default 1
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1425 \\[view-last-windowful] goto line prefix-arg, default last line
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1426 \\[view-goto-percent] goto a position by percentage
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1427 \\[toggle-truncate-lines] toggle truncate-lines
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1428 \\[view-file] view another file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1429 \\[view-buffer] view another buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1430 \\[view-cleanup-backspaces] cleanup backspace constructions
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1431 \\[shell-command] execute a shell command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1432 \\[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
1433 \\[view-quit] exit view-mode, and bury the current buffer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1434
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1435 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
1436 backspace constructions.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1437
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1438 More precisely:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1439 \\{view-minor-mode-map}" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1440
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1441 (autoload 'view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1442 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
1443 compatible with the implementations of `view-mode' in view.el and older
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1444 versions of view-less.el." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1445
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1446 (autoload 'view-major-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1447 View the current buffer using view-mode, as a major mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1448 This function has a nonstandard name because `view-mode' is wrongly
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1449 named but is like this for compatibility reasons." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1450
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1451 (autoload 'auto-view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1452 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
1453 This is meant to be added to `find-file-hooks'." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1454
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1455 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1456
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1457 ;;;### (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
1458
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1459 (autoload 'widget-browse-at "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1460 Browse the widget under point." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1461
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1462 (autoload 'widget-browse "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1463 Create a widget browser for WIDGET." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1464
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1465 (autoload 'widget-browse-other-window "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1466 Show widget browser for WIDGET in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1467
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1468 (autoload 'widget-minor-mode "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1469 Togle minor mode for traversing widgets.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1470 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
1471
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1472 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1473
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1474 ;;;### (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
1475
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1476 (autoload 'widget-prompt-value "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1477 Prompt for a value matching WIDGET, using PROMPT.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1478 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
1479
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1480 (autoload 'widget-create "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1481 Create widget of TYPE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1482 The optional ARGS are additional keyword arguments." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1483
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1484 (autoload 'widget-delete "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1485 Delete WIDGET." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1486
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1487 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1488
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1489 ;;;### (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
1490
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1491 (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
1492
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1493 (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
1494
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1495 (fset 'install-font-menus 'reset-device-font-menus)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1496
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1497 (autoload 'reset-device-font-menus "x-font-menu" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1498 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1499 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
1500 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
1501 `create-device-hook' and that will make the font menus respond more quickly
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1502 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
1503 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
1504
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1505 (autoload 'font-menu-family-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1506
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1507 (autoload 'font-menu-size-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1508
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1509 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1510
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1511 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1512
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1513 (provide 'Standard-autoloads)