mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Provide a default for xref-find-apropos pattern

Browse source 
* lisp/progmodes/xref.el (xref-find-apropos):
Provide a default for the pattern (bug#49731).
This commit is contained in:
Dmitry Gutov 2021-08-06 03:02:13 +03:00
parent 232be9bf87
commit f65958a94d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/xref.el
View file

@ -1356,7 +1356,9 @@ This command is intended to be bound to a mouse event."
The argument has the same meaning as in `apropos'."
(interactive (list (read-string
"Search for pattern (word list or regexp): "
nil 'xref--read-pattern-history)))
nil 'xref--read-pattern-history
(xref-backend-identifier-at-point
(xref-find-backend)))))
(require 'apropos)
(let* ((newpat
(if (and (version< emacs-version "28.0.50")