Mercurial > hg > xemacs-beta
comparison lisp/autoload.el @ 4332:6ad202d453cb
Insert <immediate> into section header for immediate autoloads.
2007-12-18 Mike Sperber <mike@xemacs.org>
* autoload.el (process-one-lisp-autoload): Insert <immediate> into
the section header for immediate autoloads, to make sure the
upstream doesn't think there aren't any autoloads at all.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Thu, 20 Dec 2007 08:49:38 +0100 |
| parents | cee827542370 |
| children | d2f4dd8611d9 |
comparison
equal
deleted
inserted
replaced
| 4331:4fbcce3f6097 | 4332:6ad202d453cb |
|---|---|
| 514 ;; do-nothing find-file-hook... --Stig | 514 ;; do-nothing find-file-hook... --Stig |
| 515 (forward-line 1) | 515 (forward-line 1) |
| 516 (let ((begin (point))) | 516 (let ((begin (point))) |
| 517 (forward-sexp) | 517 (forward-sexp) |
| 518 (forward-line 1) | 518 (forward-line 1) |
| 519 (princ (buffer-substring begin (point)) outbuf))) | 519 (princ (buffer-substring begin (point)) outbuf)) |
| 520 (setq autoloads-done (cons '<immediate> autoloads-done))) | |
| 520 (t | 521 (t |
| 521 (princ (buffer-substring | 522 (princ (buffer-substring |
| 522 (progn | 523 (progn |
| 523 ;; Back up over whitespace, to preserve it. | 524 ;; Back up over whitespace, to preserve it. |
| 524 (skip-chars-backward " \f\t") | 525 (skip-chars-backward " \f\t") |