procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-09-30 08:57:45 +02:00
parent 5d33839c3f
commit 13b9f6b6a0
1 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/menu-bar.el
View file

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