From: Juri Linkov <juri@linkov.net>
Date: Thu, 14 Jan 2021 19:08:46 +0000 (+0200)
Subject: * lisp/info.el (Info-search): Don't deactivate mark when landed in same node
X-Git-Tag: emacs-28.0.90~4271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53514e77a5a85b53ea0acd55f2ea5f1f78dc356c;p=emacs.git

* lisp/info.el (Info-search): Don't deactivate mark when landed in same node

(bug#45839)
---

diff --git a/lisp/info.el b/lisp/info.el
index 62d7b583ff2..dec93928b38 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1973,7 +1973,6 @@ If DIRECTION is `backward', search in the reverse direction."
                        "Regexp search%s" (car Info-search-history)
 		       (if case-fold-search "" " case-sensitively"))
 		      nil 'Info-search-history)))
-  (deactivate-mark)
   (when (equal regexp "")
     (setq regexp (car Info-search-history)))
   (when regexp
@@ -2066,6 +2065,7 @@ If DIRECTION is `backward', search in the reverse direction."
                (< found opoint-max))
           ;; Search landed in the same node
           (goto-char found)
+        (deactivate-mark)
         (widen)
         (goto-char found)
         (save-match-data (Info-select-node)))