branch: externals/pulsar
commit f9d09afc97d08f90a6a462b9da86900e6b555a74
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Improve what commit 5e5796e tried to do
The intention was to return the beginning of the minibuffer prompt.
With 'point-min' we could get another position, as some commands
append intangible text to the minibuffer prompt, which we do not want
to highlight.
---
pulsar.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/pulsar.el b/pulsar.el
index 06beea12fb..0df58e5eea 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -6,7 +6,7 @@
;; Maintainer: Pulsar Development <~protesilaos/pul...@lists.sr.ht>
;; URL: https://git.sr.ht/~protesilaos/pulsar
;; Mailing-List: https://lists.sr.ht/~protesilaos/pulsar
-;; Version: 1.0.0
+;; Version: 1.0.1
;; Package-Requires: ((emacs "27.1"))
;; Keywords: convenience, pulse, highlight
@@ -265,7 +265,10 @@ if the minibuffer has no initial text (e.g. `M-x' with the
default completion setup)."
(cond
((minibufferp)
- (point-min))
+ (save-excursion
+ (let ((inhibit-field-text-motion t))
+ (goto-char (minibuffer-prompt-end))
+ (line-beginning-position))))
((and (pulsar--buffer-end-p) (eq (char-before) ?\n))
(line-beginning-position 0))
(t
