diff options
| -rw-r--r-- | lisp/progmodes/xref.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index a0a704f133d..c71802c9188 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -551,9 +551,10 @@ SELECT is `quit', also quit the *xref* window." | |||
| 551 | Non-interactively, non-nil QUIT means to first quit the *xref* | 551 | Non-interactively, non-nil QUIT means to first quit the *xref* |
| 552 | buffer." | 552 | buffer." |
| 553 | (interactive) | 553 | (interactive) |
| 554 | (let ((buffer (current-buffer)) | 554 | (let* ((buffer (current-buffer)) |
| 555 | (xref (or (xref--item-at-point) | 555 | (xref (or (xref--item-at-point) |
| 556 | (user-error "No reference at point")))) | 556 | (user-error "No reference at point"))) |
| 557 | (xref--current-item xref)) | ||
| 557 | (xref--show-location (xref-item-location xref) (if quit 'quit t)) | 558 | (xref--show-location (xref-item-location xref) (if quit 'quit t)) |
| 558 | (next-error-found buffer (current-buffer)))) | 559 | (next-error-found buffer (current-buffer)))) |
| 559 | 560 | ||