From 50fb34ab7c92f91f30b36dff816678c5432ee7ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Thu, 18 Jan 2024 02:40:58 +0000 Subject: [PATCH] Fix compilation warnings * gptel-transient.el (gptel--suffix-send): Give a bit of feedback when copying to kill ring. --- gptel-transient.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/gptel-transient.el b/gptel-transient.el index 68bfd08..5873fde 100644 --- a/gptel-transient.el +++ b/gptel-transient.el @@ -25,7 +25,7 @@ ;; ;;; Code: -(eval-when-compile (require 'cl-lib)) +(require 'cl-lib) (require 'gptel) (require 'transient) @@ -256,9 +256,8 @@ Customize `gptel-directives' for task-specific prompts." (defun gptel--transient-read-variable (prompt initial-input history) "Read value from minibuffer and interpret the result as a Lisp object." - (condition-case nil - (read-from-minibuffer prompt initial-input read-expression-map t history) - ('error nil))) + (ignore-errors + (read-from-minibuffer prompt initial-input read-expression-map t history))) (transient-define-infix gptel--infix-num-messages-to-send () "Number of recent messages to send with each exchange.