summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2024-03-31 00:32:20 +0000
committerjao <jao@gnu.org>2024-03-31 00:32:20 +0000
commit7e08beab24d792f254956c682542e23fd4b54858 (patch)
tree41818e06c13792201d9027b4a9462f08f556c035
parent5a62a773a095b5ec2b40d51567f70b95c2cbab34 (diff)
downloadelibs-7e08beab24d792f254956c682542e23fd4b54858.tar.gz
elibs-7e08beab24d792f254956c682542e23fd4b54858.tar.bz2
jao-minibuffer nits
-rw-r--r--lib/eos/jao-minibuffer.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el
index 0327460..2286fc5 100644
--- a/lib/eos/jao-minibuffer.el
+++ b/lib/eos/jao-minibuffer.el
@@ -58,7 +58,7 @@
(msg (cond (jao-minibuffer-align-right (string-trim msg))
(t (string-trim-left msg)))))
(unless (string-empty-p msg)
- (let ((msg (propertize msg :minibuffer-message t))
+ (let ((msg (propertize msg 'minibuffer-message t))
(w (- (jao-minibuffer--width) w jao-minibuffer-right-margin)))
(if (> w 0) (jao-minibuffer--trim msg w) "")))))
@@ -68,7 +68,7 @@
(insert msg)))
(defun jao-minibuffer--strip-prev (msg)
- (if-let ((n (text-property-any 0 (length msg) :minibuffer-message t msg)))
+ (if-let ((n (text-property-any 0 (length msg) 'minibuffer-message t msg)))
(string-trim (substring msg 0 n))
msg))
@@ -88,7 +88,8 @@
(defun jao-minibuffer--set-message (msg)
(when jao-minibuffer-mode
- (or jao-minibuffer-inhibit
+ (or (and (string= jao-minibuffer--name (buffer-name)) msg)
+ jao-minibuffer-inhibit
(let* ((info (and jao-minibuffer-msg-info
(jao-minibuffer--format-info jao-minibuffer-msg-info)))
(info (or (and info msg (propertize info 'face 'jao-themes-dimm))