Mercurial > emacs
changeset 1703:b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 24 Dec 1992 06:00:32 +0000 |
| parents | 817bd71e0e72 |
| children | 7e1897c2951b |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Thu Dec 24 06:00:03 1992 +0000 +++ b/lisp/loadup.el Thu Dec 24 06:00:32 1992 +0000 @@ -148,18 +148,22 @@ (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) - (message "Dumping under names xemacs and %s" name)) + (message "Dumping under names emacs and %s" name)) (condition-case () - (delete-file "xemacs") + (delete-file "emacs") (file-error nil)) - (dump-emacs "xemacs" "temacs") + ;; We used to dump under the name xemacs, but that occasionally + ;; confused people installing Emacs (they'd install the file + ;; under the name `xemacs'), and it's inconsistent with every + ;; other GNU product's build process. + (dump-emacs "emacs" "temacs") ;; Recompute NAME now, so that it isn't set when we dump. (let ((name (concat "emacs-" emacs-version))) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) - (add-name-to-file "xemacs" name t)) + (add-name-to-file "emacs" name t)) (kill-emacs))) ;; Avoid error if user loads some more libraries now.