Unbreak dired-do-find-regexp in Emacs 26

* lisp/progmodes/xref.el (xref--show-xrefs):
Support the old convention (bug#42967).

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 4da7b4ef301055a513d64ec0bbfd6da28c94512d..264c750f019b342b2626387300551921ad438285 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -963,6 +963,16 @@ Accepts the same arguments as `xref-show-xrefs-function'."
 
 (defun xref--show-xrefs (fetcher display-action)
   (xref--push-markers)
+  (unless (functionp fetcher)
+    ;; Old convention.
+    (let ((xrefs fetcher))
+      (setq fetcher
+            (lambda ()
+              (if (eq xrefs 'called-already)
+                  (user-error "Refresh is not supported")
+                (prog1
+                    xrefs
+                  (setq xrefs 'called-already)))))))
   (funcall xref-show-xrefs-function fetcher
            `((window . ,(selected-window))
              (display-action . ,display-action))))