annotate lisp/auto-autoloads.el @ 219:262b8bb4a523 r20-4b8

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