master c8ec798 2/3: Allow help-C-file-name to work on symbols designating subrs

[Lars Ingebrigtsen]

branch: master
commit c8ec798d70cc666cbd5d7e262e36ad2501aae4f7
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/help-fns.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 0b0ae43..666583d 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)