From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 30 Sep 2019 06:57:45 +0000 (+0200)
Subject: Make elisp- and emacs-index-search and default to the thing under point
X-Git-Tag: emacs-27.0.90~1356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13b9f6b6a06b5d8548ed2ee2f835605fefef0571;p=emacs.git

Make elisp- and emacs-index-search and default to the thing under point

* lisp/menu-bar.el (elisp-index-search): Default to the thing
under point interactively (bug#1119).
(emacs-index-search): Ditto.
(emacs-index--prompt): New helper function.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 389234e9751..19122125c53 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1761,15 +1761,28 @@ key, a click, or a menu-item"))
   (interactive)
   (info "(emacs)Glossary"))
 
+(defun emacs-index--prompt ()
+  (let* ((default (thing-at-point 'sexp))
+         (topic
+          (read-from-minibuffer
+           (format "Subject to look up%s: "
+                   (if default
+                       (format " (default \"%s\")" default)
+                     ""))
+           nil nil nil nil default)))
+    (list (if (zerop (length topic))
+              default
+            topic))))
+
 (defun emacs-index-search (topic)
   "Look up TOPIC in the indices of the Emacs User Manual."
-  (interactive "sSubject to look up: ")
+  (interactive (emacs-index--prompt))
   (info "emacs")
   (Info-index topic))
 
 (defun elisp-index-search (topic)
   "Look up TOPIC in the indices of the Emacs Lisp Reference Manual."
-  (interactive "sSubject to look up: ")
+  (interactive (emacs-index--prompt))
   (info "elisp")
   (Info-index topic))