Mercurial > hg > xemacs-beta

diff lisp/dump-paths.el @ 460:223736d75acb r21-2-45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-45
author cvs
date Mon, 13 Aug 2007 11:43:24 +0200
parents 98528da0b7fc
children 79940b592197
line wrap: on
line diff
--- a/lisp/dump-paths.el	Mon Aug 13 11:42:27 2007 +0200
+++ b/lisp/dump-paths.el	Mon Aug 13 11:43:24 2007 +0200
@@ -62,6 +62,16 @@
   (if debug-paths
       (princ (format "lisp-directory:\n%S\n" lisp-directory)
 	     'external-debugging-output))
+  (if (featurep 'mule)
+      (progn
+	(setq mule-lisp-directory
+	      (paths-find-mule-lisp-directory roots
+					      lisp-directory))
+	(if debug-paths
+	    (princ (format "mule-lisp-directory:\n%S\n"
+			   mule-lisp-directory)
+		   'external-debugging-output)))
+    (setq mule-lisp-directory '()))
   (setq site-directory (and (null inhibit-site-lisp)
 			    (paths-find-site-lisp-directory roots)))
   (if (and debug-paths (null inhibit-site-lisp))
@@ -73,7 +83,8 @@
 					     late-package-load-path
 					     '()
 					     lisp-directory
-					     site-directory))
+					     site-directory
+					     mule-lisp-directory))
 
   (setq module-directory (paths-find-module-directory roots))
   (if debug-paths