summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/eos/jao-minibuffer.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el
index 1671724..5fdb18b 100644
--- a/lib/eos/jao-minibuffer.el
+++ b/lib/eos/jao-minibuffer.el
@@ -71,18 +71,17 @@
(insert msg)
(when hack (other-window 1) (other-window -1)))))
-(defun jao-minibuffer--strip-previous (msg)
+(defun jao-minibuffer--strip-prev (msg)
(if-let* ((l (length msg))
(n (text-property-any 0 l :minibuffer-message t msg)))
(string-trim (substring msg 0 n))
msg))
(defun jao-minibuffer--format-msg (msg)
- (let* ((msgs (split-string msg "\n"))
+ (let* ((msgs (mapcar #'jao-minibuffer--strip-prev (split-string msg "\n")))
(prefix (when-let (p (string-join (butlast msgs) "\n"))
(unless (string-blank-p p) (concat p "\n"))))
(msg (car (last msgs)))
- (msg (jao-minibuffer--strip-previous msg))
(msg (if (string-blank-p msg) msg (concat msg " "))))
(if jao-minibuffer-align-right-p
(concat prefix msg (jao-minibuffer--aligned (length msg)))