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