From 36535caf9621f984f7f95d4def09bdb0ae2f1d2a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 24 Mar 2019 23:19:55 +0200 Subject: [PATCH] * lisp/progmodes/xref.el (xref--show-xrefs): Push mark. (Bug#34908) --- etc/NEWS | 4 ++++ lisp/progmodes/xref.el | 1 + 2 files changed, 5 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index 9f569a73673..cb485992b8d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -671,6 +671,10 @@ mouse click event, and is intended to be bound to a mouse event. Previously, setting 'xref-marker-ring-length' would only take effect if set before 'xref.el' was loaded. +--- +*** xref-find-definitions now sets the mark at the buffer position +where it was invoked + ** Ecomplete *** The ecomplete sorting has changed to a decay-based algorithm. diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 6974d000483..aed92f8db62 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -797,6 +797,7 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)." (defvar xref--read-pattern-history nil) (defun xref--show-xrefs (xrefs display-action &optional always-show-list) + (unless (region-active-p) (push-mark nil t)) (cond ((and (not (cdr xrefs)) (not always-show-list)) (xref-push-marker-stack) -- 2.39.5