mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(describe-function-1): If the source is `loaddefs.el', look for the

Browse Source 
real source.  This is necessary only for defaliases.
This commit is contained in:
Markus Rost 2002-05-08 18:05:28 +00:00
parent 2b74dd73d5
commit 35679c3f5c
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -4,6 +4,15 @@
2002-05-08 Markus Rost <rost@math.ohio-state.edu>
* help-fns.el (describe-function-1): If the source is
`loaddefs.el', look for the real source. This is necessary only
for defaliases.
* emacs-lisp/find-func.el (find-function-search-for-symbol): Add
autoload cookie.
(find-function-regexp): Include
"\(quote " to match the defaliases in loaddefs.el.
* filesets.el (filesets-conditional-sort): Use copy-sequence, not
copy-list.
(filesets-menu-path, filesets-menu-before, filesets-menu-in-menu):

13
lisp/help-fns.el
View File

@ -210,6 +210,19 @@ and the file name is displayed in the echo area."
(help-xref-button 1 'help-function def)))))
(or file-name
(setq file-name (symbol-file function)))
(when (equal file-name "loaddefs.el")
;; Find the real def site of the preloaded function.
;; This is necessary only for defaliases.
(let ((location
(condition-case nil
(find-function-search-for-symbol function nil "loaddefs.el")
(error nil))))
(when location
(with-current-buffer (car location)
(goto-char (cdr location))
(when (re-search-backward
"^;;; Generated autoloads from \\(.*\\)" nil t)
(setq file-name (match-string 1)))))))
(cond
(file-name
(princ " in `")