Mercurial > hg > xemacs-beta

changeset 4662:a597b89c2db9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print a few more variables upon --debug-paths.
author Mike Sperber <sperber@deinprogramm.de>
date Tue, 28 Jul 2009 15:49:37 +0200
parents 24224362882c
children 5220dbba8ccd
files lisp/ChangeLog lisp/startup.el
diffstat 2 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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): 
--- 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)
     )