Fix compilation warnings

* gptel-transient.el (gptel--suffix-send): Give a bit of feedback
when copying to kill ring.
This commit is contained in:
João Távora 2024-01-18 02:40:58 +00:00 committed by Karthik Chikmagalur
parent 235134a176
commit 50fb34ab7c

View file

@ -25,7 +25,7 @@
;; ;;
;;; Code: ;;; Code:
(eval-when-compile (require 'cl-lib)) (require 'cl-lib)
(require 'gptel) (require 'gptel)
(require 'transient) (require 'transient)
@ -256,9 +256,8 @@ Customize `gptel-directives' for task-specific prompts."
(defun gptel--transient-read-variable (prompt initial-input history) (defun gptel--transient-read-variable (prompt initial-input history)
"Read value from minibuffer and interpret the result as a Lisp object." "Read value from minibuffer and interpret the result as a Lisp object."
(condition-case nil (ignore-errors
(read-from-minibuffer prompt initial-input read-expression-map t history) (read-from-minibuffer prompt initial-input read-expression-map t history)))
('error nil)))
(transient-define-infix gptel--infix-num-messages-to-send () (transient-define-infix gptel--infix-num-messages-to-send ()
"Number of recent messages to send with each exchange. "Number of recent messages to send with each exchange.