[nongnu] elpa/gptel 4e35e998a8 014/273: gptel-curl: Rename functions for linting

[ELPA Syncer]

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

    gptel-curl: Rename functions for linting
    
    gptel-curl.el (gptel-curl--process-alist, gptel-curl--get-args,
    gptel--curl-sentinel, gptel-curl--parse-response): Rename internal
    functions and variables to use the `gptel-curl--` prefix instead of
    `gptel--curl-`.
---
 gptel-curl.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/gptel-curl.el b/gptel-curl.el
index 3ccfdb3d46..7953790b80 100644
--- a/gptel-curl.el
+++ b/gptel-curl.el
@@ -34,10 +34,10 @@
 (require 'json)
 (require 'aio)
 
-(defvar gptel--curl-process-alist nil
+(defvar gptel-curl--process-alist nil
   "Alist of active GPTel curl requests.")
 
-(defun gptel--curl-get-args (prompts token)
+(defun gptel-curl--get-args (prompts token)
   "Produce list of arguments for calling Curl.
 
 PROMPTS is the data to send, TOKEN is a unique identifier."
@@ -72,36 +72,36 @@ PROMPTS is the data to send, TOKEN is a unique identifier."
     (let* ((token (md5 (format "%s%s%s%s"
                                (random) (emacs-pid) (user-full-name)
                                (recent-keys))))
-           (args (gptel--curl-get-args prompts token))
+           (args (gptel-curl--get-args prompts token))
            (process (apply #'start-process "gptel-curl" (current-buffer)
                            "curl" args))
            (promise (aio-promise))
            (cb (lambda (result)
                  (aio-resolve promise (lambda () result))
                  (setf (alist-get process
-                                  gptel--curl-process-alist nil 'remove)
+                                  gptel-curl--process-alist nil 'remove)
                        nil))))
       (prog1 promise
         (set-process-query-on-exit-flag process nil)
-        (setf (alist-get process gptel--curl-process-alist)
+        (setf (alist-get process gptel-curl--process-alist)
               (list :callback cb :token token))
-        (set-process-sentinel process #'gptel--curl-sentinel)))))
+        (set-process-sentinel process #'gptel-curl--sentinel)))))
 
-(defun gptel--curl-sentinel (process status)
+(defun gptel-curl--sentinel (process status)
   "Process sentinel for GPTel curl requests.
 
 PROCESS and STATUS are process parameters."
   (let ((proc-buf (process-buffer process)))
     (if-let* ((ok-p (equal status "finished\n"))
-              (proc-info (alist-get process gptel--curl-process-alist))
+              (proc-info (alist-get process gptel-curl--process-alist))
               (proc-token (plist-get proc-info :token))
-              (content (gptel--curl-parse-response proc-buf proc-token)))
+              (content (gptel-curl--parse-response proc-buf proc-token)))
         (funcall (plist-get proc-info :callback) content)
       ;; Failed
       (funcall (plist-get proc-info :callback) nil))
     (kill-buffer proc-buf)))
 
-(defun gptel--curl-parse-response (buf token)
+(defun gptel-curl--parse-response (buf token)
   "Parse the buffer BUF with curl's response.
 
 TOKEN is used to disambiguate multiple requests in a single