diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-04-20 23:30:41 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-13 11:30:16 +0200 |
| commit | 0bc9e7b8f5658c3f4f2d881de3aed158c6f49021 (patch) | |
| tree | a7efd485af52fbcd78ed38a42ed89f666433c535 /lisp | |
| parent | c5b9d2a4b46c6da7d5c88a8c51be5294b2d5edc9 (diff) | |
| download | emacs-0bc9e7b8f5658c3f4f2d881de3aed158c6f49021.tar.gz emacs-0bc9e7b8f5658c3f4f2d881de3aed158c6f49021.tar.bz2 emacs-0bc9e7b8f5658c3f4f2d881de3aed158c6f49021.zip | |
Merge two conditions and fix indentation
The motivation behind this change is that the indentation of some
lines was outright wrong. If we address that issue, then we might
as well also address the issue that some code is needlessly nested
an additional level. That we can fix by merging the conditions.
By doing these two changes in on commit we have to change the fewest
lines. Even though we are moving to using just spaces for indentation
of the modified lines, other lines in the same function are left alone
and continue to us tabs+spaces for indentation. That is not "wrong",
but just the style we are slowly migrating away from when touching
lines for other reasons.
Discussed in bug#42397.
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Merge two
conditions and fix indentation.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 19b3bd78aea..4825b5c5e6c 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el @@ -289,13 +289,13 @@ Otherwise work like `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)) + (when (and mode-line-format + (not (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)))) + mode-line-format))) (setq eldoc-mode-line-string (when (stringp format-string) (apply #'format-message format-string args))) |