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

(generate-file-autoloads): Handle progn forms generated by

Browse source 
make-autoload: print just the first subform with print-escape-newlines.
This commit is contained in:
Richard M. Stallman 1998-05-09 07:02:50 +00:00
parent ee019c842f
commit 6b797f0613
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -220,7 +220,10 @@ are used."
;; Read the next form and make an autoload.
(let* ((form (prog1 (read (current-buffer))
(or (bolp) (forward-line 1))))
(autoload (make-autoload form load-name))
(autoload-1 (make-autoload form load-name))
(autoload (if (eq (car autoload-1) 'progn)
(cadr autoload-1)
autoload-1))
(doc-string-elt (get (car-safe form)
'doc-string-elt)))
(if autoload
@ -267,7 +270,13 @@ are used."
outbuf))
(terpri outbuf)))
(let ((print-escape-newlines t))
(print autoload outbuf))))
(print autoload outbuf)))
(if (eq (car autoload-1) 'progn)
;; Print the rest of the form
(let ((print-escape-newlines t))
(mapcar (function (lambda (elt)
(print elt outbuf)))
(cddr autoload-1)))))
;; Copy the rest of the line to the output.
(princ (buffer-substring
(progn