diff options
| author | Juri Linkov | 2021-01-14 21:08:46 +0200 |
|---|---|---|
| committer | Juri Linkov | 2021-01-14 21:08:46 +0200 |
| commit | 53514e77a5a85b53ea0acd55f2ea5f1f78dc356c (patch) | |
| tree | beb8f1daec535c83935c58d2f2b3e639ac202a37 | |
| parent | c83590b12114a0958c8e26846c87c84f492405bc (diff) | |
| download | emacs-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.el | 2 |
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))) |