Function: autoload-read-section-header

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

Signature

(autoload-read-section-header)

Documentation

Read a section header form.

Since continuation lines have been marked as comments, we must copy the text of the form and remove those comment markers before we call read.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/autoload.el.gz
(defun autoload-read-section-header ()
  "Read a section header form.
Since continuation lines have been marked as comments,
we must copy the text of the form and remove those comment
markers before we call `read'."
  (save-match-data
    (let ((beginning (point))
	  string)
      (forward-line 1)
      (while (looking-at generate-autoload-section-continuation)
	(forward-line 1))
      (setq string (buffer-substring beginning (point)))
      (with-current-buffer (get-buffer-create " *autoload*")
	(erase-buffer)
	(insert string)
	(goto-char (point-min))
	(while (search-forward generate-autoload-section-continuation nil t)
	  (replace-match " "))
	(goto-char (point-min))
	(read (current-buffer))))))