From 8ea397361cbe302ac49601652a68c4607713e66f Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Sat, 10 Apr 2021 23:37:16 +0000 Subject: [PATCH] Fix behavior of isearch-{beginning,end}-of-buffer * lisp/isearch.el (isearch-beginning-of-buffer, isearch-end-of-buffer): Fix their behavior when isearch-repeat-on-direction-change is non-nil. --- lisp/isearch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 5efac4c78f..27ee6f8414 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1968,7 +1968,8 @@ type \\[isearch-repeat-forward] with a numeric argument." ;; don't forward char in isearch-repeat (setq isearch-just-started t) (goto-char (point-min)) - (isearch-repeat 'forward arg))) + (let ((isearch-repeat-on-direction-change nil)) + (isearch-repeat 'forward arg)))) (defun isearch-end-of-buffer (&optional arg) "Go to the last occurrence of the current search string. @@ -1982,7 +1983,8 @@ type \\[isearch-repeat-backward] with a numeric argument." (isearch-beginning-of-buffer (abs arg)) (setq isearch-just-started t) (goto-char (point-max)) - (isearch-repeat 'backward arg))) + (let ((isearch-repeat-on-direction-change nil)) + (isearch-repeat 'backward arg)))) ;;; Toggles for `isearch-regexp-function' and `search-default-mode'. -- 2.30.2