Don't set isearch-success in isearch-wrap functions
* lisp/comint.el (comint-history-isearch-wrap): * lisp/simple.el (minibuffer-history-isearch-wrap): Don't set isearch-success to t, so isearch-repeat won't skip the beginning of the wrapped match with (forward-char (if isearch-forward 1 -1)).
This commit is contained in:
@@ -1627,7 +1627,6 @@ or to the last history element for a backward search."
|
||||
(if isearch-forward
|
||||
(comint-goto-input (1- (ring-length comint-input-ring)))
|
||||
(comint-goto-input nil))
|
||||
(setq isearch-success t)
|
||||
(goto-char (if isearch-forward (comint-line-beginning-position) (point-max))))
|
||||
|
||||
(defun comint-history-isearch-push-state ()
|
||||
|
||||
@@ -1887,8 +1887,6 @@ Use `isearch-exit' to quit without signaling."
|
||||
(setq count (1+ count)) ;; Increment to force repeat
|
||||
(setq isearch-wrapped t)
|
||||
(if isearch-wrap-function
|
||||
;; Note that some wrap functions change the value of
|
||||
;; isearch-success, so it's handled above before this call.
|
||||
(funcall isearch-wrap-function)
|
||||
(goto-char (if isearch-forward (point-min) (point-max)))))))
|
||||
;; Stop looping on failure
|
||||
|
||||
@@ -2798,7 +2798,6 @@ or to the last history element for a backward search."
|
||||
(if isearch-forward
|
||||
(goto-history-element (length (minibuffer-history-value)))
|
||||
(goto-history-element 0))
|
||||
(setq isearch-success t)
|
||||
(goto-char (if isearch-forward (minibuffer-prompt-end) (point-max))))
|
||||
|
||||
(defun minibuffer-history-isearch-push-state ()
|
||||
|
||||
Reference in New Issue
Block a user