fix: transient map calling

[xlarsx]

Fix the error:

Debugger entered--Lisp error: (wrong-number-of-arguments (1 . 3) 5)
  set-transient-map((keymap (27 keymap (13 closure (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... t) nil (interactive) (gptel ... nil ... t))) (43 closure ((--cl-clear-response-- closure ... nil ... ...) (query . "            (define-key map (kbd...") (count . 12) (pos #<window 3 on gptel-quick.el> 7235 ... 0 nil 7235 ... nil ... ...) (x237) (x236 #<window 3 on gptel-quick.el> 7235 ... 0 nil 7235 ... nil ... ...) (x235 ...) (x234 . 12) (x233 12 ...) (x232 . "            (define-key map (kbd...") (val "            (define-key map (kbd..." 12 ...) (info :history ... :data ... :buffer #<buffer gptel-quick.el> :position #<marker at 7493 in gptel-quick.el> :backend ... :callback gptel-quick--callback-posframe :context ... :include-reasoning t :stop-reason "length" :output-tokens 46 :http-status "200" :status "HTTP/1.1 200 OK") (response . "<think>\nOkay, let me try to figu...") t) nil (interactive) (progn (gptel-quick--update-posframe "...generating longer summary..." pos) (gptel-quick query ...))) (remap keymap (kill-ring-save closure (... ... ... ... ... ... ... ... ... ... ... ... ... ... t) nil (interactive) (progn ... ...)) (keyboard-quit closure (... ... ... ... ... ... ... ... ... ... ... ... t) nil (interactive) (and ... ... ...)))) nil (closure ((query . "            (define-key map (kbd...") (count . 12) (pos #<window 3 on gptel-quick.el> 7235 (85 . 1188) 0 nil 7235 (5 . 33) nil (0 . 0) (17 . 36)) (x237) (x236 #<window 3 on gptel-quick.el> 7235 (85 . 1188) 0 nil 7235 (5 . 33) nil (0 . 0) (17 . 36)) (x235 (#<window 3 on gptel-quick.el> 7235 ... 0 nil 7235 ... nil ... ...)) (x234 . 12) (x233 12 (#<window 3 on gptel-quick.el> 7235 ... 0 nil 7235 ... nil ... ...)) (x232 . "            (define-key map (kbd...") (val "            (define-key map (kbd..." 12 (#<window 3 on gptel-quick.el> 7235 ... 0 nil 7235 ... nil ... ...)) (info :history (WAIT INIT) :data (:model "qwen3:14b" :messages ... :stream :json-false :options ...) :buffer #<buffer gptel-quick.el> :position #<marker at 7493 in gptel-quick.el> :backend #s(gptel-ollama :name "Ollama" :host "localhost:11434" :header nil :protocol "http" :stream t :endpoint "/api/chat" :key nil :models ... :url "http://localhost:11434/api/chat" :request-params nil :curl-args nil) :callback gptel-quick--callback-posframe :context ("            (define-key map (kbd..." 12 ...) :include-reasoning t :stop-reason "length" :output-tokens 46 :http-status "200" :status "HTTP/1.1 200 OK") (response . "<think>\nOkay, let me try to figu...") t) nil (interactive) (and (eq gptel-quick-display 'posframe) (fboundp 'posframe-hide) (posframe-hide " *gptel-quick*"))) nil 10)
  (progn (set-transient-map (let ((map (make-sparse-keymap))) (define-key map [remap keyboard-quit] --cl-clear-response--) (define-key map (kbd "+") --cl-more-response--) (define-key map [remap kill-ring-save] --cl-copy-response--) (define-key map (kbd "M-RET") --cl-create-chat--) map) nil --cl-clear-response-- nil gptel-quick-timeout))
  (let* ((--cl-clear-response-- #'(lambda nil (interactive) (and (eq gptel-quick-display 'posframe) (fboundp 'posframe-hide) (posframe-hide " *gptel-quick*")))) (--cl-more-response-- #'(lambda nil (interactive) (progn (gptel-quick--update-posframe "...generating longer summary..." pos) (gptel-quick query (* count 4))))) (--cl-copy-response-- #'(lambda nil (interactive) (progn (kill-new response) (message "Copied summary to kill-ring.")))) (--cl-create-chat-- #'(lambda nil (interactive) (gptel (generate-new-buffer-name "*gptel-quick*") nil (concat query "\n\n" (propertize response ... ...) "\n\n") t)))) (progn (set-transient-map (let ((map (make-sparse-keymap))) (define-key map [remap keyboard-quit] --cl-clear-response--) (define-key map (kbd "+") --cl-more-response--) (define-key map [remap kill-ring-save] --cl-copy-response--) (define-key map (kbd "M-RET") --cl-create-chat--) map) nil --cl-clear-response-- nil gptel-quick-timeout)))
  (progn (gptel-quick--update-posframe response pos) (let* ((--cl-clear-response-- #'(lambda nil (interactive) (and (eq gptel-quick-display ...) (fboundp ...) (posframe-hide " *gptel-quick*")))) (--cl-more-response-- #'(lambda nil (interactive) (progn (gptel-quick--update-posframe "...generating longer summary..." pos) (gptel-quick query ...)))) (--cl-copy-response-- #'(lambda nil (interactive) (progn (kill-new response) (message "Copied summary to kill-ring.")))) (--cl-create-chat-- #'(lambda nil (interactive) (gptel (generate-new-buffer-name "*gptel-quick*") nil (concat query "\n\n" ... "\n\n") t)))) (progn (set-transient-map (let ((map (make-sparse-keymap))) (define-key map [remap keyboard-quit] --cl-clear-response--) (define-key map (kbd "+") --cl-more-response--) (define-key map [remap kill-ring-save] --cl-copy-response--) (define-key map (kbd "M-RET") --cl-create-chat--) map) nil --cl-clear-response-- nil gptel-quick-timeout))))
  (let ((pos x236) (count x234) (query x232)) (progn (gptel-quick--update-posframe response pos) (let* ((--cl-clear-response-- #'(lambda nil (interactive) (and ... ... ...))) (--cl-more-response-- #'(lambda nil (interactive) (progn ... ...))) (--cl-copy-response-- #'(lambda nil (interactive) (progn ... ...))) (--cl-create-chat-- #'(lambda nil (interactive) (gptel ... nil ... t)))) (progn (set-transient-map (let ((map ...)) (define-key map [remap keyboard-quit] --cl-clear-response--) (define-key map (kbd "+") --cl-more-response--) (define-key map [remap kill-ring-save] --cl-copy-response--) (define-key map (kbd "M-RET") --cl-create-chat--) map) nil --cl-clear-response-- nil gptel-quick-timeout)))))
  (let* ((val (plist-get info :context)) (x232 (car val)) (x233 (cdr val)) (x234 (car x233)) (x235 (cdr x233)) (x236 (car x235)) (x237 (cdr x235))) (let ((pos x236) (count x234) (query x232)) (progn (gptel-quick--update-posframe response pos) (let* ((--cl-clear-response-- #'(lambda nil ... ...)) (--cl-more-response-- #'(lambda nil ... ...)) (--cl-copy-response-- #'(lambda nil ... ...)) (--cl-create-chat-- #'(lambda nil ... ...))) (progn (set-transient-map (let (...) (define-key map ... --cl-clear-response--) (define-key map ... --cl-more-response--) (define-key map ... --cl-copy-response--) (define-key map ... --cl-create-chat--) map) nil --cl-clear-response-- nil gptel-quick-timeout))))))
  (cond ((null response) (message "Response failed with error: %s" (plist-get info :status))) ((stringp response) (let* ((val (plist-get info :context)) (x232 (car val)) (x233 (cdr val)) (x234 (car x233)) (x235 (cdr x233)) (x236 (car x235)) (x237 (cdr x235))) (let ((pos x236) (count x234) (query x232)) (progn (gptel-quick--update-posframe response pos) (let* ((--cl-clear-response-- ...) (--cl-more-response-- ...) (--cl-copy-response-- ...) (--cl-create-chat-- ...)) (progn (set-transient-map ... nil --cl-clear-response-- nil gptel-quick-timeout))))))) (t nil))
  gptel-quick--callback-posframe("<think>\nOkay, let me try to figure this out. The u..." (:history (WAIT INIT) :data (:model "qwen3:14b" :messages [(:role "system" :content "Explain in 12 words or fewer.") (:role "user" :content "(define-key map (kbd \"+\") #'more-response)\n       ...")] :stream :json-false :options (:temperature 1.0 :num_predict 46)) :buffer #<buffer gptel-quick.el> :position #<marker at 7493 in gptel-quick.el> :backend #s(gptel-ollama :name "Ollama" :host "localhost:11434" :header nil :protocol "http" :stream t :endpoint "/api/chat" :key nil :models (qwen3:14b codellama:latest mistral:latest deepseek-r1:14b) :url "http://localhost:11434/api/chat" :request-params nil :curl-args nil) :callback gptel-quick--callback-posframe :context ("            (define-key map (kbd \"+\") #'more-respo..." 12 (#<window 3 on gptel-quick.el> 7235 (85 . 1188) 0 nil 7235 (5 . 33) nil (0 . 0) (17 . 36))) :include-reasoning t :stop-reason "length" :output-tokens 46 :http-status "200" :status "HTTP/1.1 200 OK"))
  #f(compiled-function (_) #<bytecode 0x155f1077f8a1>)(nil)
  apply(#f(compiled-function (_) #<bytecode 0x155f1077f8a1>) nil)
  url-http-activate-callback()
  url-http-content-length-after-change-function(119 633 514)
  url-http-wait-for-headers-change-function(1 638 637)
  url-http-generic-filter(#<process localhost> "HTTP/1.1 200 OK\15\nContent-Type: application/json; c...")