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

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

[nongnu] elpa/gptel de70a066d7 017/273: gptel: Pulse inserted text


From: ELPA Syncer
Subject: [nongnu] elpa/gptel de70a066d7 017/273: gptel: Pulse inserted text
Date: Wed, 1 May 2024 10:01:26 -0400 (EDT)

branch: elpa/gptel
commit de70a066d74da458b0c97c8cf30db7c8552f5483
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel: Pulse inserted text
---
 gptel.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gptel.el b/gptel.el
index b1b4fd5ef9..75c9cb2358 100644
--- a/gptel.el
+++ b/gptel.el
@@ -50,6 +50,7 @@
 (declare-function markdown-mode "markdown-mode")
 (declare-function gptel-curl-get-response "gptel-curl")
 (declare-function gptel-send-menu "gptel-transient")
+(declare-function pulse-momentary-highlight-region "pulse")
 
 (eval-when-compile
   (require 'subr-x)
@@ -138,7 +139,9 @@ When set to nil, it is inserted all at once.
             (unless (bobp) (insert "\n\n"))
             (if gptel-playback
                 (gptel--playback (current-buffer) content-str (point))
-              (insert content-str))
+              (let ((p (point)))
+                (insert content-str)
+                (pulse-momentary-highlight-region p (point))))
             (insert "\n\n" gptel-prompt-string)
             (unless gptel-playback
               (setf (nth 1 header-line-format)



reply via email to

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