From: Dmitry Gutov <dgutov@yandex.ru>
Date: Fri, 6 Aug 2021 00:02:13 +0000 (+0300)
Subject: Provide a default for xref-find-apropos pattern
X-Git-Tag: emacs-28.0.90~1591^2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f65958a94de115dda0ba0f187121aa0a548e8d90;p=emacs.git

Provide a default for xref-find-apropos pattern

* lisp/progmodes/xref.el (xref-find-apropos):
Provide a default for the pattern (bug#49731).
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 404752536f8..69378a561ea 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -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")