branch: externals/consult
commit dcedf0e6b965d742d68ad6601482a69263dc33d3
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-mark: Copy mark-marker to avoid side effect from push-mark (Fix
#562)
push-mark is executed in consult--jump
---
consult.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index fb1d961f90..cc23562b71 100644
--- a/consult.el
+++ b/consult.el
@@ -2918,7 +2918,7 @@ The symbol at point is added to the future history."
(consult--read
(consult--with-increased-gc
(consult--mark-candidates
- (or markers (cons (mark-marker) mark-ring))))
+ (or markers (cons (copy-marker (mark-marker)) mark-ring))))
:prompt "Go to mark: "
:annotate (consult--line-prefix)
:category 'consult-location
