From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 30 May 2021 06:25:06 +0000 (+0200)
Subject: Allow help-C-file-name to work on symbols designating subrs
X-Git-Tag: emacs-28.0.90~2264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8ec798d70cc666cbd5d7e262e36ad2501aae4f7;p=emacs.git

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