aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2021-01-14 21:08:46 +0200
committerJuri Linkov2021-01-14 21:08:46 +0200
commit53514e77a5a85b53ea0acd55f2ea5f1f78dc356c (patch)
treebeb8f1daec535c83935c58d2f2b3e639ac202a37
parentc83590b12114a0958c8e26846c87c84f492405bc (diff)
downloademacs-53514e77a5a85b53ea0acd55f2ea5f1f78dc356c.tar.gz
emacs-53514e77a5a85b53ea0acd55f2ea5f1f78dc356c.zip
* lisp/info.el (Info-search): Don't deactivate mark when landed in same node
(bug#45839)
-rw-r--r--lisp/info.el2
1 files changed, 1 insertions, 1 deletions
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."
1973 "Regexp search%s" (car Info-search-history) 1973 "Regexp search%s" (car Info-search-history)
1974 (if case-fold-search "" " case-sensitively")) 1974 (if case-fold-search "" " case-sensitively"))
1975 nil 'Info-search-history))) 1975 nil 'Info-search-history)))
1976 (deactivate-mark)
1977 (when (equal regexp "") 1976 (when (equal regexp "")
1978 (setq regexp (car Info-search-history))) 1977 (setq regexp (car Info-search-history)))
1979 (when regexp 1978 (when regexp
@@ -2066,6 +2065,7 @@ If DIRECTION is `backward', search in the reverse direction."
2066 (< found opoint-max)) 2065 (< found opoint-max))
2067 ;; Search landed in the same node 2066 ;; Search landed in the same node
2068 (goto-char found) 2067 (goto-char found)
2068 (deactivate-mark)
2069 (widen) 2069 (widen)
2070 (goto-char found) 2070 (goto-char found)
2071 (save-match-data (Info-select-node))) 2071 (save-match-data (Info-select-node)))