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)

diff --git a/lisp/comint.el b/lisp/comint.el
index 682b555a33cdb50d1e1f576b52c18377bb6d0725..328b073dc8a366fa9ebf691b89483a9500b5bef0 100644 (file)
--- 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