Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 48368:1fa683e2a917
(update-autoloads-from-directories): Sort the list of files with no
autoloads.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Sat, 16 Nov 2002 22:40:32 +0000 |
| parents | c102d9848214 |
| children | c1ae448c795b |
comparison
equal
deleted
inserted
replaced
| 48367:116b9f9915e6 | 48368:1fa683e2a917 |
|---|---|
| 535 ;; Elements remaining in FILES have no existing autoload sections yet. | 535 ;; Elements remaining in FILES have no existing autoload sections yet. |
| 536 (setq no-autoloads | 536 (setq no-autoloads |
| 537 (append no-autoloads | 537 (append no-autoloads |
| 538 (delq nil (mapcar 'update-file-autoloads files)))) | 538 (delq nil (mapcar 'update-file-autoloads files)))) |
| 539 (when no-autoloads | 539 (when no-autoloads |
| 540 ;; Sort them for better readability. | |
| 541 (setq no-autoloads (sort no-autoloads 'string<)) | |
| 540 ;; Add the `no-autoloads' section. | 542 ;; Add the `no-autoloads' section. |
| 541 (goto-char (point-max)) | 543 (goto-char (point-max)) |
| 542 (search-backward "\f" nil t) | 544 (search-backward "\f" nil t) |
| 543 (autoload-insert-section-header | 545 (autoload-insert-section-header |
| 544 (current-buffer) nil nil no-autoloads this-time) | 546 (current-buffer) nil nil no-autoloads this-time) |