branch: elpa/gptel
commit 107a8cf0e07ec2657eecd3a8ce9e42ae43f33a51
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
gptel: Linting and update test module
---
gptel-anthropic.el | 4 +---
gptel-gemini.el | 1 -
gptel.el | 7 +++----
test | 2 +-
4 files changed, 5 insertions(+), 9 deletions(-)
diff --git a/gptel-anthropic.el b/gptel-anthropic.el
index 0584c4afc4..42caca5670 100644
--- a/gptel-anthropic.el
+++ b/gptel-anthropic.el
@@ -23,8 +23,7 @@
;;; Code:
(require 'cl-generic)
-(eval-when-compile
- (require 'cl-lib))
+(require 'cl-lib)
(require 'map)
(require 'gptel)
@@ -257,7 +256,6 @@ TOOLS is a list of `gptel-tool' structs, which see."
for arg in (gptel-tool-args tool)
for argspec = (copy-sequence arg)
for name = (plist-get arg :name) ;handled differently
- for type = (plist-get arg :type) ;to add additional keys to
objects
for newname = (or (and (keywordp name) name)
(make-symbol (concat ":" name)))
do ;ARGSPEC is ARG without unrecognized
keys
diff --git a/gptel-gemini.el b/gptel-gemini.el
index 5a8a2af3ea..d6a2cd7041 100644
--- a/gptel-gemini.el
+++ b/gptel-gemini.el
@@ -164,7 +164,6 @@ TOOLS is a list of `gptel-tool' structs, which see."
for arg in (gptel-tool-args tool)
for argspec = (copy-sequence arg)
for name = (plist-get arg :name) ;handled differently
- for type = (plist-get arg :type) ;to add additional keys to
objects
for newname = (or (and (keywordp name) name)
(make-symbol (concat ":" name)))
do ;ARGSPEC is ARG without unrecognized
keys
diff --git a/gptel.el b/gptel.el
index 31c0a19126..e09756da9f 100644
--- a/gptel.el
+++ b/gptel.el
@@ -910,6 +910,8 @@ Later plists in the sequence take precedence over earlier
ones."
(setq rtn (plist-put rtn p v))))
rtn))
+(defvar url-http-end-of-headers)
+(defvar url-http-response-status)
(cl-defun gptel--url-retrieve (url &key method data headers)
"Retrieve URL synchronously with METHOD, DATA and HEADERS."
(declare (indent 1))
@@ -1737,7 +1739,6 @@ implementation, used by OpenAI-compatible APIs and
Ollama."
for arg in (gptel-tool-args tool)
for argspec = (copy-sequence arg)
for name = (plist-get arg :name) ;handled differently
- for type = (plist-get arg :type) ;to add additional keys
to objects
for newname = (or (and (keywordp name) name)
(make-symbol (concat ":" name)))
do ;ARGSPEC is ARG without unrecognized
keys
@@ -2840,11 +2841,9 @@ RESPONSE is the parsed JSON of the response, as a plist.
PROC-INFO is a plist with process information and other context.
See `gptel-curl--get-response' for its contents.")
-(defvar url-http-end-of-headers)
-(defvar url-http-response-status)
(defun gptel--url-parse-response (backend proc-info)
"Parse response from BACKEND with PROC-INFO."
- (when gptel-log-level ;logging
+ (when gptel-log-level ;logging
(save-excursion
(goto-char url-http-end-of-headers)
(when (eq gptel-log-level 'debug)
diff --git a/test b/test
index c0c937b6c5..14371c92b0 160000
--- a/test
+++ b/test
@@ -1 +1 @@
-Subproject commit c0c937b6c516bc9f7fb6b5b28ae19ac8dc399cae
+Subproject commit 14371c92b0a7671f4b6b7679a1ac0eba3ded478f
