From 3ea0a334dca81faeb619e8a52ecfaf7ad072eaf4 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 16 Mar 2021 20:07:34 +0200 Subject: [PATCH] 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. --- lisp/progmodes/xref.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) 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 () -- 2.39.5