Mercurial > emacs
changeset 33103:ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
"../src/bootstrap-emacs", in case it's not dumped and thus the load path
adjustment hasn't already been done.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Tue, 31 Oct 2000 15:58:25 +0000 |
| parents | 6740b05bc29b |
| children | c587b5380fe0 |
| files | lisp/ChangeLog lisp/loadup.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 31 13:32:29 2000 +0000 +++ b/lisp/ChangeLog Tue Oct 31 15:58:25 2000 +0000 @@ -1,3 +1,9 @@ +2000-10-31 Ken Raeburn <raeburn@gnu.org> + + * loadup.el (top level): Adjust load path if program name is + "../src/bootstrap-emacs", in case it's not dumped and thus the + load path adjustment hasn't already been done. + 2000-10-31 Vinicius Jose Latorre <vinicius@cpqd.com.br> * ps-print.el: Fix bug on selected pages for printing. Use
--- a/lisp/loadup.el Tue Oct 31 13:32:29 2000 +0000 +++ b/lisp/loadup.el Tue Oct 31 15:58:25 2000 +0000 @@ -31,7 +31,9 @@ ;; add subdirectories to the load-path for files that might ;; get autoloaded when bootstrapping (if (or (equal (nth 3 command-line-args) "bootstrap") - (equal (nth 4 command-line-args) "bootstrap")) + (equal (nth 4 command-line-args) "bootstrap") + ;; in case CANNOT_DUMP + (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) (let ((path (car load-path))) (setq load-path (list path (expand-file-name "emacs-lisp" path)