Function: autoload-insert-section-header

autoload-insert-section-header is a byte-compiled function defined in autoload.el.gz.

Signature

(autoload-insert-section-header OUTBUF AUTOLOADS LOAD-NAME FILE TIME)

Documentation

Insert into buffer OUTBUF the section-header line for FILE.

The header line lists the file name, its "load name", its autoloads, and the time the FILE was last updated (the time is inserted only if autoload-timestamps is non-nil, otherwise a fixed fake time is inserted).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/autoload.el.gz
(defun autoload-insert-section-header (outbuf autoloads load-name file time)
  "Insert into buffer OUTBUF the section-header line for FILE.
The header line lists the file name, its \"load name\", its autoloads,
and the time the FILE was last updated (the time is inserted only
if `autoload-timestamps' is non-nil, otherwise a fixed fake time is inserted)."
  ;; (cl-assert ;Make sure we don't insert it in the middle of another section.
  ;;  (save-excursion
  ;;    (or (not (re-search-backward
  ;;              (concat "\\("
  ;;                      (regexp-quote generate-autoload-section-header)
  ;;                      "\\)\\|\\("
  ;;                      (regexp-quote generate-autoload-section-trailer)
  ;;                      "\\)")
  ;;              nil t))
  ;;        (match-end 2))))
  (insert generate-autoload-section-header)
  (prin1 `(autoloads ,autoloads ,load-name ,file ,time)
	 outbuf)
  (terpri outbuf)
  ;; Break that line at spaces, to avoid very long lines.
  ;; Make each sub-line into a comment.
  (with-current-buffer outbuf
    (save-excursion
      (forward-line -1)
      (while (not (eolp))
	(move-to-column 64)
	(skip-chars-forward "^ \n")
	(or (eolp)
	    (insert "\n" generate-autoload-section-continuation))))))