comparison lisp/emacs-lisp/autoload.el @ 22003:ea83fc4c4f77

(generate-file-autoloads): Handle progn forms generated by make-autoload: print just the first subform with print-escape-newlines.

22002:c40d3d44e6fd

		    (setq done-any t)
		    (if (eolp)
			;; 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))
			       (doc-string-elt (get (car-safe form)
						    'doc-string-elt)))
			  (if autoload
			      (setq autoloads-done (cons (nth 1 form)
							 autoloads-done))

					    (prin1-to-string (cdr elt))
					    1)
					   outbuf))
				  (terpri outbuf)))
			    (let ((print-escape-newlines t))
			      (print autoload outbuf))))
			  ;; Copy the rest of the line to the output.
		      (princ (buffer-substring
			      (progn
				;; Back up over whitespace, to preserve it.
				(skip-chars-backward " \f\t")

22003:ea83fc4c4f77

		    (setq done-any t)
		    (if (eolp)
			;; Read the next form and make an autoload.
			(let* ((form (prog1 (read (current-buffer))
				       (or (bolp) (forward-line 1))))
			       (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
			      (setq autoloads-done (cons (nth 1 form)
							 autoloads-done))

					    (prin1-to-string (cdr elt))
					    1)
					   outbuf))
				  (terpri outbuf)))
			    (let ((print-escape-newlines t))
			      (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
				;; Back up over whitespace, to preserve it.
				(skip-chars-backward " \f\t")