diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2000-10-31 15:58:25 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2000-10-31 15:58:25 +0000 |
| commit | 71b98244057ce7f02a888dc50ca0740ffd25900b (patch) | |
| tree | 212b4ef394a16904a4642a42320f9eaaebe72092 /lisp/loadup.el | |
| parent | aa87affef4e427ea38ed7c665bd24479c713e210 (diff) | |
| download | emacs-71b98244057ce7f02a888dc50ca0740ffd25900b.tar.gz | |
* 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.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index d97613f94b1..237ed920f60 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -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) |