# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 973007905 0
# Node ID ecf2e8c385f812b6d8b29d9fcd4adecfaa8980dc
# Parent  6740b05bc29b8f01b192c714013f37b92b0bb8b2
* 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.

diff -r 6740b05bc29b -r ecf2e8c385f8 lisp/ChangeLog
--- 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
diff -r 6740b05bc29b -r ecf2e8c385f8 lisp/loadup.el
--- 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)