diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-30 08:25:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-30 08:25:06 +0200 |
| commit | c8ec798d70cc666cbd5d7e262e36ad2501aae4f7 (patch) | |
| tree | 268b25346cec02e464956440e2ee9e209d6d9e85 /lisp/help-fns.el | |
| parent | db1de74e734086063fabb14b6e07789f63e60ad0 (diff) | |
| download | emacs-c8ec798d70cc666cbd5d7e262e36ad2501aae4f7.tar.gz emacs-c8ec798d70cc666cbd5d7e262e36ad2501aae4f7.tar.bz2 emacs-c8ec798d70cc666cbd5d7e262e36ad2501aae4f7.zip | |
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).
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 0b0ae4364c8..666583db72c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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) |