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).

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)