diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ldefs-clean.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/admin/ldefs-clean.el b/admin/ldefs-clean.el index 6eabe57c7e4..c227a163604 100644 --- a/admin/ldefs-clean.el +++ b/admin/ldefs-clean.el | |||
| @@ -37,9 +37,11 @@ | |||
| 37 | "Clean up output from build and turn it into ldefs-boot-auto.el." | 37 | "Clean up output from build and turn it into ldefs-boot-auto.el." |
| 38 | (interactive) | 38 | (interactive) |
| 39 | (goto-char (point-max)) | 39 | (goto-char (point-max)) |
| 40 | ;; We only need the autoloads up till loaddefs.el is | 40 | ;; We need to record autoloads till the point that emacs (as opposed |
| 41 | ;; generated. After this, ldefs-boot.el is not needed | 41 | ;; to bootstrap-emacs) is dumped. After this point, we are not |
| 42 | (search-backward " GEN loaddefs.el") | 42 | ;; bootstrapping any more. |
| 43 | (search-backward "-l loadup dump") | ||
| 44 | (beginning-of-line) | ||
| 43 | (delete-region (point) (point-max)) | 45 | (delete-region (point) (point-max)) |
| 44 | (keep-lines "(autoload" (point-min) (point-max)) | 46 | (keep-lines "(autoload" (point-min) (point-max)) |
| 45 | (sort-lines nil (point-min) (point-max)) | 47 | (sort-lines nil (point-min) (point-max)) |