1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(defun member (e list)
(while (and list (not (equal e (car list))))
(setq list (cdr list)))
list )
(defun print-autoloads ()
(let ((files (cdr (member "print-autoloads" command-line-args)))
;; kludge for broken v19 emacs. it's supposed to accept
;; t in autoloads to mean 'macro but it doesn't. this
;; kludge will screw people who try to byte-compile VM
;; with emacs18 for emacs19.
(macro-flag (if (string-match "^19" emacs-version) ''macro t))
sexp function doc interactive macro)
(setq expanded-files (mapcar (function expand-file-name) files))
(while files
(set-buffer (find-file-noselect (car expanded-files)))
(goto-char (point-min))
(condition-case nil
(while t
(setq sexp (read (current-buffer)))
(if (and (consp sexp) (cdr sexp)
(memq (car sexp) '(defun defmacro defsubst fset)))
(progn
(if (memq (car sexp) '(defmacro defsubst))
(setq macro macro-flag)
(setq macro nil))
(if (eq (car sexp) 'fset)
(setq sexp (cdr sexp)
function (eval (car sexp))
interactive nil
doc nil)
(setq sexp (cdr sexp)
function (car sexp)
sexp (cdr (cdr sexp)))
(if (stringp (car sexp))
(setq doc (car sexp)
sexp (cdr sexp))
(setq doc nil))
(if (and (consp (car sexp))
(eq (car (car sexp)) 'interactive))
(setq interactive t)
(setq interactive nil)))
(if (string-match "\\.el$" (car files))
(setq file (substring (car files) 0 -3))
(setq file (car files)))
(print (list 'autoload (list 'quote function) file
doc interactive macro)))))
(end-of-file nil))
(kill-buffer (current-buffer))
(setq files (cdr files)
expanded-files (cdr expanded-files))))
(kill-emacs))
|