summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2024-03-27 14:19:45 +0000
committerjao <jao@gnu.org>2024-03-27 14:19:45 +0000
commit6aae32758647110a49d2414352d2cd13abc2c8c7 (patch)
treec17112f615dbed0ee6c9d41ab6f51db05fb98725
parent36e098007955c45d86269f396203667a0692796a (diff)
downloadelibs-6aae32758647110a49d2414352d2cd13abc2c8c7.tar.gz
elibs-6aae32758647110a49d2414352d2cd13abc2c8c7.tar.bz2
jao-minibuffer-inhibit
-rw-r--r--lib/eos/jao-minibuffer.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el
index 71d5976..e63099a 100644
--- a/lib/eos/jao-minibuffer.el
+++ b/lib/eos/jao-minibuffer.el
@@ -32,6 +32,7 @@
(defvar jao-minibuffer-frame-width nil)
(defvar jao-minibuffer-active-buffer-line-color "azure4")
(defvar jao-minibuffer-inactive-buffer-line-color "grey25")
+(defvar jao-minibuffer-inhibit nil)
(defconst jao-minibuffer--name " *Minibuf-0*")
@@ -87,11 +88,12 @@
(defun jao-minibuffer--set-message (msg)
(when jao-minibuffer-mode
- (let* ((info (when jao-minibuffer-msg-info
- (jao-minibuffer--format-info jao-minibuffer-msg-info)))
- (info (when info (propertize info 'face 'jao-themes-dimm)))
- (msg (if info (format "%s - %s" info msg) msg)))
- (jao-minibuffer--format-msg (or msg "")))))
+ (or jao-minibuffer-inhibit
+ (let* ((info (when jao-minibuffer-msg-info
+ (jao-minibuffer--format-info jao-minibuffer-msg-info)))
+ (info (when info (propertize info 'face 'jao-themes-dimm)))
+ (msg (if info (format "%s - %s" info msg) msg)))
+ (jao-minibuffer--format-msg (or msg ""))))))
(setq set-message-function #'jao-minibuffer--set-message)