From: Felicián Németh <felician.nemeth@gmail.com>
Date: Wed, 13 Feb 2019 20:19:36 +0000 (+0100)
Subject: Jump to the current error in xref with zero prefix arg
X-Git-Tag: emacs-27.0.90~3556
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7e4bc974b7ec3d6fdae105df05fc19a2cf9fdbd;p=emacs.git

Jump to the current error in xref with zero prefix arg

* xref.el (xref--next-error-function): Handle the corner case of
n == 0.  (Bug#34462)
---

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 9522d7e475b..6974d000483 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -694,8 +694,10 @@ references displayed in the current *xref* buffer."
   (let ((backward (< n 0))
         (n (abs n))
         (xref nil))
-    (dotimes (_ n)
-      (setq xref (xref--search-property 'xref-item backward)))
+    (if (= n 0)
+        (setq xref (get-text-property (point) 'xref-item))
+      (dotimes (_ n)
+        (setq xref (xref--search-property 'xref-item backward))))
     (cond (xref
            ;; Save the current position (when the buffer is visible,
            ;; it gets reset to that window's point from time to time).