Mercurial > hg > xemacs-beta

comparison lisp/loadhist.el @ 4915:bedf3747a6d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4914:1628e3b9601a 4915:bedf3747a6d7
88 ;; Probably a full path name: 88 ;; Probably a full path name:
89 built-in-file 89 built-in-file
90 ;; This is a bit heuristic, but shouldn't realistically be a 90 ;; This is a bit heuristic, but shouldn't realistically be a
91 ;; problem: 91 ;; problem:
92 (if (string-match "\.elc?$" built-in-file) 92 (if (string-match "\.elc?$" built-in-file)
93 (concat lisp-directory built-in-file) 93 (concat (if (file-readable-p source-lisp)
94 source-lisp
95 lisp-directory)
96 built-in-file)
94 (concat source-directory "/src/" built-in-file)))))) 97 (concat source-directory "/src/" built-in-file))))))
95 98
96 (defun feature-symbols (feature) 99 (defun feature-symbols (feature)
97 "Return the file and list of symbols associated with a given FEATURE." 100 "Return the file and list of symbols associated with a given FEATURE."
98 (let ((pair `(provide . ,feature))) 101 (let ((pair `(provide . ,feature)))