Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 3965:b292a011b5f4
(update-file-autoloads): Do nothing when there are no cookies.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sat, 03 Jul 1993 07:22:04 +0000 |
| parents | 21c6c1e1a38b |
| children | 26e0209b6e56 |
comparison
equal
deleted
inserted
replaced
| 3964:c4696ff3b067 | 3965:b292a011b5f4 |
|---|---|
| 233 (save-excursion | 233 (save-excursion |
| 234 (save-restriction | 234 (save-restriction |
| 235 (widen) | 235 (widen) |
| 236 (goto-char (point-min)) | 236 (goto-char (point-min)) |
| 237 (while (search-forward generate-autoload-section-header nil t) | 237 (while (search-forward generate-autoload-section-header nil t) |
| 238 (or done (setq done 'seen)) | |
| 238 (let ((form (condition-case () | 239 (let ((form (condition-case () |
| 239 (read (current-buffer)) | 240 (read (current-buffer)) |
| 240 (end-of-file nil)))) | 241 (end-of-file nil)))) |
| 241 (if (string= (nth 2 form) load-name) | 242 (if (string= (nth 2 form) load-name) |
| 242 (let ((begin (match-beginning 0)) | 243 (let ((begin (match-beginning 0)) |