branch: elpa/gptel
commit 38b021ceb3281bc4045575e714edf52fdd517b0b
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
gptel: Move some macros before use locations
* gptel.el (gptel-prompt-prefix-string)
(gptel-response-prefix-string, gptel--temp-buffer): Move
inline-functions and macros to before their first use location.
---
gptel.el | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/gptel.el b/gptel.el
index b1e6ec6db2..68269bfcf9 100644
--- a/gptel.el
+++ b/gptel.el
@@ -1017,6 +1017,16 @@ Note: This will move the cursor."
(scroll-up-command))
(error nil))))
+(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) ""))
+
+(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) ""))
+
(defun gptel-beginning-of-response (&optional _ _ arg)
"Move point to the beginning of the LLM response ARG times."
(interactive (list nil nil
@@ -1051,6 +1061,14 @@ Note: This will move the cursor."
(skip-syntax-forward "w.")
,(macroexp-progn body)))
+(defmacro gptel--temp-buffer (buf)
+ "Generate a temp buffer BUF.
+
+Compatibility macro for Emacs 27.1."
+ (if (< emacs-major-version 28)
+ `(generate-new-buffer ,buf)
+ `(generate-new-buffer ,buf t)))
+
(defmacro gptel--with-buffer-copy (buf start end &rest body)
"Copy gptel's local variables from BUF to a temp buffer and run BODY.
@@ -1072,24 +1090,6 @@ If positions START and END are provided, insert that
part of BUF first."
(setq major-mode (buffer-local-value 'major-mode ,buf))
,@body))))
-(defmacro gptel--temp-buffer (buf)
- "Generate a temp buffer BUF.
-
-Compatibility macro for Emacs 27.1."
- (if (< emacs-major-version 28)
- `(generate-new-buffer ,buf)
- `(generate-new-buffer ,buf t)))
-
-(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) ""))
-
-(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)
"Remove prompt/response prefixes from string S.
