diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ldefs-clean.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/admin/ldefs-clean.el b/admin/ldefs-clean.el index 91512b4bbb7..c227a163604 100644 --- a/admin/ldefs-clean.el +++ b/admin/ldefs-clean.el | |||
| @@ -40,6 +40,9 @@ | |||
| 40 | ;; We need to record autoloads till the point that emacs (as opposed | 40 | ;; We need to record autoloads till the point that emacs (as opposed |
| 41 | ;; to bootstrap-emacs) is dumped. After this point, we are not | 41 | ;; to bootstrap-emacs) is dumped. After this point, we are not |
| 42 | ;; bootstrapping any more. | 42 | ;; bootstrapping any more. |
| 43 | (search-backward "-l loadup dump") | ||
| 44 | (beginning-of-line) | ||
| 45 | (delete-region (point) (point-max)) | ||
| 43 | (keep-lines "(autoload" (point-min) (point-max)) | 46 | (keep-lines "(autoload" (point-min) (point-max)) |
| 44 | (sort-lines nil (point-min) (point-max)) | 47 | (sort-lines nil (point-min) (point-max)) |
| 45 | (ldefs-clean-uniquify-buffer-lines) | 48 | (ldefs-clean-uniquify-buffer-lines) |
| @@ -57,6 +60,6 @@ | |||
| 57 | 60 | ||
| 58 | 61 | ||
| 59 | (defun ldefs-clean () | 62 | (defun ldefs-clean () |
| 60 | (find-file "../lisp/ldefs-boot-auto.temp") | 63 | (find-file "lisp/ldefs-boot-auto.temp") |
| 61 | (ldefs-clean-up) | 64 | (ldefs-clean-up) |
| 62 | (write-file "ldefs-boot-auto.el")) | 65 | (write-file "ldefs-boot-auto.el")) |