bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation.

["Basil L. Contovounesios" <contovob@tcd.ie>]

Jonas Bernoulli <jonas@bernoul.li> writes:

> ---
>  lisp/emacs-lisp/eldoc.el | 14 +++++++-------
>  1 file changed, 7 insertions(+), 7 deletions(-)
>
> diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
> index 510dff9ed0..90dce4a317 100644
> --- a/lisp/emacs-lisp/eldoc.el
> +++ b/lisp/emacs-lisp/eldoc.el
> @@ -285,13 +285,13 @@ eldoc-minibuffer-message
>  	     (or (window-in-direction 'above (minibuffer-window))
>  		 (minibuffer-selected-window)
>  		 (get-largest-window)))
> -    (when mode-line-format
> -	  (unless (and (listp mode-line-format)
> -		       (assq 'eldoc-mode-line-string mode-line-format))
> -	    (setq mode-line-format
> -		  (list "" '(eldoc-mode-line-string
> -			     (" " eldoc-mode-line-string " "))
> -			mode-line-format))))
> +	  (when mode-line-format
> +	    (unless (and (listp mode-line-format)
> +			 (assq 'eldoc-mode-line-string mode-line-format))
> +	      (setq mode-line-format
> +		    (list "" '(eldoc-mode-line-string
> +			       (" " eldoc-mode-line-string " "))
> +			  mode-line-format))))

You can avoid reindenting this whole block by merging the conditions of
the redundantly nested when and unless:

  (unless (if (consp mode-line-format)
              (assq 'eldoc-mode-line-string mode-line-format)
            (not mode-line-format))
    (setq mode-line-format
          (list "" '(eldoc-mode-line-string
                     (" " eldoc-mode-line-string " "))
                mode-line-format)))

or similar.

>            (setq eldoc-mode-line-string
>                  (when (stringp format-string)
>                    (apply #'format-message format-string args)))

Thanks,

-- 
Basil