From: Juri Linkov <juri@linkov.net>
Date: Tue, 16 Mar 2021 18:07:34 +0000 (+0200)
Subject: New commands xref-next-line-no-show and xref-prev-line-no-show (bug#44611)
X-Git-Tag: emacs-28.0.90~3254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ea0a334dca81faeb619e8a52ecfaf7ad072eaf4;p=emacs.git

New commands xref-next-line-no-show and xref-prev-line-no-show (bug#44611)

* lisp/progmodes/xref.el (xref-next-line-no-show)
(xref-prev-line-no-show): New commands.
(xref-next-line, xref-prev-line): Use them.
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index c066d9dc024..ea52befec57 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -609,16 +609,26 @@ SELECT is `quit', also quit the *xref* window."
     (when xref
       (xref--show-location (xref-item-location xref)))))
 
+(defun xref-next-line-no-show ()
+  "Move to the next xref but don't display its source."
+  (interactive)
+  (xref--search-property 'xref-item))
+
 (defun xref-next-line ()
   "Move to the next xref and display its source in the appropriate window."
   (interactive)
-  (xref--search-property 'xref-item)
+  (xref-next-line-no-show)
   (xref-show-location-at-point))
 
+(defun xref-prev-line-no-show ()
+  "Move to the previous xref but don't display its source."
+  (interactive)
+  (xref--search-property 'xref-item t))
+
 (defun xref-prev-line ()
   "Move to the previous xref and display its source in the appropriate window."
   (interactive)
-  (xref--search-property 'xref-item t)
+  (xref-prev-line-no-show)
   (xref-show-location-at-point))
 
 (defun xref-next-group ()