[PATCH] Set help mode data for major mode function.

[PATCH] Set help mode data for major mode function.

[brennan]

From: Brennan Vincent <brennan@umanwizard.com>

This ensures that e.g. (help-view-source) will work the same
way in describe-mode as it does in describe-function.

* lisp/help-fns.el: Set help mode data for major mode function
---
 lisp/help-fns.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1ffe1b16588..f3d5bba7d4c 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -2200,7 +2200,9 @@ describe-mode
                              (help-fns-short-filename file-name)
                              (lambda (_)
                                (help-function-def--button-function
-                                major file-name))))))
+                                major file-name)))))
+            (setq help-mode--current-data (list :symbol major
+                                                :file file-name)))
           (insert (help-split-fundoc (documentation major) nil 'doc)
                   (with-current-buffer buffer
                     (help-fns--list-local-commands)))
-- 
2.41.0