Mercurial > hg > xemacs-beta
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)))))) |