From 061f8f28000e39f6ec4194ec2face3eb6e880846 Mon Sep 17 00:00:00 2001 From: Gregory Heytings Date: Fri, 10 Sep 2021 12:39:33 +0200 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 (bug#50466). --- lisp/isearch.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 71c9ce31deb..357760caee6 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -114,7 +114,7 @@ is called to let you enter the search string, and RET terminates editing and does a nonincremental search.)" :type 'boolean) -(defcustom search-whitespace-regexp (purecopy "[ \t]") +(defcustom search-whitespace-regexpx (purecopy "[ \t]") "If non-nil, regular expression to match a sequence of whitespace chars. When you enter a space or spaces in the incremental search, it will match any sequence matched by this regexp. As an exception, @@ -2009,7 +2009,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. @@ -2023,7 +2024,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.39.2