emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/pulsar f9d09afc97: Improve what commit 5e5796e tried to


From: ELPA Syncer
Subject: [elpa] externals/pulsar f9d09afc97: Improve what commit 5e5796e tried to do
Date: Tue, 15 Aug 2023 09:58:23 -0400 (EDT)

branch: externals/pulsar
commit f9d09afc97d08f90a6a462b9da86900e6b555a74
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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/pulsar@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]