Mercurial > emacs
annotate lisp/emacs-lisp/autoload.el @ 3807:8ba66a564213
entered into RCS
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 17 Jun 1993 07:31:16 +0000 |
parents | 21c6c1e1a38b |
children | b292a011b5f4 |
rev | line source |
---|---|
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
1 ;;; autoload.el --- maintain autoloads in loaddefs.el. |
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
2 |
1884
4a8bc12e7017
(generate-file-autoloads): If no buffer was visiting FILE when we started,
Roland McGrath <roland@gnu.org>
parents:
1552
diff
changeset
|
3 ;;; Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc. |
473 | 4 ;;; |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1975
diff
changeset
|
6 ;; Keywords: maint |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
7 |
473 | 8 ;;; This program is free software; you can redistribute it and/or modify |
9 ;;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
10 ;;; the Free Software Foundation; either version 2, or (at your option) |
473 | 11 ;;; any later version. |
12 ;;; | |
13 ;;; This program is distributed in the hope that it will be useful, | |
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 ;;; GNU General Public License for more details. | |
17 ;;; | |
18 ;;; A copy of the GNU General Public License can be obtained from this | |
19 ;;; program's author (send electronic mail to roland@ai.mit.edu) or from | |
20 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA | |
21 ;;; 02139, USA. | |
22 ;;; | |
23 | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
24 ;;; Commentary;: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
25 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
26 ;; This code helps GNU Emacs maintainers keep the autoload.el file up to |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
27 ;; date. It interprets magic cookies of the form ";;;###autoload" in |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
28 ;; lisp source files in various useful ways. To learn more, read the |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
29 ;; source; if you're going to use this, you'd better be able to. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
30 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
31 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
32 |
473 | 33 (defun make-autoload (form file) |
34 "Turn FORM, a defun or defmacro, into an autoload for source file FILE. | |
35 Returns nil if FORM is not a defun or defmacro." | |
36 (let ((car (car-safe form))) | |
3777
d6f56b9586f7
(make-autoload): Use memq once instead eq twice.
Roland McGrath <roland@gnu.org>
parents:
3774
diff
changeset
|
37 (if (memq car '(defun defmacro)) |
d6f56b9586f7
(make-autoload): Use memq once instead eq twice.
Roland McGrath <roland@gnu.org>
parents:
3774
diff
changeset
|
38 (let ((macrop (eq car 'defmacro)) |
d6f56b9586f7
(make-autoload): Use memq once instead eq twice.
Roland McGrath <roland@gnu.org>
parents:
3774
diff
changeset
|
39 name doc) |
473 | 40 (setq form (cdr form)) |
41 (setq name (car form)) | |
42 ;; Ignore the arguments. | |
43 (setq form (cdr (cdr form))) | |
44 (setq doc (car form)) | |
45 (if (stringp doc) | |
46 (setq form (cdr form)) | |
47 (setq doc nil)) | |
48 (list 'autoload (list 'quote name) file doc | |
1552
f2901040a07b
* autoload.el (make-autoload): When creating an autoload
Jim Blandy <jimb@redhat.com>
parents:
1108
diff
changeset
|
49 (eq (car-safe (car form)) 'interactive) |
f2901040a07b
* autoload.el (make-autoload): When creating an autoload
Jim Blandy <jimb@redhat.com>
parents:
1108
diff
changeset
|
50 (if macrop (list 'quote 'macro) nil))) |
473 | 51 nil))) |
52 | |
53 (defconst generate-autoload-cookie ";;;###autoload" | |
3774
3b0cb275ca29
(generate-autoload-cookie, update-autoloads-here): Doc fixes.
Roland McGrath <roland@gnu.org>
parents:
2535
diff
changeset
|
54 "Magic comment indicating the following form should be autoloaded. |
3b0cb275ca29
(generate-autoload-cookie, update-autoloads-here): Doc fixes.
Roland McGrath <roland@gnu.org>
parents:
2535
diff
changeset
|
55 Used by \\[update-file-autoloads]. This string should be |
473 | 56 meaningless to Lisp (e.g., a comment). |
57 | |
58 This string is used: | |
59 | |
60 ;;;###autoload | |
61 \(defun function-to-be-autoloaded () ...) | |
62 | |
63 If this string appears alone on a line, the following form will be | |
64 read and an autoload made for it. If there is further text on the line, | |
65 that text will be copied verbatim to `generated-autoload-file'.") | |
66 | |
67 (defconst generate-autoload-section-header "\f\n;;;### " | |
68 "String inserted before the form identifying | |
69 the section of autoloads for a file.") | |
70 | |
71 (defconst generate-autoload-section-trailer "\n;;;***\n" | |
72 "String which indicates the end of the section of autoloads for a file.") | |
73 | |
727 | 74 ;;; Forms which have doc-strings which should be printed specially. |
75 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is | |
76 ;;; the doc-string in FORM. | |
77 ;;; | |
78 ;;; There used to be the following note here: | |
79 ;;; ;;; Note: defconst and defvar should NOT be marked in this way. | |
80 ;;; ;;; We don't want to produce defconsts and defvars that | |
81 ;;; ;;; make-docfile can grok, because then it would grok them twice, | |
82 ;;; ;;; once in foo.el (where they are given with ;;;###autoload) and | |
83 ;;; ;;; once in loaddefs.el. | |
84 ;;; | |
85 ;;; Counter-note: Yes, they should be marked in this way. | |
86 ;;; make-docfile only processes those files that are loaded into the | |
87 ;;; dumped Emacs, and those files should never have anything | |
88 ;;; autoloaded here. The above-feared problem only occurs with files | |
89 ;;; which have autoloaded entries *and* are processed by make-docfile; | |
90 ;;; there should be no such files. | |
91 | |
473 | 92 (put 'autoload 'doc-string-elt 3) |
727 | 93 (put 'defun 'doc-string-elt 3) |
94 (put 'defvar 'doc-string-elt 3) | |
95 (put 'defconst 'doc-string-elt 3) | |
96 (put 'defmacro 'doc-string-elt 3) | |
473 | 97 |
98 (defun generate-file-autoloads (file) | |
99 "Insert at point a loaddefs autoload section for FILE. | |
100 autoloads are generated for defuns and defmacros in FILE | |
2494
c0fbbfadcb04
(generate-file-autoloads): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
2307
diff
changeset
|
101 marked by `generate-autoload-cookie' (which see). |
473 | 102 If FILE is being visited in a buffer, the contents of the buffer |
103 are used." | |
104 (interactive "fGenerate autoloads for file: ") | |
105 (let ((outbuf (current-buffer)) | |
106 (autoloads-done '()) | |
107 (load-name (let ((name (file-name-nondirectory file))) | |
108 (if (string-match "\\.elc?$" name) | |
109 (substring name 0 (match-beginning 0)) | |
110 name))) | |
111 (print-length nil) | |
112 (floating-output-format "%20e") | |
113 (done-any nil) | |
1884
4a8bc12e7017
(generate-file-autoloads): If no buffer was visiting FILE when we started,
Roland McGrath <roland@gnu.org>
parents:
1552
diff
changeset
|
114 (visited (get-file-buffer file)) |
473 | 115 output-end) |
727 | 116 |
117 ;; If the autoload section we create here uses an absolute | |
118 ;; pathname for FILE in its header, and then Emacs is installed | |
119 ;; under a different path on another system, | |
120 ;; `update-autoloads-here' won't be able to find the files to be | |
121 ;; autoloaded. So, if FILE is in the same directory or a | |
732 | 122 ;; subdirectory of the current buffer's directory, we'll make it |
727 | 123 ;; relative to the current buffer's directory. |
124 (setq file (expand-file-name file)) | |
125 (if (and (< (length default-directory) (length file)) | |
126 (string= default-directory | |
127 (substring file 0 (length default-directory)))) | |
128 (progn | |
129 (setq file (substring file (length default-directory))))) | |
130 | |
473 | 131 (message "Generating autoloads for %s..." file) |
1975
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
132 (save-excursion |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
133 (unwind-protect |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
134 (progn |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
135 (set-buffer (find-file-noselect file)) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
136 (save-excursion |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
137 (save-restriction |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
138 (widen) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
139 (goto-char (point-min)) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
140 (while (not (eobp)) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
141 (skip-chars-forward " \t\n\f") |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
142 (cond |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
143 ((looking-at (regexp-quote generate-autoload-cookie)) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
144 (search-forward generate-autoload-cookie) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
145 (skip-chars-forward " \t") |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
146 (setq done-any t) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
147 (if (eolp) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
148 ;; Read the next form and make an autoload. |
3805
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
149 (let* ((form (prog1 (read (current-buffer)) |
1975
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
150 (forward-line 1))) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
151 (autoload (make-autoload form load-name)) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
152 (doc-string-elt (get (car-safe form) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
153 'doc-string-elt))) |
3805
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
154 (if autoload |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
155 (setq autoloads-done (cons (nth 1 form) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
156 autoloads-done)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
157 (setq autoload form)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
158 (if (and doc-string-elt |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
159 (stringp (nth doc-string-elt autoload))) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
160 ;; We need to hack the printing because the |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
161 ;; doc-string must be printed specially for |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
162 ;; make-docfile (sigh). |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
163 (let* ((p (nthcdr (1- doc-string-elt) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
164 autoload)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
165 (elt (cdr p))) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
166 (setcdr p nil) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
167 (princ "\n(" outbuf) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
168 (mapcar (function (lambda (elt) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
169 (prin1 elt outbuf) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
170 (princ " " outbuf))) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
171 autoload) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
172 (princ "\"\\\n" outbuf) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
173 (princ (substring |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
174 (prin1-to-string (car elt)) 1) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
175 outbuf) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
176 (if (null (cdr elt)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
177 (princ ")" outbuf) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
178 (princ " " outbuf) |
1975
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
179 (princ (substring |
3805
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
180 (prin1-to-string (cdr elt)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
181 1) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
182 outbuf)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
183 (terpri outbuf)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
184 (print autoload outbuf))) |
1975
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
185 ;; Copy the rest of the line to the output. |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
186 (let ((begin (point))) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
187 (forward-line 1) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
188 (princ (buffer-substring begin (point)) outbuf)))) |
3805
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
189 ((looking-at ";") |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
190 ;; Don't read the comment. |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
191 (forward-line 1)) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
192 (t |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
193 (forward-sexp 1) |
21c6c1e1a38b
(generate-file-autoloads): Undo previous change
Richard M. Stallman <rms@gnu.org>
parents:
3777
diff
changeset
|
194 (forward-line 1))))))) |
1975
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
195 (or visited |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
196 ;; We created this buffer, so we should kill it. |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
197 (kill-buffer (current-buffer))) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
198 (set-buffer outbuf) |
3334e2489824
* autoload.el (generate-file-autoloads): Add another
Jim Blandy <jimb@redhat.com>
parents:
1884
diff
changeset
|
199 (setq output-end (point-marker)))) |
473 | 200 (if done-any |
201 (progn | |
202 (insert generate-autoload-section-header) | |
203 (prin1 (list 'autoloads autoloads-done load-name file | |
204 (nth 5 (file-attributes file))) | |
205 outbuf) | |
206 (terpri outbuf) | |
207 (insert ";;; Generated autoloads from " file "\n") | |
208 (goto-char output-end) | |
209 (insert generate-autoload-section-trailer))) | |
210 (message "Generating autoloads for %s...done" file))) | |
2535
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
211 |
473 | 212 (defconst generated-autoload-file "loaddefs.el" |
213 "*File \\[update-file-autoloads] puts autoloads into. | |
214 A .el file can set this in its local variables section to make its | |
215 autoloads go somewhere else.") | |
216 | |
217 ;;;###autoload | |
218 (defun update-file-autoloads (file) | |
219 "Update the autoloads for FILE in `generated-autoload-file' | |
220 \(which FILE might bind in its local variables)." | |
221 (interactive "fUpdate autoloads for file: ") | |
222 (let ((load-name (let ((name (file-name-nondirectory file))) | |
223 (if (string-match "\\.elc?$" name) | |
224 (substring name 0 (match-beginning 0)) | |
225 name))) | |
226 (done nil) | |
227 (existing-buffer (get-file-buffer file))) | |
228 (save-excursion | |
229 ;; We want to get a value for generated-autoload-file from | |
230 ;; the local variables section if it's there. | |
231 (set-buffer (find-file-noselect file)) | |
232 (set-buffer (find-file-noselect generated-autoload-file)) | |
233 (save-excursion | |
234 (save-restriction | |
235 (widen) | |
236 (goto-char (point-min)) | |
237 (while (search-forward generate-autoload-section-header nil t) | |
238 (let ((form (condition-case () | |
239 (read (current-buffer)) | |
240 (end-of-file nil)))) | |
241 (if (string= (nth 2 form) load-name) | |
242 (let ((begin (match-beginning 0)) | |
243 (last-time (nth 4 form)) | |
244 (file-time (nth 5 (file-attributes file)))) | |
245 (if (and (or (null existing-buffer) | |
246 (not (buffer-modified-p existing-buffer))) | |
247 (listp last-time) (= (length last-time) 2) | |
248 (or (> (car last-time) (car file-time)) | |
249 (and (= (car last-time) (car file-time)) | |
250 (>= (nth 1 last-time) | |
251 (nth 1 file-time))))) | |
252 (message "Autoload section for %s is up to date." | |
253 file) | |
254 (search-forward generate-autoload-section-trailer) | |
255 (delete-region begin (point)) | |
256 (generate-file-autoloads file)) | |
257 (setq done t)))))) | |
258 (if done | |
259 () | |
260 ;; Have the user tell us where to put the section. | |
261 (save-window-excursion | |
262 (switch-to-buffer (current-buffer)) | |
263 (with-output-to-temp-buffer "*Help*" | |
264 (princ (substitute-command-keys | |
265 (format "\ | |
266 Move point to where the autoload section | |
267 for %s should be inserted. | |
268 Then do \\[exit-recursive-edit]." | |
269 file)))) | |
1108 | 270 (recursive-edit) |
271 (beginning-of-line)) | |
473 | 272 (generate-file-autoloads file))) |
2535
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
273 (if (interactive-p) (save-buffer)) |
473 | 274 (if (and (null existing-buffer) |
275 (setq existing-buffer (get-file-buffer file))) | |
276 (kill-buffer existing-buffer))))) | |
277 | |
278 ;;;###autoload | |
279 (defun update-autoloads-here () | |
3774
3b0cb275ca29
(generate-autoload-cookie, update-autoloads-here): Doc fixes.
Roland McGrath <roland@gnu.org>
parents:
2535
diff
changeset
|
280 "\ |
3b0cb275ca29
(generate-autoload-cookie, update-autoloads-here): Doc fixes.
Roland McGrath <roland@gnu.org>
parents:
2535
diff
changeset
|
281 Update sections of the current buffer generated by \\[update-file-autoloads]." |
473 | 282 (interactive) |
283 (let ((generated-autoload-file (buffer-file-name))) | |
284 (save-excursion | |
285 (goto-char (point-min)) | |
286 (while (search-forward generate-autoload-section-header nil t) | |
287 (let* ((form (condition-case () | |
288 (read (current-buffer)) | |
289 (end-of-file nil))) | |
290 (file (nth 3 form))) | |
291 (if (and (stringp file) | |
292 (or (get-file-buffer file) | |
293 (file-exists-p file))) | |
294 () | |
295 (setq file (if (y-or-n-p (format "Library \"%s\" (load \ | |
296 file \"%s\") doesn't exist. Remove its autoload section? " | |
297 (nth 2 form) file)) | |
298 t | |
299 (condition-case () | |
300 (read-file-name (format "Find \"%s\" load file: " | |
301 (nth 2 form)) | |
302 nil nil t) | |
303 (quit nil))))) | |
304 (if file | |
305 (let ((begin (match-beginning 0))) | |
306 (search-forward generate-autoload-section-trailer) | |
307 (delete-region begin (point)))) | |
308 (if (stringp file) | |
309 (generate-file-autoloads file))))))) | |
310 | |
311 ;;;###autoload | |
312 (defun update-directory-autoloads (dir) | |
313 "Run \\[update-file-autoloads] on each .el file in DIR." | |
314 (interactive "DUpdate autoloads for directory: ") | |
315 (mapcar 'update-file-autoloads | |
2535
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
316 (directory-files dir nil "\\.el$")) |
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
317 (if (interactive-p) |
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
318 (save-excursion |
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
319 (set-buffer (find-file-noselect generated-autoload-file)) |
86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
Roland McGrath <roland@gnu.org>
parents:
2494
diff
changeset
|
320 (save-buffer)))) |
473 | 321 |
322 ;;;###autoload | |
323 (defun batch-update-autoloads () | |
324 "Update the autoloads for the files or directories on the command line. | |
325 Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] | |
326 on directories. Must be used only with -batch, and kills Emacs on completion. | |
327 Each file will be processed even if an error occurred previously. | |
648 | 328 For example, invoke \"emacs -batch -f batch-update-autoloads *.el\"" |
473 | 329 (if (not noninteractive) |
330 (error "batch-update-file-autoloads is to be used only with -batch")) | |
331 (let ((lost nil) | |
332 (args command-line-args-left)) | |
333 (while args | |
334 (catch 'file | |
335 (condition-case lossage | |
336 (if (file-directory-p (expand-file-name (car args))) | |
337 (update-directory-autoloads (car args)) | |
338 (update-file-autoloads (car args))) | |
339 (error (progn (message ">>Error processing %s: %s" | |
340 (car args) lossage) | |
341 (setq lost t) | |
342 (throw 'file nil))))) | |
343 (setq args (cdr args))) | |
344 (save-some-buffers t) | |
345 (message "Done") | |
346 (kill-emacs (if lost 1 0)))) | |
347 | |
348 (provide 'autoload) | |
648 | 349 |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
350 ;;; autoload.el ends here |