Debugger entered--Lisp error: (error "\"Domaine\": pattern not found")

[Guido Van Hoecke]

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.