X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Floadup.el;h=35cc183d5938ecf144618fae46eee9cc7be93117;hp=68063a8cea170359e8df37b178b74118a4a4cd53;hb=72a705551741d6f85a40eea486c222bac482d8dc;hpb=fb022c5b8ea6aca36b9661a6b2707afdd07e4c05

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 68063a8..35cc183 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -64,7 +64,6 @@
 	;; the package path.
 	;; #### This code is duplicated in two other places.
 	(let ((temp-path (expand-file-name "." (car load-path))))
-	  (setq source-directory temp-path)
 	  (setq load-path (nconc (mapcar
 				  #'(lambda (i) (concat i "/"))
 				  (directory-files temp-path t "^[^-.]"
@@ -183,19 +182,16 @@
     (dump-emacs (if (featurep 'infodock) "infodock" "xemacs") "temacs")
     (kill-emacs))
 
+;; Avoid error if user loads some more libraries now.
+(setq purify-flag nil)
+
 (when (member "run-temacs" command-line-args)
   (message "\nBootstrapping from temacs...")
-  (setq purify-flag nil)
-  (setq inhibit-early-packages t)
-  (setq inhibit-autoloads t)
   ;; Remove all args up to and including "run-temacs"
   (apply #'run-emacs-from-temacs (cdr (member "run-temacs" command-line-args)))
   ;; run-emacs-from-temacs doesn't actually return anyway.
   (kill-emacs))
 
-;; Avoid error if user loads some more libraries now.
-(setq purify-flag nil)
-
 ;; XEmacs change
 ;; If you are using 'recompile', then you should have used -l loadup-el.el
 ;; so that the .el files always get loaded (the .elc files may be out-of-