Hi, Operating steps: 1) /Domaine <enter> 2) c f e Champ <enter> 3) n 4) . 5) n And if the pattern is no longer found, I get a new window with this debugger message: Debugger entered--Lisp error: (error "\"Domaine\": pattern not found") signal(error ("\"Domaine\": pattern not found")) error("\"%s\": %s not found" "Domaine" "pattern") (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t)) (progn (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t))) (if (and (stringp string) (not (string= string ""))) (progn (let* ((orig (point)) (start (or start (if forward (min ... ...) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not ...)) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t)))) (when (and (stringp string) (not (string= string ""))) (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t))) evil-search("Domaine" t t) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var))) (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)))) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var))))) (block nil (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)))) (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search)) (save-restriction (when (and (not (evil-operator-state-p)) (not (eobp)) (save-excursion (goto-char (point-max)) (bolp))) (evil-narrow nil (1- (point-max)))) (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search))) (evil-with-adjust-cursor (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search))) evil-search-next(nil) call-interactively(evil-search-next nil nil) How can I just get a message in the mini-buffer? I failed to find a variable that I can set to control this behavior. Thanks in advance, Guido.