annotate lisp/auto-autoloads.el @ 385:bc48d89bf15c

Added tag r21-2-7 for changeset bbff43aa5eb7
author cvs
date Mon, 13 Aug 2007 11:08:25 +0200
parents d883f39b8495
children aabb7f5b1c81
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).
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
57 This functions refuses to update autoloads files." t nil)
217
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
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
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-buffer byte-compile-and-load-file byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el")
209
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
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
126 (autoload 'byte-compile-and-load-file "bytecomp" "\
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
127 Compile a file of Lisp code named FILENAME into a file of byte code,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
128 and then load it. The output file's name is made by appending \"c\" to
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
129 the end of FILENAME." t nil)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
130
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
131 (autoload 'byte-compile-buffer "bytecomp" "\
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
132 Byte-compile and evaluate contents of BUFFER (default: the current buffer)." t nil)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
133
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
134 (autoload 'compile-defun "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
135 Compile and evaluate the current top-level form.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
136 Print the result in the minibuffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
137 With argument, insert value in current buffer after the form." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
138
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
139 (autoload 'byte-compile "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
140 If FORM is a symbol, byte-compile its function definition.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
141 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
142
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
143 (autoload 'byte-compile-sexp "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
144 Compile and return SEXP." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
145
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
146 (autoload 'display-call-tree "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
147 Display a call graph of a specified file.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
148 This lists which functions have been called, what functions called
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
149 them, and what functions they call. The list includes all functions
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
150 whose definitions have been compiled in this Emacs session, as well as
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
151 all functions called by those functions.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
152
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
153 The call graph does not include macros, inline functions, or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
154 primitives that the byte-code interpreter knows about directly (eq,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
155 cons, etc.).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
156
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
157 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
158 \(that is, to which no calls have been compiled), and which cannot be
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
159 invoked interactively." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
160
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
161 (autoload 'batch-byte-compile "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
162 Run `byte-compile-file' on the files remaining on the command line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
163 Use this from the command line, with `-batch';
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
164 it won't work in an interactive Emacs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
165 Each file is processed even if an error occurred previously.
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
166 For example, invoke \"xemacs -batch -f batch-byte-compile $emacs/ ~/*.el\"" nil nil)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
167
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
168 (autoload 'batch-byte-recompile-directory-norecurse "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
169 Same as `batch-byte-recompile-directory' but without recursion." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
170
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
171 (autoload 'batch-byte-recompile-directory "bytecomp" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
172 Runs `byte-recompile-directory' on the dirs remaining on the command line.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
173 Must be used only with `-batch', and kills Emacs on completion.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
174 For example, invoke `xemacs -batch -f batch-byte-recompile-directory .'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
175
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
176 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
177
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
178 ;;;### (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
179
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
180 (autoload 'cl-compile-time-init "cl-macs" nil 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 'gensym "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
183 Generate a new uninterned symbol.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
184 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
185
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
186 (autoload 'gentemp "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
187 Generate a new interned symbol with a unique name.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
188 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
189
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
190 (autoload 'defun* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
191 (defun* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a function.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
192 Like normal `defun', except ARGLIST allows full Common Lisp conventions,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
193 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
194
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
195 (autoload 'defmacro* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
196 (defmacro* NAME ARGLIST [DOCSTRING] BODY...): define NAME as a macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
197 Like normal `defmacro', except ARGLIST allows full Common Lisp conventions,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
198 and BODY is implicitly surrounded by (block NAME ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
199
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
200 (autoload 'function* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
201 (function* SYMBOL-OR-LAMBDA): introduce a function.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
202 Like normal `function', except that if argument is a lambda form, its
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
203 ARGLIST allows full Common Lisp conventions." 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 'destructuring-bind "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
206
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
207 (autoload 'eval-when "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
208 (eval-when (WHEN...) BODY...): control when BODY is evaluated.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
209 If `compile' is in WHEN, BODY is evaluated when compiled at top-level.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
210 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
211 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
212
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
213 (autoload 'load-time-value "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
214 Like `progn', but evaluates the body at load time.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
215 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
216
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
217 (autoload 'case "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
218 (case EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
219 Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
220 against each key in each KEYLIST; the corresponding BODY is evaluated.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
221 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
222 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
223 allowed only in the final clause, and matches if no other keys match.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
224 Key values are compared by `eql'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
225
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
226 (autoload 'ecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
227 (ecase EXPR CLAUSES...): like `case', but error if no case fits.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
228 `otherwise'-clauses are not allowed." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
229
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
230 (autoload 'typecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
231 (typecase EXPR CLAUSES...): evals EXPR, chooses from CLAUSES on that value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
232 Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
233 satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
234 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
235 final clause, and matches if no other keys match." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
236
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
237 (autoload 'etypecase "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
238 (etypecase EXPR CLAUSES...): like `typecase', but error if no case fits.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
239 `otherwise'-clauses are not allowed." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
240
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
241 (autoload 'block "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
242 (block NAME BODY...): define a lexically-scoped block named NAME.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
243 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
244 to jump prematurely out of the block. This differs from `catch' and `throw'
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
245 in two respects: First, the NAME is an unevaluated symbol rather than a
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
246 quoted symbol or other form; and second, NAME is lexically rather than
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
247 dynamically scoped: Only references to it within BODY will work. These
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
248 references may appear inside macro expansions, but not inside functions
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
249 called from BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
250
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
251 (autoload 'return "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
252 (return [RESULT]): return from the block named nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
253 This is equivalent to `(return-from nil RESULT)'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
254
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
255 (autoload 'return-from "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
256 (return-from NAME [RESULT]): return from the block named NAME.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
257 This jump out to the innermost enclosing `(block NAME ...)' form,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
258 returning RESULT from that form (or nil if RESULT is omitted).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
259 This is compatible with Common Lisp, but note that `defun' and
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
260 `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
261
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
262 (autoload 'loop "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
263 (loop CLAUSE...): The Common Lisp `loop' macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
264 Valid clauses are:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
265 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
266 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
267 for VAR across ARRAY, repeat NUM, with VAR = INIT, while COND, until COND,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
268 always COND, never COND, thereis COND, collect EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
269 append EXPR into VAR, nconc EXPR into VAR, sum EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
270 count EXPR into VAR, maximize EXPR into VAR, minimize EXPR into VAR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
271 if COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
272 unless COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
273 do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
274 finally return EXPR, named NAME." 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 'do "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
277 The Common Lisp `do' loop.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
278 Format is: (do ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
279
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
280 (autoload 'do* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
281 The Common Lisp `do*' loop.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
282 Format is: (do* ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
283
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
284 (autoload 'dolist "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
285 (dolist (VAR LIST [RESULT]) BODY...): loop over a list.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
286 Evaluate BODY with VAR bound to each `car' from LIST, in turn.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
287 Then evaluate RESULT to get return value, default nil." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
288
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
289 (autoload 'dotimes "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
290 (dotimes (VAR COUNT [RESULT]) BODY...): loop a certain number of times.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
291 Evaluate BODY with VAR bound to successive integers from 0, inclusive,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
292 to COUNT, exclusive. Then evaluate RESULT to get return value, default
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
293 nil." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
294
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
295 (autoload 'do-symbols "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
296 (dosymbols (VAR [OBARRAY [RESULT]]) BODY...): loop over all symbols.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
297 Evaluate BODY with VAR bound to each interned symbol, or to each symbol
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
298 from OBARRAY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
299
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
300 (autoload 'do-all-symbols "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
301
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
302 (autoload 'psetq "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
303 (psetq SYM VAL SYM VAL ...): set SYMs to the values VALs in parallel.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
304 This is like `setq', except that all VAL forms are evaluated (in order)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
305 before assigning any symbols SYM to the corresponding values." 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 'progv "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
308 (progv SYMBOLS VALUES BODY...): bind SYMBOLS to VALUES dynamically in BODY.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
309 The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
310 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
311 second list (or made unbound if VALUES is shorter than SYMBOLS); then the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
312 BODY forms are executed and their result is returned. This is much like
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
313 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
314
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
315 (autoload 'flet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
316 (flet ((FUNC ARGLIST BODY...) ...) FORM...): make temporary function defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
317 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
318 rather than its value cell. The FORMs are evaluated with the specified
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
319 function definitions in place, then the definitions are undone (the FUNCs
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
320 go back to their previous definitions, or lack thereof)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
321
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
322 (autoload 'labels "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
323 (labels ((FUNC ARGLIST BODY...) ...) FORM...): make temporary func bindings.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
324 This is like `flet', except the bindings are lexical instead of dynamic.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
325 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
326
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
327 (autoload 'macrolet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
328 (macrolet ((NAME ARGLIST BODY...) ...) FORM...): make temporary macro defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
329 This is like `flet', but for macros instead of functions." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
330
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
331 (autoload 'symbol-macrolet "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
332 (symbol-macrolet ((NAME EXPANSION) ...) FORM...): make symbol macro defns.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
333 Within the body FORMs, references to the variable NAME will be replaced
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
334 by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
335
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
336 (autoload 'lexical-let "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
337 (lexical-let BINDINGS BODY...): like `let', but lexically scoped.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
338 The main visible difference is that lambdas inside BODY will create
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
339 lexical closures as in Common Lisp." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
340
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
341 (autoload 'lexical-let* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
342 (lexical-let* BINDINGS BODY...): like `let*', but lexically scoped.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
343 The main visible difference is that lambdas inside BODY will create
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
344 lexical closures as in Common Lisp." 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-bind "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
347 (multiple-value-bind (SYM SYM...) FORM BODY): collect multiple return values.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
348 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
349 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
350 is analogous to the Common Lisp `multiple-value-bind' macro, using lists to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
351 simulate true multiple return values. For compatibility, (values A B C) is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
352 a synonym for (list A B C)." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
353
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
354 (autoload 'multiple-value-setq "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
355 (multiple-value-setq (SYM SYM...) FORM): collect multiple return values.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
356 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
357 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
358 `multiple-value-setq' macro, using lists to simulate true multiple return
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
359 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
360
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
361 (autoload 'locally "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
362
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
363 (autoload 'the "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
364
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
365 (autoload 'declare "cl-macs" nil nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
366
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
367 (autoload 'define-setf-method "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
368 (define-setf-method NAME ARGLIST BODY...): define a `setf' method.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
369 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
370 The argument forms ARGS are bound according to ARGLIST, as if NAME were
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
371 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
372 return a list of five elements: a temporary-variables list, a value-forms
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
373 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
374 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
375
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
376 (autoload 'defsetf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
377 (defsetf NAME FUNC): define a `setf' method.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
378 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
379 well for simple place forms. In the simple `defsetf' form, `setf's of
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
380 the form (setf (NAME ARGS...) VAL) are transformed to function or macro
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
381 calls of the form (FUNC ARGS... VAL). Example: (defsetf aref aset).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
382 Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
383 Here, the above `setf' call is expanded by binding the argument forms ARGS
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
384 according to ARGLIST, binding the value form VAL to STORE, then executing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
385 BODY, which must return a Lisp form that does the necessary `setf' operation.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
386 Actually, ARGLIST and STORE may be bound to temporary variables which are
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
387 introduced automatically to preserve proper execution order of the arguments.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
388 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
389
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
390 (autoload 'get-setf-method "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
391 Return a list of five values describing the setf-method for PLACE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
392 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
393 a macro like `setf' or `incf'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
394
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
395 (autoload 'setf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
396 (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
397 This is a generalized version of `setq'; the PLACEs may be symbolic
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
398 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
399 For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
400 The return value is the last VAL in the list." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
401
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
402 (autoload 'psetf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
403 (psetf PLACE VAL PLACE VAL ...): set PLACEs to the values VALs in parallel.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
404 This is like `setf', except that all VAL forms are evaluated (in order)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
405 before assigning any PLACEs to the corresponding values." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
406
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
407 (autoload 'cl-do-pop "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
408
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
409 (autoload 'remf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
410 (remf PLACE TAG): remove TAG from property list PLACE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
411 PLACE may be a symbol, or any generalized variable allowed by `setf'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
412 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
413
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
414 (autoload 'shiftf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
415 (shiftf PLACE PLACE... VAL): shift left among PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
416 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
417 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
418
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
419 (autoload 'rotatef "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
420 (rotatef PLACE...): rotate left among PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
421 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
422 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
423
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
424 (autoload 'letf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
425 (letf ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
426 This is the analogue of `let', but with generalized variables (in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
427 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
428 VALUE, then the BODY forms are executed. On exit, either normally or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
429 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
430 values. Note that this macro is *not* available in Common Lisp.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
431 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
432 the PLACE is not modified before executing BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
433
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
434 (autoload 'letf* "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
435 (letf* ((PLACE VALUE) ...) BODY...): temporarily bind to PLACEs.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
436 This is the analogue of `let*', but with generalized variables (in the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
437 sense of `setf') for the PLACEs. Each PLACE is set to the corresponding
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
438 VALUE, then the BODY forms are executed. On exit, either normally or
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
439 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
440 values. Note that this macro is *not* available in Common Lisp.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
441 As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
442 the PLACE is not modified before executing BODY." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
443
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
444 (autoload 'callf "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
445 (callf FUNC PLACE ARGS...): set PLACE to (FUNC PLACE ARGS...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
446 FUNC should be an unquoted function name. PLACE may be a symbol,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
447 or any generalized variable allowed by `setf'." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
448
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
449 (autoload 'callf2 "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
450 (callf2 FUNC ARG1 PLACE ARGS...): set PLACE to (FUNC ARG1 PLACE ARGS...).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
451 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
452
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
453 (autoload 'define-modify-macro "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
454 (define-modify-macro NAME ARGLIST FUNC): define a `setf'-like modify macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
455 If NAME is called, it combines its PLACE argument with the other arguments
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
456 from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)" nil 'macro)
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 'defstruct "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
459 (defstruct (NAME OPTIONS...) (SLOT SLOT-OPTS...)...): define a struct type.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
460 This macro defines a new Lisp data type called NAME, which contains data
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
461 stored in SLOTs. This defines a `make-NAME' constructor, a `copy-NAME'
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
462 copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
463
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
464 (autoload 'cl-struct-setf-expander "cl-macs" nil 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 'deftype "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
467 (deftype NAME ARGLIST BODY...): define NAME as a new data type.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
468 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
469
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
470 (autoload 'typep "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
471 Check that OBJECT is of type TYPE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
472 TYPE is a Common Lisp-style type specifier." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
473
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
474 (autoload 'check-type "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
475 Verify that FORM is of type TYPE; signal an error if not.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
476 STRING is an optional description of the desired type." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
477
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
478 (autoload 'assert "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
479 Verify that FORM returns non-nil; signal an error if not.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
480 Second arg SHOW-ARGS means to include arguments of FORM in message.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
481 Other args STRING and ARGS... are arguments to be passed to `error'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
482 They are not evaluated unless the assertion fails. If STRING is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
483 omitted, a default message listing FORM itself is used." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
484
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
485 (autoload 'ignore-errors "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
486 Execute FORMS; if an error occurs, return nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
487 Otherwise, return result of last FORM." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
488
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
489 (autoload 'define-compiler-macro "cl-macs" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
490 (define-compiler-macro FUNC ARGLIST BODY...): Define a compiler-only macro.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
491 This is like `defmacro', but macro expansion occurs only if the call to
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
492 FUNC is compiled (i.e., not interpreted). Compiler macros should be used
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
493 for optimizing the way calls to FUNC are compiled; the form returned by
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
494 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
495 FUNC, though possibly more efficiently. Note that, like regular macros,
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
496 compiler macros are expanded repeatedly until no further expansions are
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
497 possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
498 original function call alone by declaring an initial `&whole foo' parameter
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
499 and then returning foo." nil 'macro)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
500
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
501 (autoload 'compiler-macroexpand "cl-macs" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
502
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
503 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
504
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
505 ;;;### (autoloads (batch-remove-old-elc) "cleantree" "lisp/cleantree.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
506
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
507 (autoload 'batch-remove-old-elc "cleantree" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
508
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
509 ;;;***
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 ;;;### (autoloads (config-value config-value-hash-table) "config" "lisp/config.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
512
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
513 (autoload 'config-value-hash-table "config" "\
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
514 Return hashtable of configuration parameters and their values." nil nil)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
515
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
516 (autoload 'config-value "config" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
517 Return the value of the configuration parameter CONFIG_SYMBOL." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
518
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
519 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
520
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
521 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp/cus-dep.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
522
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
523 (autoload 'Custom-make-dependencies "cus-dep" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
524 Extract custom dependencies from .el files in SUBDIRS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
525 SUBDIRS is a list of directories. If it is nil, the command-line
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
526 arguments are used. If it is a string, only that directory is
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
527 processed. This function is especially useful in batch mode.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
528
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
529 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
530
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
531 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
532
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
533 ;;;### (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
534
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
535 (autoload 'customize-set-value "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
536 Set VARIABLE to VALUE. VALUE is a Lisp object.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
537
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
538 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
539 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
540
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
541 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
542 `: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
543
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
544 (autoload 'customize-set-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
545 Set the default for VARIABLE to VALUE. VALUE is a Lisp object.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
546
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
547 If VARIABLE has a `custom-set' property, that is used for setting
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
548 VARIABLE, otherwise `set-default' is used.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
549
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
550 The `customized-value' property of the VARIABLE will be set to a list
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
551 with a quoted VALUE as its sole list member.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
552
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
553 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
554 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
555
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
556 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
557 `: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
558
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
559 (autoload 'customize-save-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
560 Set the default for VARIABLE to VALUE, and save it for future sessions.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
561 If VARIABLE has a `custom-set' property, that is used for setting
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
562 VARIABLE, otherwise `set-default' is used.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
563
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
564 The `customized-value' property of the VARIABLE will be set to a list
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
565 with a quoted VALUE as its sole list member.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
566
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
567 If VARIABLE has a `variable-interactive' property, that is used as if
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
568 it were the arg to `interactive' (which see) to interactively read the value.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
569
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
570 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
571 `: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
572
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
573 (autoload 'customize "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
574 Select a customization buffer which you can use to set user options.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
575 User options are structured into \"groups\".
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
576 The default group is `Emacs'." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
577
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
578 (defalias 'customize-group 'customize)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
579
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
580 (autoload 'customize-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
581 Customize SYMBOL, which must be a customization group." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
582
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
583 (defalias 'customize-group-other-window 'customize-other-window)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
584
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
585 (defalias 'customize-option 'customize-variable)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
586
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
587 (autoload 'customize-variable "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
588 Customize SYMBOL, which must be a user option variable." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
589
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
590 (autoload 'customize-changed-options "cus-edit" "\
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
591 Customize all user option variables whose default values changed recently.
225
12579d965149 Import from CVS: tag r20-4b11
cvs
parents: 223
diff changeset
592 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
593
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
594 (defalias 'customize-variable-other-window 'customize-option-other-window)
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-option-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
597 Customize SYMBOL, which must be a user option variable.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
598 Show the buffer in another window, but don't select it." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
599
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
600 (autoload 'customize-face "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
601 Customize SYMBOL, which should be a face name or nil.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
602 If SYMBOL is nil, customize all faces." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
603
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
604 (autoload 'customize-face-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
605 Show customization buffer for FACE in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
606
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
607 (autoload 'customize-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
608 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
609
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
610 (autoload 'customize-saved "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
611 Customize all already saved user options." 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 "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 If ALL is `options', include only options.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
616 If ALL is `faces', include only faces.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
617 If ALL is `groups', include only groups.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
618 If ALL is t (interactively, with prefix arg), include options which are not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
619 user-settable, as well as faces and groups." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
620
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
621 (autoload 'customize-apropos-options "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
622 Customize all user options matching REGEXP.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
623 With prefix arg, include options which are not user-settable." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
624
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
625 (autoload 'customize-apropos-faces "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
626 Customize all user faces matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
627
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
628 (autoload 'customize-apropos-groups "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
629 Customize all user groups matching REGEXP." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
630
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
631 (autoload 'custom-buffer-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
632 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
633 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
634 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
635 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
636 that option." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
637
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
638 (autoload 'custom-buffer-create-other-window "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
639 Create a buffer containing OPTIONS.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
640 Optional NAME is the name of the buffer.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
641 OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
642 SYMBOL is a customization option, and WIDGET is a widget for editing
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
643 that option." nil 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 'customize-browse "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
646 Create a tree browser for the customize hierarchy." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
647
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 282
diff changeset
648 (defcustom custom-file "~/.emacs" "File used for storing customization information.\nIf you change this from the default \"~/.emacs\" you need to\nexplicitly load that file for the settings to take effect." :type 'file :group 'customize)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
649
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
650 (autoload 'customize-save-customized "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
651 Save all user options which have been set in this session." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
652
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
653 (autoload 'custom-save-all "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
654 Save all customizations in `custom-file'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
655
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
656 (autoload 'custom-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
657 Create menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
658 The menu is in a format applicable to `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
659
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
660 (autoload 'customize-menu-create "cus-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
661 Return a customize menu for customization group SYMBOL.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
662 If optional NAME is given, use that as the name of the menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
663 Otherwise the menu will be named `Customize'.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
664 The format is suitable for use with `easy-menu-define'." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
665
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
666 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
667
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
668 ;;;### (autoloads (custom-set-faces custom-set-face-update-spec custom-declare-face) "cus-face" "lisp/cus-face.el")
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
669
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
670 (autoload 'custom-declare-face "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
671 Like `defface', but FACE is evaluated as a normal argument." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
672
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
673 (autoload 'custom-set-face-update-spec "cus-face" "\
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
674 Customize the FACE for display types matching DISPLAY, merging
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
675 in the new items from PLIST" nil nil)
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
676
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
677 (autoload 'custom-set-faces "cus-face" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
678 Initialize faces according to user preferences.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
679 The arguments should be a list where each entry has the form:
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
680
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
681 (FACE SPEC [NOW])
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
682
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
683 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
684 and non-nil, FACE will also be created according to SPEC.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
685
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
686 See `defface' for the format of SPEC." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
687
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
688 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
689
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
690 ;;;### (autoloads (disassemble) "disass" "lisp/disass.el")
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
691
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
692 (autoload 'disassemble "disass" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
693 Print disassembled code for OBJECT in (optional) BUFFER.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
694 OBJECT can be a symbol defined as a function, or a function itself
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
695 \(a lambda expression or a compiled-function object).
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
696 If OBJECT is not already compiled, we compile it, but do not
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
697 redefine OBJECT if it is a symbol." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
698
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
699 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
700
219
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
701 ;;;### (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
702
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
703 (autoload 'describe-current-display-table "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
704 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
705
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
706 (autoload 'make-display-table "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
707 Return a new, empty display table." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
708
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
709 (autoload 'standard-display-8bit "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
710 Display characters in the range L to H literally." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
711
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
712 (autoload 'standard-display-default "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
713 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
714
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
715 (autoload 'standard-display-ascii "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
716 Display character C using printable string S." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
717
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
718 (autoload 'standard-display-g1 "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
719 Display character C as character SC in the g1 character set.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
720 This function assumes that your terminal uses the SO/SI characters;
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
721 it is meaningless for an X frame." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
722
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
723 (autoload 'standard-display-graphic "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
724 Display character C as character GC in graphics character set.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
725 This function assumes VT100-compatible escapes; it is meaningless for an
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
726 X frame." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
727
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
728 (autoload 'standard-display-underline "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
729 Display character C as character UC plus underlining." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
730
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
731 (autoload 'standard-display-european "disp-table" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
732 Toggle display of European characters encoded with ISO 8859.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
733 When enabled, characters in the range of 160 to 255 display not
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
734 as octal escapes, but as accented characters.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
735 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
736
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
737 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
738
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
739 ;;;### (autoloads nil "easymenu" "lisp/easymenu.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
740
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
741 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
742
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
743 ;;;### (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
744
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
745 (autoload 'visit-tags-table "etags" "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
746 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
747 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
748 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
749
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
750 (autoload 'find-tag "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
751 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
752 Selects the buffer that the tag is contained in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
753 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
754 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
755 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
756 If called interactively with a numeric argument, searches for the next tag
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
757 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
758 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
759 the tag.
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 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
762 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
763
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
764 Variables of note:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
765
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
766 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
767 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
768 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
769 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
770 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
771 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
772
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
773 (autoload 'find-tag-other-window "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
774 *Find tag whose name contains TAGNAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
775 Selects the buffer that the tag is contained in in another window
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
776 and puts point at its definition.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
777 If TAGNAME is a null string, the expression in the buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
778 around or before point is used as the tag name.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
779 If second arg NEXT is non-nil (interactively, with prefix arg),
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
780 searches for the next tag in the tag table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
781 that matches the tagname used in the previous find-tag.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
782
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
783 This version of this function supports multiple active tags tables,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
784 and completion.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
785
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
786 Variables of note:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
787
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
788 tag-table-alist controls which tables apply to which buffers
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
789 tags-file-name a default tags table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
790 tags-build-completion-table controls completion behavior
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
791 buffer-tag-table another way of specifying a buffer-local table
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
792 make-tags-files-invisible whether tags tables should be very hidden
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
793 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
794
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
795 (autoload 'tag-complete-symbol "etags" "\
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
796 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
797
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
798 (autoload 'next-file "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
799 Select next file among files in current tag table(s).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
800
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
801 A first argument of t (prefix arg, if interactive) initializes to the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
802 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
803 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
804
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
805 Non-nil second argument NOVISIT means use a temporary buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
806 to save time and avoid uninteresting warnings.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
807
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
808 Value is nil if the file was already visited;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
809 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
810
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
811 (autoload 'tags-loop-continue "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
812 Continue last \\[tags-search] or \\[tags-query-replace] command.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
813 Used noninteractively with non-nil argument to begin such a command (the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
814 argument is passed to `next-file', which see).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
815 Two variables control the processing we do on each file:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
816 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
817 to see if it is interesting (it returns non-nil if so)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
818 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
819 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
820
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
821 (autoload 'tags-search "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
822 Search through all files listed in tags table for match for REGEXP.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
823 Stops when a match is found.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
824 To continue searching for next match, use command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
825
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
826 See documentation of variable `tag-table-alist'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
827
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
828 (autoload 'tags-query-replace "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
829 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
830 Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
831 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
832 with the command \\[tags-loop-continue].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
833
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
834 See documentation of variable `tag-table-alist'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
835
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
836 (autoload 'list-tags "etags" "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
837 Display list of tags in FILE." t nil)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
838
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
839 (autoload 'tags-apropos "etags" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
840 Display list of all tags in tag table REGEXP matches." t nil)
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
841 (define-key esc-map "*" 'pop-tag-mark)
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
842
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
843 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
844
239
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
845 ;;;### (autoloads (finder-by-keyword) "finder" "lisp/finder.el")
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
846
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
847 (autoload 'finder-by-keyword "finder" "\
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
848 Find packages matching a given keyword." t nil)
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
849
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
850 ;;;***
41f2f0e326e9 Import from CVS: tag r20-5b18
cvs
parents: 237
diff changeset
851
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
852 ;;;### (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
853
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
854 (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
855
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
856 (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
857
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
858 (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
859
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
860 (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
861
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
862 (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
863
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
864 (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
865
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
866 (define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
867
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
868 (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
869
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
870 (defvar font-lock-keywords nil "\
223
2c611d1463a6 Import from CVS: tag r20-4b10
cvs
parents: 219
diff changeset
871 A list of the keywords to highlight.
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
872 Each element should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
873
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
874 MATCHER
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
875 (MATCHER . MATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
876 (MATCHER . FACENAME)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
877 (MATCHER . HIGHLIGHT)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
878 (MATCHER HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
879 (eval . FORM)
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 where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED.
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 FORM is an expression, whose value should be a keyword element,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
884 evaluated when the keyword is (first) used in a buffer. This feature
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
885 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
886 Lock mode is actually turned on.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
887
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
888 For highlighting single items, typically only MATCH-HIGHLIGHT is required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
889 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
890 instance of another item (the anchor) then MATCH-ANCHORED may be required.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
891
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
892 MATCH-HIGHLIGHT should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
893
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
894 (MATCH FACENAME OVERRIDE LAXMATCH)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
895
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
896 Where MATCHER can be either the regexp to search for, a variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
897 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
898 the search (called with one argument, the limit of the search). MATCH
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
899 is the subexpression of MATCHER to be highlighted. FACENAME is either
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
900 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
901 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
902 use a form like \"(progn sym)\".
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
903
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
904 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
905 be overwritten. If `keep', only parts not already fontified are highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
906 If `prepend' or `append', existing fontification is merged with the new, in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
907 which the new or existing fontification, respectively, takes precedence.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
908 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
909
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
910 For example, an element of the form highlights (if not already highlighted):
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 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
913 variable `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
914 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
915 the value of `font-lock-keyword-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
916 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
917 (\"foo\\\\|bar\" 0 foo-bar-face t)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
918 Occurrences of either \"foo\" or \"bar\" in the value
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
919 of `foo-bar-face', even if already highlighted.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
920
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
921 MATCH-ANCHORED should be of the form:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
922
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
923 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
924
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
925 Where MATCHER is as for MATCH-HIGHLIGHT with one exception; see below.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
926 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
927 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
928 used to initialise before, and cleanup after, MATCHER is used. Typically,
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
929 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
930 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
931 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
932
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
933 For example, an element of the form highlights (if not already highlighted):
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
934
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
935 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
936
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
937 Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
938 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
939 (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
940 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
941 searching for subsequent instance of \"anchor\" resumes from where searching
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
942 for \"item\" concluded.)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
943
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
944 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
945 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
946 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
947 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
948 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
949 line, i.e., cause the MATCHER search to span lines.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
950
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
951 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
952 replace it with other ways of providing this functionality.
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 These regular expressions should not match text which spans lines. While
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
955 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
956 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
957
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
958 Be very careful composing regexps for this list;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
959 the wrong pattern can dramatically slow things down!")
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 (make-variable-buffer-local 'font-lock-keywords)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
962
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 276
diff changeset
963 (defcustom font-lock-mode nil "Non nil means `font-lock-mode' is on" :group 'font-lock :type 'boolean :initialize 'custom-initialize-default :require 'font-lock :set '(lambda (var val) (font-lock-mode (or val 0))))
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
964
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
965 (defvar font-lock-mode-hook nil "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
966 Function or functions to run on entry to font-lock-mode.")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
967
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
968 (autoload 'font-lock-mode "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
969 Toggle Font Lock Mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
970 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
971
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
972 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
973
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
974 - Comments are displayed in `font-lock-comment-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
975 - Strings are displayed in `font-lock-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
976 - Documentation strings (in Lisp-like languages) are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
977 `font-lock-doc-string-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
978 - Language keywords (\"reserved words\") are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
979 `font-lock-keyword-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
980 - Function names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
981 `font-lock-function-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
982 - Variable names in their defining form are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
983 `font-lock-variable-name-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
984 - Type names are displayed in `font-lock-type-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
985 - References appearing in help files and the like are displayed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
986 in `font-lock-reference-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
987 - Preprocessor declarations are displayed in
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
988 `font-lock-preprocessor-face';
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
989
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
990 and
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
991
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
992 - Certain other expressions are displayed in other faces according
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
993 to the value of the variable `font-lock-keywords'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
994
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
995 Where modes support different levels of fontification, you can use the variable
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
996 `font-lock-maximum-decoration' to specify which level you generally prefer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
997 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
998 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
999 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
1000 size, you can use \\[font-lock-fontify-buffer].
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1001
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1002 See the variable `font-lock-keywords' for customization." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1003
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1004 (autoload 'turn-on-font-lock "font-lock" "\
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1005 Unconditionally turn on Font Lock mode." nil nil)
217
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 (autoload 'turn-off-font-lock "font-lock" "\
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1008 Unconditionally turn off Font Lock mode." nil nil)
217
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 (autoload 'font-lock-fontify-buffer "font-lock" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1011 Fontify the current buffer the way `font-lock-mode' would.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1012 See `font-lock-mode' for details.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1013
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1014 This can take a while for large buffers." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1015
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1016 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1017
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1018 (add-minor-mode 'font-lock-mode " Font")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1019
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
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1022 ;;;### (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
1023
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1024 (autoload 'font-create-object "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1025
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1026 (autoload 'font-default-font-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1027
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1028 (autoload 'font-default-object-for-device "font" nil nil nil)
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 (autoload 'font-default-family-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1031
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1032 (autoload 'font-default-registry-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1033
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1034 (autoload 'font-default-encoding-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1035
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1036 (autoload 'font-default-size-for-device "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1037
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1038 (autoload 'x-font-build-cache "font" nil nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1039
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1040 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1041
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1042 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el")
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 (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
1045
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1046 (autoload 'gnuserv-running-p "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1047 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
1048
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1049 (autoload 'gnuserv-start "gnuserv" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1050 Allow this Emacs process to be a server for client processes.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1051 This starts a gnuserv communications subprocess through which
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1052 client \"editors\" (gnuclient and gnudoit) can send editing commands to
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1053 this Emacs job. See the gnuserv(1) manual page for more details.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1054
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1055 Prefix arg means just kill any existing server communications subprocess." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1056
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1057 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1058
247
e70b3a057e12 Import from CVS: tag r20-5b22
cvs
parents: 243
diff changeset
1059 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el")
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1060
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1061 (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
1062
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
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1065 ;;;### (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")
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1066
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1067 (autoload 'hyper-apropos "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1068 Display lists of functions and variables matching REGEXP
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1069 in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1070 value of `hyper-apropos-programming-apropos' is toggled for this search.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1071 See also `hyper-apropos-mode'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1072
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1073 (autoload 'hyper-describe-key "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1074
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1075 (autoload 'hyper-describe-key-briefly "hyper-apropos" nil t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1076
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1077 (autoload 'hyper-describe-face "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1078 Describe face..
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1079 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1080
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1081 (autoload 'hyper-describe-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1082 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1083 See also `hyper-apropos' and `hyper-describe-function'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1084
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1085 (autoload 'hyper-describe-function "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1086 Hypertext replacement for `describe-function'. Unlike `describe-function'
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1087 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
1088 See also `hyper-apropos' and `hyper-describe-variable'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1089
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1090 (autoload 'hyper-apropos-read-variable-symbol "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1091 Hypertext drop-in replacement for `describe-variable'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1092 See also `hyper-apropos' and `hyper-describe-function'." nil nil)
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 (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
1095
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1096 (define-obsolete-function-alias 'hypropos-get-doc 'hyper-apropos-get-doc)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1097
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1098 (autoload 'hyper-set-variable "hyper-apropos" nil t nil)
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 (autoload 'hyper-apropos-set-variable "hyper-apropos" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1101 Interactively set the variable on the current line." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1102
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1103 (define-obsolete-function-alias 'hypropos-set-variable 'hyper-apropos-set-variable)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1104
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1105 (autoload 'hyper-apropos-popup-menu "hyper-apropos" nil t nil)
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 (define-obsolete-function-alias 'hypropos-popup-menu 'hyper-apropos-popup-menu)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1108
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
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 276
diff changeset
1111 ;;;### (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-batch-rebuild-dir Info-query info) "info" "lisp/info.el")
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1112
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1113 (defvar Info-directory-list nil "\
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1114 List of directories to search for Info documentation files.
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1115
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1116 The first directory in this list, the \"dir\" file there will become
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1117 the (dir)Top node of the Info documentation tree. If you wish to
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1118 modify the info search path, use `M-x customize-variable,
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1119 Info-directory-list' to do so.")
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1120
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1121 (autoload 'info "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1122 Enter Info, the documentation browser.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1123 Optional argument FILE specifies the file to examine;
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1124 the default is the top-level directory of Info.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1125
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1126 In interactive use, a prefix argument directs this command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1127 to read a file name from the minibuffer." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1128
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1129 (autoload 'Info-query "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1130 Enter Info, the documentation browser. Prompt for name of Info file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1131
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 276
diff changeset
1132 (autoload 'Info-batch-rebuild-dir "info" "\
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1133 (Re)build info `dir' files in the directories remaining on the command line.
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1134 Use this from the command line, with `-batch';
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1135 it won't work in an interactive Emacs.
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1136 Each file is processed even if an error occurred previously.
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1137 For example, invoke \"xemacs -batch -f Info-batch-rebuild-dir /usr/local/info\"" nil nil)
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 276
diff changeset
1138
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1139 (autoload 'Info-goto-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1140 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1141 Actually, the following interpretations of NAME are tried in order:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1142 (FILENAME)NODENAME
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1143 (FILENAME) (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1144 NODENAME (in current file)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1145 TAGNAME (see below)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1146 FILENAME (using Top node)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1147 where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1148 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
1149
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1150 (autoload 'Info-visit-file "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1151 Directly visit an info file." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1152
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1153 (autoload 'Info-search "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1154 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
1155
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1156 (autoload 'Info-emacs-command "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1157 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
1158 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
1159
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1160 (autoload 'Info-goto-emacs-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1161 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
1162 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
1163
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1164 (autoload 'Info-goto-emacs-key-command-node "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1165 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
1166 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
1167
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1168 (autoload 'Info-emacs-key "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1169 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
1170 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
1171
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1172 (autoload 'Info-elisp-ref "info" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1173 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
1174 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
1175
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1176 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1177
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1178 ;;;### (autoloads nil "itimer-autosave" "lisp/itimer-autosave.el")
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 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1181
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1182 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el")
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 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1185
237
89ec2bb86eea Import from CVS: tag r20-5b17
cvs
parents: 233
diff changeset
1186 ;;;### (autoloads nil "loadhist" "lisp/loadhist.el")
233
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1187
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1188 ;;;***
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1189
265
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1190 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el")
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1191
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1192 (autoload 'mwheel-install "mwheel" "\
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1193 Enable mouse wheel support." nil nil)
265
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1194
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1195 ;;;***
8efd647ea9ca Import from CVS: tag r20-5b31
cvs
parents: 247
diff changeset
1196
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1197 ;;;### (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
1198
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1199 (autoload 'package-admin-add-single-file-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1200 Install a single file Lisp package into XEmacs package hierarchy.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1201 `file' should be the full path to the lisp file to install.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1202 `destdir' should be a simple directory name.
243
f220cc83d72e Import from CVS: tag r20-5b20
cvs
parents: 239
diff changeset
1203 The optional `pkg-dir' can be used to override the default package hierarchy
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 265
diff changeset
1204 \(car (last late-packages))." t nil)
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1205
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1206 (autoload 'package-admin-add-binary-package "package-admin" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1207 Install a pre-bytecompiled XEmacs package into package hierarchy." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1208
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1209 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1210
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1211 ;;;### (autoloads (package-get-custom package-get-package-provider package-get package-get-dependencies package-get-all package-get-update-all package-get-delete-package package-get-save-base package-get-update-base-from-buffer package-get-update-base package-get-update-base-entry package-get-require-base package-get-download-menu) "package-get" "lisp/package-get.el")
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1212
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1213 (autoload 'package-get-download-menu "package-get" "\
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1214 Build the `Add Download Site' menu." nil nil)
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1215
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1216 (autoload 'package-get-require-base "package-get" "\
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1217 Require that a package-get database has been loaded.
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1218 If the optional FORCE-CURRENT argument or the value of
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1219 `package-get-always-update' is Non-nil, try to update the database
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1220 from a location in `package-get-remote'. Otherwise a local copy is used
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1221 if available and remote access is never done.
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1222
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1223 Please use FORCE-CURRENT only when the user is explictly dealing with packages
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1224 and remote access is likely in the near future." nil nil)
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1225
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1226 (autoload 'package-get-update-base-entry "package-get" "\
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1227 Update an entry in `package-get-base'." nil nil)
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1228
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1229 (autoload 'package-get-update-base "package-get" "\
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1230 Update the package-get database file with entries from DB-FILE.
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1231 Unless FORCE-CURRENT is non-nil never try to update the database." t nil)
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1232
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1233 (autoload 'package-get-update-base-from-buffer "package-get" "\
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1234 Update the package-get database with entries from BUFFER.
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1235 BUFFER defaults to the current buffer. This command can be
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1236 used interactively, for example from a mail or news buffer." t nil)
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1237
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1238 (autoload 'package-get-save-base "package-get" "\
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1239 Write the package-get database to FILE.
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1240
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1241 Note: This database will be unsigned of course." t nil)
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1242
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1243 (autoload 'package-get-delete-package "package-get" "\
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1244 Delete an installation of PACKAGE below directory PKG-TOPDIR.
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1245 PACKAGE is a symbol, not a string.
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1246 This is just an interactive wrapper for `package-admin-delete-binary-package'." t nil)
294
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1247
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1248 (autoload 'package-get-update-all "package-get" "\
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1249 Fetch and install the latest versions of all currently installed packages." t nil)
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1250
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1251 (autoload 'package-get-all "package-get" "\
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1252 Fetch PACKAGE with VERSION and all other required packages.
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1253 Uses `package-get-base' to determine just what is required and what
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1254 package provides that functionality. If VERSION is nil, retrieves
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1255 latest version. Optional argument FETCHED-PACKAGES is used to keep
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1256 track of packages already fetched. Optional argument INSTALL-DIR,
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1257 if non-nil, specifies the package directory where fetched packages
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1258 should be installed.
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1259
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1260 Returns nil upon error." t nil)
321
19dcec799385 Import from CVS: tag r21-0-58
cvs
parents: 314
diff changeset
1261
375
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1262 (autoload 'package-get-dependencies "package-get" "\
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1263 Compute dependencies for PACKAGES.
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1264 Uses `package-get-base' to determine just what is required and what
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1265 package provides that functionality. Returns the list of packages
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1266 required by PACKAGES." nil nil)
a300bb07d72d Import from CVS: tag r21-2b3
cvs
parents: 373
diff changeset
1267
294
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1268 (autoload 'package-get "package-get" "\
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1269 Fetch PACKAGE from remote site.
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1270 Optional arguments VERSION indicates which version to retrieve, nil
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1271 means most recent version. CONFLICT indicates what happens if the
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1272 package is already installed. Valid values for CONFLICT are:
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1273 'always always retrieve the package even if it is already installed
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1274 'never do not retrieve the package if it is installed.
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1275 INSTALL-DIR, if non-nil, specifies the package directory where
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1276 fetched packages should be installed.
294
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1277
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1278 The value of `package-get-base' is used to determine what files should
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1279 be retrieved. The value of `package-get-remote' is used to determine
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1280 where a package should be retrieved from. The sites are tried in
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1281 order so one is better off listing easily reached sites first.
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1282
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1283 Once the package is retrieved, its md5 checksum is computed. If that
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1284 sum does not match that stored in `package-get-base' for this version
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1285 of the package, an error is signalled.
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1286
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1287 Returns `t' upon success, the symbol `error' if the package was
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1288 successfully installed but errors occurred during initialization, or
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1289 `nil' upon error." t nil)
294
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1290
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1291 (autoload 'package-get-package-provider "package-get" "\
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1292 Search for a package that provides SYM and return the name and
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1293 version. Searches in `package-get-base' for SYM. If SYM is a
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1294 consp, then it must match a corresponding (provide (SYM VERSION)) from
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1295 the package.
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1296
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1297 If FORCE-CURRENT is non-nil make sure the database is up to date. This might
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 375
diff changeset
1298 lead to Emacs accessing remote sites." t nil)
294
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1299
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1300 (autoload 'package-get-custom "package-get" "\
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1301 Fetch and install the latest versions of all customized packages." t nil)
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1302
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1303 ;;;***
4b85ae5eabfb Import from CVS: tag r21-0b45
cvs
parents: 286
diff changeset
1304
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1305 ;;;### (autoloads (pui-list-packages pui-add-install-directory) "package-ui" "lisp/package-ui.el")
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1306
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1307 (autoload 'pui-add-install-directory "package-ui" "\
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1308 Add a new package binary directory to the head of `package-get-remote'.
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1309 Note that no provision is made for saving any changes made by this function.
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1310 It exists mainly as a convenience for one-time package installations from
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1311 disk." t nil)
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1312
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1313 (autoload 'pui-list-packages "package-ui" "\
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1314 List all packages and package information.
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1315 The package name, version, and description are displayed. From the displayed
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1316 buffer, the user can see which packages are installed, which are not, and
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1317 which are out-of-date (a newer version is available). The user can then
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1318 select packages for installation via the keyboard or mouse." t nil)
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1319
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1320 ;;;***
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
1321
219
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1322 ;;;### (autoloads (picture-mode) "picture" "lisp/picture.el")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1323
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1324 (autoload 'picture-mode "picture" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1325 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
1326 Printing characters replace instead of inserting themselves with motion
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1327 afterwards settable by these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1328 C-c < Move left after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1329 C-c > Move right after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1330 C-c ^ Move up after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1331 C-c . Move down after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1332 C-c ` Move northwest (nw) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1333 C-c ' Move northeast (ne) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1334 C-c / Move southwest (sw) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1335 C-c \\ Move southeast (se) after insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1336 The current direction is displayed in the modeline. The initial
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1337 direction is right. Whitespace is inserted and tabs are changed to
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1338 spaces when required by movement. You can move around in the buffer
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1339 with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1340 \\[picture-move-down] Move vertically to SAME column in previous line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1341 \\[picture-move-up] Move vertically to SAME column in next line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1342 \\[picture-end-of-line] Move to column following last non-whitespace character.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1343 \\[picture-forward-column] Move right inserting spaces if required.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1344 \\[picture-backward-column] Move left changing tabs to spaces if required.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1345 C-c C-f Move in direction of current picture motion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1346 C-c C-b Move in opposite direction of current picture motion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1347 Return Move to beginning of next line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1348 You can edit tabular text with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1349 M-Tab Move to column beneath (or at) next interesting character.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1350 `Indents' relative to a previous line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1351 Tab Move to next stop in tab stop list.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1352 C-c Tab Set tab stops according to context of this line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1353 With ARG resets tab stops to default (global) value.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1354 See also documentation of variable picture-tab-chars
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1355 which defines \"interesting character\". You can manually
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1356 change the tab stop list with command \\[edit-tab-stops].
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1357 You can manipulate text with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1358 C-d Clear (replace) ARG columns after point without moving.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1359 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
1360 \\[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
1361 \\[picture-clear-line] Clear ARG lines, advancing over them. The cleared
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1362 text is saved in the kill ring.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1363 \\[picture-open-line] Open blank line(s) beneath current line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1364 You can manipulate rectangles with these commands:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1365 C-c C-k Clear (or kill) a rectangle and save it.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1366 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
1367 C-c C-y Overlay (or insert) currently saved rectangle at point.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1368 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
1369 \\[copy-rectangle-to-register] Copies a rectangle to a register.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1370 \\[advertised-undo] Can undo effects of rectangle overlay commands
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1371 commands if invoked soon enough.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1372 You can return to the previous mode with:
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1373 C-c C-c Which also strips trailing whitespace from every line.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1374 Stripping is suppressed by supplying an argument.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1375
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1376 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
1377
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1378 Note that Picture mode commands will work outside of Picture mode, but
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1379 they are not defaultly assigned to keys." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1380
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1381 (defalias 'edit-picture 'picture-mode)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1382
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1383 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1384
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1385 ;;;### (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
1386
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1387 (autoload 'delete-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1388 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
1389 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
1390 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
1391
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1392 (autoload 'delete-extract-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1393 Delete contents of rectangle and return it as a list of strings.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1394 Arguments START and END are the corners of the rectangle.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1395 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
1396
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1397 (autoload 'extract-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1398 Return contents of rectangle with corners at START and END.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1399 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
1400
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1401 (defvar killed-rectangle nil "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1402 Rectangle for yank-rectangle to insert.")
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1403
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1404 (autoload 'kill-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1405 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
1406 Calling from program, supply two args START and END, buffer positions.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1407 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
1408
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1409 (autoload 'yank-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1410 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
1411
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1412 (autoload 'insert-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1413 Insert text of RECTANGLE with upper left corner at point.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1414 RECTANGLE's first line is inserted at point, its second
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1415 line is inserted at a point vertically under point, etc.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1416 RECTANGLE should be a list of strings.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1417 After this command, the mark is at the upper left corner
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1418 and point is at the lower right corner." nil nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1419
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1420 (autoload 'open-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1421 Blank out rectangle with corners at point and mark, shifting text right.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1422 The text previously in the region is not overwritten by the blanks,
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1423 but instead winds up to the right of the rectangle." t nil)
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1424
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1425 (autoload 'string-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1426 Insert STRING on each line of the region-rectangle, shifting text right.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1427 The left edge of the rectangle specifies the column for insertion.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1428 This command does not delete or overwrite any existing text.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1429
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1430 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
1431
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1432 (autoload 'clear-rectangle "rect" "\
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1433 Blank out rectangle with corners at point and mark.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1434 The text previously in the region is overwritten by the blanks.
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1435 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
1436
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1437 ;;;***
262b8bb4a523 Import from CVS: tag r20-4b8
cvs
parents: 217
diff changeset
1438
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1439 ;;;### (autoloads (list-load-path-shadows) "shadow" "lisp/shadow.el")
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 'list-load-path-shadows "shadow" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1442 Display a list of Emacs Lisp files that shadow other files.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1443
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1444 This function lists potential load-path problems. Directories in the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1445 `load-path' variable are searched, in order, for Emacs Lisp
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1446 files. When a previously encountered file name is found again, a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1447 message is displayed indicating that the later file is \"hidden\" by
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1448 the earlier.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1449
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1450 For example, suppose `load-path' is set to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1451
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1452 \(\"/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
1453
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1454 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
1455 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
1456 \(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1457
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1458 The first XXX.el file prevents emacs from seeing the second (unless
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1459 the second is loaded explicitly via load-file).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1460
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1461 When not intended, such shadowings can be the source of subtle
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1462 problems. For example, the above situation may have arisen because the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1463 XXX package was not distributed with versions of emacs prior to
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1464 19.30. An emacs maintainer downloaded XXX from elsewhere and installed
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1465 it. Later, XXX was updated and included in the emacs distribution.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1466 Unless the emacs maintainer checks for this, the new version of XXX
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1467 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
1468 emacs version).
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1469
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1470 This function performs these checks and flags all possible
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1471 shadowings. Because a .el file may exist without a corresponding .elc
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1472 \(or vice-versa), these suffixes are essentially ignored. A file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1473 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
1474 considered to shadow a later file XXX.el, and vice-versa.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1475
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1476 When run interactively, the shadowings (if any) are displayed in a
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1477 buffer called `*Shadows*'. Shadowings are located by calling the
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1478 \(non-interactive) companion function, `find-emacs-lisp-shadows'." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1479
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1480 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1481
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1482 ;;;### (autoloads (load-default-sounds load-sound-file) "sound" "lisp/sound.el")
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1483
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1484 (or sound-alist (setq sound-alist '((ready nil) (warp nil))))
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1485
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1486 (autoload 'load-sound-file "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1487 Read in an audio-file and add it to the sound-alist.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1488
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1489 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
1490 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1491 server and XEmacs has the necessary sound support compiled in.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1492
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1493 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
1494 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
1495
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1496 (autoload 'load-default-sounds "sound" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1497 Load and install some sound files as beep-types, using
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1498 `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
1499 console of a machine with native sound support or running a NetAudio
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1500 server and XEmacs has the necessary sound support compiled in." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1501
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1502 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1503
233
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1504 ;;;### (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
1505
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1506 (autoload 'ask-user-about-lock "userlock" "\
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1507 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
1508 This function has a choice of three things to do:
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1509 do (signal 'file-locked (list FILE USER))
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1510 to refrain from editing the file
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1511 return t (grab the lock on the file)
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1512 return nil (edit the file even though it is locked).
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1513 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
1514
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1515 (autoload 'ask-user-about-supersession-threat "userlock" "\
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1516 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
1517 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
1518 of the buffer will proceed, or it can (signal 'file-supersession (file)),
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1519 in which case the proposed buffer modification will not be made.
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1520
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1521 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
1522 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
1523
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1524 ;;;***
52952cbfc5b5 Import from CVS: tag r20-5b15
cvs
parents: 225
diff changeset
1525
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1526 ;;;### (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")
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1527
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1528 (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
1529
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1530 (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
1531
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1532 (autoload 'view-file "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1533 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
1534
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1535 (autoload 'view-buffer "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1536 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
1537
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1538 (autoload 'view-file-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1539 Find FILE in other window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1540
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1541 (autoload 'view-buffer-other-window "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1542 Switch to BUFFER in another window, and enter view mode." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1543
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1544 (autoload 'view-minor-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1545 Minor mode for viewing text, with bindings like `less'.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1546 Commands are:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1547 \\<view-minor-mode-map>
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1548 0..9 prefix args
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1549 - prefix minus
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1550 \\[scroll-up] page forward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1551 \\[scroll-down] page back
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1552 \\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1553 \\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1554 \\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1555 \\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1556 \\[what-line] print line number
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1557 \\[view-mode-describe] print this help message
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1558 \\[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
1559 \\[view-search-backward] as above but searches backward
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1560 \\[view-repeat-search] repeat last search
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1561 \\[view-goto-line] goto line prefix-arg, default 1
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1562 \\[view-last-windowful] goto line prefix-arg, default last line
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1563 \\[view-goto-percent] goto a position by percentage
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1564 \\[toggle-truncate-lines] toggle truncate-lines
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1565 \\[view-file] view another file
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1566 \\[view-buffer] view another buffer
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1567 \\[view-cleanup-backspaces] cleanup backspace constructions
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1568 \\[shell-command] execute a shell command
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1569 \\[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
1570 \\[view-quit] exit view-mode, and bury the current buffer.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1571
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1572 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
1573 backspace constructions.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1574
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1575 More precisely:
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1576 \\{view-minor-mode-map}" t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1577
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1578 (autoload 'view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1579 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
1580 compatible with the implementations of `view-mode' in view.el and older
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1581 versions of view-less.el." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1582
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1583 (autoload 'view-major-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1584 View the current buffer using view-mode, as a major mode.
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1585 This function has a nonstandard name because `view-mode' is wrongly
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1586 named but is like this for compatibility reasons." t nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1587
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1588 (autoload 'auto-view-mode "view-less" "\
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1589 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
1590 This is meant to be added to `find-file-hooks'." nil nil)
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1591
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1592 ;;;***
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1593
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1594 ;;;### (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
1595
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1596 (autoload 'widget-browse-at "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1597 Browse the widget under point." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1598
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1599 (autoload 'widget-browse "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1600 Create a widget browser for WIDGET." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1601
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1602 (autoload 'widget-browse-other-window "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1603 Show widget browser for WIDGET in other window." t nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1604
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1605 (autoload 'widget-minor-mode "wid-browse" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1606 Togle minor mode for traversing widgets.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1607 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
1608
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1609 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1610
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1611 ;;;### (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
1612
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1613 (autoload 'widget-prompt-value "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1614 Prompt for a value matching WIDGET, using PROMPT.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1615 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
1616
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1617 (autoload 'widget-create "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1618 Create widget of TYPE.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1619 The optional ARGS are additional keyword arguments." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1620
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1621 (autoload 'widget-delete "wid-edit" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1622 Delete WIDGET." nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1623
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1624 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1625
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1626 ;;;### (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
1627
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1628 (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)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1629
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 369
diff changeset
1630 (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)
209
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1631
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1632 (fset 'install-font-menus 'reset-device-font-menus)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1633
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1634 (autoload 'reset-device-font-menus "x-font-menu" "\
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1635 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1636 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
1637 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
1638 `create-device-hook' and that will make the font menus respond more quickly
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1639 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
1640 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
1641
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1642 (autoload 'font-menu-family-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1643
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1644 (autoload 'font-menu-size-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1645
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1646 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil)
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1647
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1648 ;;;***
41ff10fd062f Import from CVS: tag r20-4b3
cvs
parents:
diff changeset
1649
217
d44af0c54775 Import from CVS: tag r20-4b7
cvs
parents: 209
diff changeset
1650 (provide 'Standard-autoloads)