emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/auto-dim-other-buffers c80b367dd0 22/82: Leave echo area a


From: ELPA Syncer
Subject: [nongnu] elpa/auto-dim-other-buffers c80b367dd0 22/82: Leave echo area alone
Date: Mon, 12 Dec 2022 20:58:39 -0500 (EST)

branch: elpa/auto-dim-other-buffers
commit c80b367dd051119e639d7ef001e680c5276898d8
Author: Michal Nazarewicz <mina86@mina86.com>
Commit: Michal Nazarewicz <mina86@mina86.com>

    Leave echo area alone
---
 auto-dim-other-buffers.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/auto-dim-other-buffers.el b/auto-dim-other-buffers.el
index 29cc140ca7..4aa5d5b7fa 100644
--- a/auto-dim-other-buffers.el
+++ b/auto-dim-other-buffers.el
@@ -8,6 +8,11 @@
   "Face (presumably dimmed somehow) for non-current buffers."
   :group 'auto-dim-other-buffers)
 
+(defun adob/ignore-buffer (buffer)
+  (or (null buffer)
+      (minibufferp buffer)
+      (string-match "^ \\*Echo Area" (buffer-name buffer))))
+
 (defun adob/pre-command-hook ()
   (setq adob/last-buffer (current-buffer)))
 
@@ -19,7 +24,7 @@
     ;; feature was just turned on and all buffers are already
     ;; dimmed. if it's just killed, don't try to set its face.
     (and (buffer-live-p adob/last-buffer)
-         (not (minibufferp adob/last-buffer))
+         (not (adob/ignore-buffer adob/last-buffer))
          (with-current-buffer adob/last-buffer
            (buffer-face-set 'auto-dim-other-buffers-face)))
 
@@ -35,8 +40,9 @@
 (defun adob/set-face-on-all-buffers (face)
   (save-current-buffer
     (dolist (buffer (buffer-list))
-      (set-buffer buffer)
-      (buffer-face-set face))))
+      (unless (adob/ignore-buffer buffer)
+        (set-buffer buffer)
+        (buffer-face-set face)))))
 
 (defun adob/undim-all-windows ()
   (adob/set-face-on-all-buffers nil))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]