branch: externals/minibuffer-header
commit 1d2cc29e4e078e43a3a7e5f92158f0e2753ff9b9
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Better prompt detection
---
minibuffer-header.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/minibuffer-header.el b/minibuffer-header.el
index 87cc619e2c..33e550c076 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -113,8 +113,13 @@
(goto-char (point-min))
(let* ((inhibit-read-only t)
(prompt-beg (point-min))
- (prompt-end (or (next-property-change (+ 1 (point-min)))
- (max (point-min) (- (point-max) 0))))
+ (prompt-end nil)
+ (prompt-end (or prompt-end
+ (save-excursion (search-forward-regexp ":[ \t]*"
nil t))))
+ (prompt-end (or prompt-end
+ (next-property-change (+ 1 (point-min)))))
+ (prompt-end (or prompt-end
+ (point-max)))
(prompt (buffer-substring-no-properties prompt-beg prompt-end))
(left (if (stringp 'minibuffer-header-format)
minibuffer-header-format
@@ -122,8 +127,7 @@
(left (split-string left "\n"))
(width (- (window-width) (length (car left)) 2))
(right minibuffer-header-default-message)
- (right (minibuffer-header--fit right width))
- )
+ (right (minibuffer-header--fit right width)))
(when minibuffer-header-hide-prompt
(add-text-properties prompt-beg prompt-end '(invisible t)))
