Fix 'help-view-source' for variables defined in C

This fixes an issue that Juri Linkov mentioned in Bug#71117.

* lisp/help-mode.el (help-function-def--button-function): When
searching for the definition of a variable, make sure to call
'help-C-file-name' with KIND argument set to 'var'.
This commit is contained in:
Eshel Yaron 2024-05-23 15:02:05 +02:00
parent e1789f66ac
commit 52acabcbe8
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618

View file

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