From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 26 Jun 2025 12:17:09 +0000 (+0200)
Subject: Support 's' in 'C-h m' help buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbfa4e9b460f885153e0ecca217835f0d45021e7;p=emacs.git

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 5610c8dce5b..2ef7be9256e 100644
--- 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)))