From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 23 May 2024 13:02:05 +0000 (+0200)
Subject: (help-function-def--button-function): Handle C-defined variables
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e774ebf4781c29ae249fa33d73e40b8b50ca7cf7;p=emacs.git

(help-function-def--button-function): Handle C-defined variables
---

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 48433d899ab..e16408be7b0 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -265,7 +265,9 @@ The format is (FUNCTION ARGS...).")
     (require 'find-func)
     (when (eq file 'C-source)
       (setq file
-            (help-C-file-name (indirect-function fun) 'fun)))
+            (if (memq type '(variable defvar))
+                (help-C-file-name fun 'var)
+              (help-C-file-name (indirect-function fun) 'fun))))
     ;; Don't use find-function-noselect because it follows
     ;; aliases (which fails for built-in functions).
     (let* ((location