diff options
author | jao <jao@gnu.org> | 2024-03-31 00:32:20 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2024-03-31 00:32:20 +0000 |
commit | 7e08beab24d792f254956c682542e23fd4b54858 (patch) | |
tree | 41818e06c13792201d9027b4a9462f08f556c035 | |
parent | 5a62a773a095b5ec2b40d51567f70b95c2cbab34 (diff) | |
download | elibs-7e08beab24d792f254956c682542e23fd4b54858.tar.gz elibs-7e08beab24d792f254956c682542e23fd4b54858.tar.bz2 |
jao-minibuffer nits
-rw-r--r-- | lib/eos/jao-minibuffer.el | 7 |
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)) |