Mercurial > hg > xemacs-beta

diff lisp/loadhist.el @ 4922:8934492a0e97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 03 Feb 2010 08:03:15 -0600
parents bedf3747a6d7
children 39d74978fd32
line wrap: on
line diff
--- a/lisp/loadhist.el	Wed Feb 03 08:01:55 2010 -0600
+++ b/lisp/loadhist.el	Wed Feb 03 08:03:15 2010 -0600
@@ -90,7 +90,10 @@
         ;; This is a bit heuristic, but shouldn't realistically be a
         ;; problem:
         (if (string-match "\.elc?$" built-in-file)
-            (concat lisp-directory built-in-file)
+            (concat (if (file-readable-p source-lisp)
+			source-lisp
+		      lisp-directory)
+		    built-in-file)
           (concat source-directory "/src/" built-in-file))))))
 
 (defun feature-symbols (feature)