# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1248788977 -7200
# Node ID a597b89c2db9b25297e1c434093eb32bae103650
# Parent  24224362882c1ad7e74cf6550a8d3dd4722d8956
Print a few more variables upon --debug-paths.

diff -r 24224362882c -r a597b89c2db9 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 28 15:43:08 2009 +0200
+++ b/lisp/ChangeLog	Tue Jul 28 15:49:37 2009 +0200
@@ -1,3 +1,8 @@
+2009-07-28  Mike Sperber  <mike@xemacs.org>
+
+	* startup.el (startup-setup-paths): Print a few more variables
+	upon --debug-paths.
+
 2009-07-18  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* files.el (find-file-create-switch-thunk): 
diff -r 24224362882c -r a597b89c2db9 lisp/startup.el
--- a/lisp/startup.el	Tue Jul 28 15:43:08 2009 +0200
+++ b/lisp/startup.el	Tue Jul 28 15:49:37 2009 +0200
@@ -1524,13 +1524,19 @@
 " inhibit-packages inhibit-site-lisp called-early)
 	   'external-debugging-output)
     (princ (format
-"emacs-roots:
+"invocation-directory: %S
+invocation-name: %S
+configure-prefix-directory: %S
+configure-exec-prefix-directory: %S
+emacs-roots:
 %S
 emacs-data-roots:
 %S
 user-init-directory: %S
 configure-package-path: %S
-" emacs-roots emacs-data-roots user-init-directory configure-package-path)
+" invocation-directory invocation-name
+  configure-prefix-directory configure-exec-prefix-directory
+  emacs-roots emacs-data-roots user-init-directory configure-package-path)
 	   'external-debugging-output)
     )