diff lisp/loadhist.el @ 4915:bedf3747a6d7

Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file lisp/ChangeLog addition: 2010-02-01 Aidan Kehoe <kehoea@parhasard.net> * loadhist.el (symbol-file): If #'built-in-symbol-file returns a Lisp file name, and source-lisp is readable, construct a full pathname to include that. Otherwise use lisp-directory, as we used to. * loadup.el: Delete load-history entries for those files in preloaded-file-list; unloading the associated features makes very little sense, and the symbol file information can be had from DOC.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 03 Feb 2010 00:20:08 +0000
parents 755ae5b97edb
children 39d74978fd32
line wrap: on
line diff
--- a/lisp/loadhist.el	Tue Feb 02 15:19:15 2010 -0600
+++ b/lisp/loadhist.el	Wed Feb 03 00:20:08 2010 +0000
@@ -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)