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

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

Browse source 
* lisp/progmodes/xref.el (xref-show-definitions-completing-read):
Default to the first location.
This commit is contained in:
Dmitry Gutov 2021-01-01 15:18:41 +02:00
parent 3ea7cec4c0
commit a516e69863
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/xref.el
View file

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