Support 's' in 'C-h m' help buffers

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 5610c8dce5b8cbf692b37bf25af78af44759e774..2ef7be9256e1c5570f8acaa2fe36137712570b74 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -2281,7 +2281,9 @@ is enabled in the Help buffer."
                              (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)))