Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 6280:54968237a1ac
(generate-file-autoloads): Don't ignore the line
after the form marked by a ;;;###autoload\n.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 10 Mar 1994 04:18:10 +0000 |
| parents | f18b10850c00 |
| children | 0611d70ad480 |
comparison
equal
deleted
inserted
replaced
| 6279:8ee9dcd3771e | 6280:54968237a1ac |
|---|---|
| 156 (skip-chars-forward " \t") | 156 (skip-chars-forward " \t") |
| 157 (setq done-any t) | 157 (setq done-any t) |
| 158 (if (eolp) | 158 (if (eolp) |
| 159 ;; Read the next form and make an autoload. | 159 ;; Read the next form and make an autoload. |
| 160 (let* ((form (prog1 (read (current-buffer)) | 160 (let* ((form (prog1 (read (current-buffer)) |
| 161 (forward-line 1))) | 161 (or (bolp) (forward-line 1)))) |
| 162 (autoload (make-autoload form load-name)) | 162 (autoload (make-autoload form load-name)) |
| 163 (doc-string-elt (get (car-safe form) | 163 (doc-string-elt (get (car-safe form) |
| 164 'doc-string-elt))) | 164 'doc-string-elt))) |
| 165 (if autoload | 165 (if autoload |
| 166 (setq autoloads-done (cons (nth 1 form) | 166 (setq autoloads-done (cons (nth 1 form) |