[nongnu] elpa/gptel 65cb94d3ba: gptel: Filter buffers carefully when running gptel (#450)

[ELPA Syncer]

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

    gptel: Filter buffers carefully when running gptel (#450)
    
    * gptel.el (gptel): Check that items passed to the predicate in
    `read-buffer' when spawning a `gptel' buffer are buffer names.
---
 gptel.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/gptel.el b/gptel.el
index ac678f6ae1..2e9e3809c5 100644
--- a/gptel.el
+++ b/gptel.el
@@ -1688,11 +1688,13 @@ INTERACTIVEP is t when gptel is called interactively."
    (let* ((backend (default-value 'gptel-backend))
           (backend-name
            (format "*%s*" (gptel-backend-name backend))))
-     (list (read-buffer "Create or choose gptel buffer: "
-                        backend-name nil                         ; DEFAULT and 
REQUIRE-MATCH
-                        (lambda (b)                              ; PREDICATE
-                          (buffer-local-value 'gptel-mode
-                                              (get-buffer (or (car-safe b) 
b)))))
+     (list (read-buffer
+            "Create or choose gptel buffer: "
+            backend-name nil                         ; DEFAULT and 
REQUIRE-MATCH
+            (lambda (b)                                   ; PREDICATE
+              ;; NOTE: buffer check is required (#450)
+              (and-let* ((buf (get-buffer (or (car-safe b) b))))
+                (buffer-local-value 'gptel-mode buf))))
            (condition-case nil
                (gptel--get-api-key
                 (gptel-backend-key backend))