CVS update by michaels xemacs/lisp ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Fri May 25 11:48:01 EDT 2007
User: michaels
Date: 07/05/25 17:48:01
Modified: xemacs/lisp ChangeLog startup.el
Log:
2007-05-25 Mike Sperber <mike at xemacs.org>
* startup.el (startup-setup-paths): Print the configure-xxx
variables as well.
Revision Changes Path
1.802 +6 -1 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.801
retrieving revision 1.802
diff -u -p -r1.801 -r1.802
--- ChangeLog 2007/05/21 09:25:46 1.801
+++ ChangeLog 2007/05/25 15:47:55 1.802
@@ -1,3 +1,8 @@
+2007-05-25 Mike Sperber <mike at xemacs.org>
+
+ * startup.el (startup-setup-paths): Print the configure-xxx
+ variables as well.
+
2007-05-21 Aidan Kehoe <kehoea at parhasard.net>
* mule/latin.el:
@@ -276,7 +281,7 @@
in Unicode, and its Mule charsets and codes, instead of simply its
integer code point in this XEmacs.
-2006-11-30 Mike Sperber <mike at xemacs.org>
+2006-11-30 Mike Sperber <mike at xemacs.org><
* code-files.el (insert-file-contents): Call the file-name handler
from Lisp, not from `insert-file-contents-internal', which is too late.
1.58 +24 -17 XEmacs/xemacs/lisp/startup.el
Index: startup.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/startup.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -p -r1.57 -r1.58
--- startup.el 2006/10/30 11:17:46 1.57
+++ startup.el 2007/05/25 15:47:56 1.58
@@ -1496,7 +1496,8 @@ configure-package-path: %S
(setq lisp-directory (paths-find-lisp-directory emacs-roots))
(if debug-paths
- (princ (format "lisp-directory:\n%S\n" lisp-directory)
+ (princ (format "configure-lisp-directory and lisp-directory:\n%S\n%S\n"
+ configure-lisp-directory lisp-directory)
'external-debugging-output))
(if (featurep 'mule)
@@ -1505,8 +1506,8 @@ configure-package-path: %S
(paths-find-mule-lisp-directory emacs-roots
lisp-directory))
(if debug-paths
- (princ (format "mule-lisp-directory:\n%S\n"
- mule-lisp-directory)
+ (princ (format "configure-mule-lisp-directory and mule-lisp-directory:\n%S\n%S\n"
+ configure-mule-lisp-directory mule-lisp-directory)
'external-debugging-output)))
(setq mule-lisp-directory '()))
@@ -1514,20 +1515,21 @@ configure-package-path: %S
(paths-find-site-lisp-directory emacs-roots)))
(if (and debug-paths (null inhibit-site-lisp))
- (princ (format "site-directory:\n%S\n" site-directory)
+ (princ (format "configure-site-directory and site-directory:\n%S\n%S\n"
+ configure-site-directory site-directory)
'external-debugging-output))
(setq load-path (startup-find-load-path inhibit-packages t))
(when debug-paths
- (princ (format "early-package-hierarchies and early-package-load-path:\n%S\n%S\n"
- early-package-hierarchies early-package-load-path)
+ (princ (format "configure-early-package-directories, early-package-hierarchies and early-package-load-path:\n%S\n%S\n%S\n"
+ configure-early-package-directories early-package-hierarchies early-package-load-path)
'external-debugging-output)
- (princ (format "late-package-hierarchies and late-package-load-path:\n%S\n%S\n"
- late-package-hierarchies late-package-load-path)
+ (princ (format "configure-late-package-directories, late-package-hierarchies and late-package-load-path:\n%S\n%S\n"
+ configure-late-package-directories late-package-hierarchies late-package-load-path)
'external-debugging-output)
- (princ (format "last-package-hierarchies and last-package-load-path:\n%S\n%S\n"
- last-package-hierarchies last-package-load-path)
+ (princ (format "configure-last-package-directories, last-package-hierarchies and last-package-load-path:\n%S\n%S\n"
+ configure-last-package-directories last-package-hierarchies last-package-load-path)
'external-debugging-output))
(if debug-paths
@@ -1535,14 +1537,15 @@ configure-package-path: %S
'external-debugging-output))
(setq module-directory (paths-find-module-directory emacs-roots))
(if debug-paths
- (princ (format "module-directory:\n%S\n" module-directory)
+ (princ (format "configure-module-directory and module-directory:\n%S\n"
+ configure-module-directory module-directory)
'external-debugging-output))
(setq site-module-directory (and (null inhibit-site-modules)
(paths-find-site-module-directory
emacs-roots)))
(if (and debug-paths (null inhibit-site-modules))
- (princ (format "site-module-directory:\n%S\n"
- site-module-directory)
+ (princ (format "configure-site-module-directory and site-module-directory:\n%S\n%S\n"
+ configure-site-module-directory site-module-directory)
'external-debugging-output))
(setq module-load-path (paths-construct-module-load-path
@@ -1557,13 +1560,15 @@ configure-package-path: %S
early-package-hierarchies late-package-hierarchies last-package-hierarchies))
(if debug-paths
- (princ (format "Info-directory-list:\n%S\n" Info-directory-list)
+ (princ (format "configure-info-directory, configure-info-path and Info-directory-list:\n%S\n%S\n%S\n"
+ configure-info-directory configure-info-path Info-directory-list)
'external-debugging-output))
(setq exec-directory (paths-find-exec-directory emacs-roots))
(if debug-paths
- (princ (format "exec-directory:\n%s\n" exec-directory)
+ (princ (format "configure-exec-directory and exec-directory:\n%S\n%S\n"
+ configure-exec-directory exec-directory)
'external-debugging-output))
(setq exec-path
@@ -1578,13 +1583,15 @@ configure-package-path: %S
(setq doc-directory (paths-find-doc-directory emacs-roots))
(if debug-paths
- (princ (format "doc-directory:\n%S\n" doc-directory)
+ (princ (format "configure-doc-directory and doc-directory:\n%S\n%S\n"
+ configure-doc-directory doc-directory)
'external-debugging-output))
(setq data-directory (paths-find-data-directory emacs-roots))
(if debug-paths
- (princ (format "data-directory:\n%S\n" data-directory)
+ (princ (format "configure-data-directory and data-directory:\n%S\n%S\n"
+ configure-data-directory data-directory)
'external-debugging-output))
(setq data-directory-list (paths-construct-data-directory-list
More information about the XEmacs-CVS
mailing list