Allow help-C-file-name to work on symbols designating subrs
* lisp/help-fns.el (help-C-file-name): Allow working on symbols designating subrs (bug#14932).
This commit is contained in:
@@ -268,7 +268,9 @@ If we can't find the file name, nil is returned."
|
||||
(let ((docbuf (get-buffer-create " *DOC*"))
|
||||
(name (if (eq 'var kind)
|
||||
(concat "V" (symbol-name subr-or-var))
|
||||
(concat "F" (subr-name (advice--cd*r subr-or-var))))))
|
||||
(concat "F" (if (symbolp subr-or-var)
|
||||
(symbol-name subr-or-var)
|
||||
(subr-name (advice--cd*r subr-or-var)))))))
|
||||
(with-current-buffer docbuf
|
||||
(goto-char (point-min))
|
||||
(if (eobp)
|
||||
|
||||
Reference in New Issue
Block a user