branch: elpa/gptel
commit 58f2677f88235d0c6295a98a37c209e0fa824032
Author: Karthik Chikmagalur <[email protected]>
Commit: Karthik Chikmagalur <[email protected]>
gptel: Turn prompt/response prefix lookups into defsubsts
* gptel.el: (gptel-prompt-prefix-string, gptel-response-prefix-string):
Turn these into defsubsts, since we plan to use them extensively
in gptel-mode's font-locking code in the future.
---
gptel.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/gptel.el b/gptel.el
index eadf9088a6..e8808ae01e 100644
--- a/gptel.el
+++ b/gptel.el
@@ -995,12 +995,14 @@ Compatibility macro for Emacs 27.1."
`(generate-new-buffer ,buf)
`(generate-new-buffer ,buf t)))
-(defun gptel-prompt-prefix-string ()
+(defsubst gptel-prompt-prefix-string ()
"Prefix before user prompts in `gptel-mode'."
+ (declare (side-effect-free t))
(or (alist-get major-mode gptel-prompt-prefix-alist) ""))
-(defun gptel-response-prefix-string ()
+(defsubst gptel-response-prefix-string ()
"Prefix before LLM responses in `gptel-mode'."
+ (declare (side-effect-free t))
(or (alist-get major-mode gptel-response-prefix-alist) ""))
(defsubst gptel--trim-prefixes (s)
