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

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 48433d899ab275dc1c08f3375cebf0d73b6457cd..e16408be7b0eb3e0625988221316e6ce21cec8dc 100644 (file)
--- 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