Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
459:9d4fd877b885 460:223736d75acb
60 60
61 (setq lisp-directory (paths-find-lisp-directory roots)) 61 (setq lisp-directory (paths-find-lisp-directory roots))
62 (if debug-paths 62 (if debug-paths
63 (princ (format "lisp-directory:\n%S\n" lisp-directory) 63 (princ (format "lisp-directory:\n%S\n" lisp-directory)
64 'external-debugging-output)) 64 'external-debugging-output))
65 (if (featurep 'mule)
66 (progn
67 (setq mule-lisp-directory
68 (paths-find-mule-lisp-directory roots
69 lisp-directory))
70 (if debug-paths
71 (princ (format "mule-lisp-directory:\n%S\n"
72 mule-lisp-directory)
73 'external-debugging-output)))
74 (setq mule-lisp-directory '()))
65 (setq site-directory (and (null inhibit-site-lisp) 75 (setq site-directory (and (null inhibit-site-lisp)
66 (paths-find-site-lisp-directory roots))) 76 (paths-find-site-lisp-directory roots)))
67 (if (and debug-paths (null inhibit-site-lisp)) 77 (if (and debug-paths (null inhibit-site-lisp))
68 (princ (format "site-directory:\n%S\n" site-directory) 78 (princ (format "site-directory:\n%S\n" site-directory)
69 'external-debugging-output)) 79 'external-debugging-output))
71 (setq load-path (paths-construct-load-path roots 81 (setq load-path (paths-construct-load-path roots
72 '() 82 '()
73 late-package-load-path 83 late-package-load-path
74 '() 84 '()
75 lisp-directory 85 lisp-directory
76 site-directory)) 86 site-directory
87 mule-lisp-directory))
77 88
78 (setq module-directory (paths-find-module-directory roots)) 89 (setq module-directory (paths-find-module-directory roots))
79 (if debug-paths 90 (if debug-paths
80 (princ (format "module-directory:\n%S\n" module-directory) 91 (princ (format "module-directory:\n%S\n" module-directory)
81 'external-debugging-output)) 92 'external-debugging-output))