Re: [External] : Re: Indicate better the current use of the echo area / minibuffer [was: Controlling Isearch from minibuffer]

[Juri Linkov]

> For Isearch I am using a separate indicator in the mode line:
>
> ~~~
> (defvar isearch-indicator
>   (concat (propertize "Isearch" 'face 'isearch)))
> (add-hook 'isearch-mode-hook
>           (lambda ()
>             (push isearch-indicator mode-line-misc-info)))
> (add-hook 'isearch-mode-end-hook
>           (lambda ()
>             (setq mode-line-misc-info
>                   (delq isearch-indicator mode-line-misc-info))))
> ~~~

This displays two isearch indicators.  Wouldn't it be simpler to modify
the existing indicator:

#+begin_src emacs-lisp
(add-hook 'isearch-mode-hook
          (lambda ()
            (put 'isearch-mode 'risky-local-variable t)
            (setq isearch-mode (propertize " Isearch" 'face 'isearch))))
#+end_src