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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 0b0ae4364c87e394eddea0bf7e83dcf7a0cc47d7..666583db72c6370a2099d77d6424737a686d4556 100644 (file)
--- 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)