* lisp/help-fns.el (describe-function-1):
Fix handling of file name for aliases. (Bug#21950)
This commit is contained in:
parent
a3f7ae80b1
commit
4c1370a10b
1 changed files with 2 additions and 1 deletions
|
@ -526,7 +526,8 @@ FILE is the file where FUNCTION was probably defined."
|
||||||
(sig-key (if (subrp def)
|
(sig-key (if (subrp def)
|
||||||
(indirect-function real-def)
|
(indirect-function real-def)
|
||||||
real-def))
|
real-def))
|
||||||
(file-name (find-lisp-object-file-name function def))
|
(file-name (find-lisp-object-file-name function (if aliased 'defun
|
||||||
|
def)))
|
||||||
(pt1 (with-current-buffer (help-buffer) (point)))
|
(pt1 (with-current-buffer (help-buffer) (point)))
|
||||||
(beg (if (and (or (byte-code-function-p def)
|
(beg (if (and (or (byte-code-function-p def)
|
||||||
(keymapp def)
|
(keymapp def)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue