comparison lisp/loadhist.el @ 5206:39d74978fd32

Keep around file info for dumped functions and variables without docstrings. src/ChangeLog addition: 2010-04-17 Aidan Kehoe <kehoea@parhasard.net> * doc.c (Fdocumentation): If we have a zero length doc string in DOC, as may happen for undocumented compiled function objects which nonetheless have file information stored, return nil. (Fsnarf_documentation): DOC info existing for compiled functions without docstrings is perfectly legitimate, now the file is also used to store file names. * bytecode.c (set_compiled_function_documentation): Allow this function to set the documentation successfully for compiled function objects that don't currently have documentation; most relevant for functions without docstrings which have file information stored in DOC. lib-src/ChangeLog addition: 2010-04-17 Aidan Kehoe <kehoea@parhasard.net> * make-docfile.c (scan_lisp_file): Even if a function doesn't have a doc string, store its file name in DOC. lisp/ChangeLog addition: 2010-04-17 Aidan Kehoe <kehoea@parhasard.net> * loadup.el (load-history): Be a bit more discriminate in the entries we remove from load-history, only removing those where the information is entirely available from DOC. Fixes problems finding the files that dumped undocumented variables were loaded from, reported by Didier Verna. * loadhist.el (symbol-file): Correct a regexp here, I had forgotten to double a backslash.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 17 Apr 2010 10:40:03 +0100
parents bedf3747a6d7
children 308d34e9f07d
comparison
equal deleted inserted replaced
5205:fcdb86afcb91 5206:39d74978fd32
87 (if (equal built-in-file (file-truename built-in-file)) 87 (if (equal built-in-file (file-truename built-in-file))
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 #r"\.elc?$" built-in-file)
93 (concat (if (file-readable-p source-lisp) 93 (concat (if (file-readable-p source-lisp)
94 source-lisp 94 source-lisp
95 lisp-directory) 95 lisp-directory)
96 built-in-file) 96 built-in-file)
97 (concat source-directory "/src/" built-in-file)))))) 97 (concat source-directory "/src/" built-in-file))))))