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 | 49fc45009ec4c2a08e29e22e3ebac7551aabc84a (patch) | |
| tree | ce6fdc1ed2d6ce73b90aa0d443c700dab49f4b54 /lisp/loadup.el | |
| parent | 0a894bad85dd799d5c008fe21a7b4530f969029e (diff) | |
| download | emacs-49fc45009ec4c2a08e29e22e3ebac7551aabc84a.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) |