[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/minibuffer-header 43712af40f 2/2: Simplified prompt cap
From: |
ELPA Syncer |
Subject: |
[elpa] externals/minibuffer-header 43712af40f 2/2: Simplified prompt capture |
Date: |
Mon, 8 Aug 2022 06:57:45 -0400 (EDT) |
branch: externals/minibuffer-header
commit 43712af40f6fe6e2747cec3aec62873c1629abfd
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Simplified prompt capture
---
minibuffer-header.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/minibuffer-header.el b/minibuffer-header.el
index 33e550c076..a34450f0ac 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -112,15 +112,9 @@
(save-excursion
(goto-char (point-min))
(let* ((inhibit-read-only t)
+ (prompt (substring-no-properties (minibuffer-prompt)))
(prompt-beg (point-min))
- (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))
+ (prompt-end (+ 1 (length prompt)))
(left (if (stringp 'minibuffer-header-format)
minibuffer-header-format
(funcall minibuffer-header-format prompt)))