xref-show-definitions-completing-read: Default to the first location

* lisp/progmodes/xref.el (xref-show-definitions-completing-read):
Default to the first location.

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 04798de76fdd3739eb8984f56112412215dd246d..29e7b6849fd0e2b731c0df521a00cf18ed2d4ffc 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1057,9 +1057,12 @@ between them by typing in the minibuffer with completion."
                             ((eq action 'metadata)
                              '(metadata . ((category . xref-location))))
                             (t
-                             (complete-with-action action collection string pred))))))
+                             (complete-with-action action collection string pred)))))
+                        (def (caar collection)))
                    (cdr (assoc (completing-read "Choose definition: "
-                                                ctable nil t)
+                                                ctable nil t
+                                                nil nil
+                                                def)
                                collection)))))
 
     (xref-pop-to-location xref (assoc-default 'display-action alist))))