From 2a5c946f8793d712c8739629d1bfdb14146c69cf Mon Sep 17 00:00:00 2001 From: Jens Schmidt Date: Sat, 20 May 2023 23:03:29 +0200 Subject: [PATCH] Preserve mark in comint-history-isearch This preserves mark in `comint-history-isearch-backward' and friends, which tend to set the mark on completion of the isearch to unexpected positions. * lisp/comint.el (comint-history-isearch-end): Set `isearch-opoint' to point. (Bug#63616) --- lisp/comint.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/comint.el b/lisp/comint.el index 682b555a33c..328b073dc8a 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1542,6 +1542,8 @@ Intended to be added to `isearch-mode-hook' in `comint-mode'." (setq isearch-message-function nil) (setq isearch-wrap-function nil) (setq isearch-push-state-function nil) + ;; Force isearch to not change mark. + (setq isearch-opoint (point)) (kill-local-variable 'isearch-lazy-count) (remove-hook 'isearch-mode-end-hook 'comint-history-isearch-end t) (unless isearch-suspended -- 2.39.2