XEmacs 21.2-b2

[chise/xemacs-chise.git.1] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 68063a8..35cc183 100644 (file)
--- 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-