procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(autoload-print-form-outbuf): New variable.

Browse source 
(autoload-print-form): Use autoload-print-form-outbuf.
(generate-file-autoloads): Bind autoload-print-form-outbuf.
This commit is contained in:
Richard M. Stallman 2002-12-07 21:31:58 +00:00
parent e0dfc625b5
commit 4a3c5b3af9
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/autoload.el
View file

@ -164,16 +164,20 @@ markers before we call `read'."
(goto-char (point-min))
(read (current-buffer))))))
;; !! Requires OUTBUF to be bound !!
(defvar autoload-print-form-outbuf)
(defun autoload-print-form (form)
"Print FORM such that make-docfile will find the docstrings."
"Print FORM such that `make-docfile' will find the docstrings.
The variable `autoload-print-form-outbuf' specifies the buffer to
put the output in."
(cond
;; If the form is a sequence, recurse.
((eq (car form) 'progn) (mapcar 'autoload-print-form (cdr form)))
;; Symbols at the toplevel are meaningless.
((symbolp form) nil)
(t
(let ((doc-string-elt (get (car-safe form) 'doc-string-elt)))
(let ((doc-string-elt (get (car-safe form) 'doc-string-elt))
(outbuf autoload-print-form-outbuf))
(if (and doc-string-elt (stringp (nth doc-string-elt form)))
;; We need to hack the printing because the
;; doc-string must be printed specially for
@ -317,7 +321,8 @@ are used."
(setq autoloads-done (cons (nth 1 form)
autoloads-done))
(setq autoload form))
(autoload-print-form autoload))
(let ((autoload-print-form-outbuf outbuf))
(autoload-print-form autoload)))
;; Copy the rest of the line to the output.
(princ (buffer-substring