Fix compilation warnings
* gptel-transient.el (gptel--suffix-send): Give a bit of feedback when copying to kill ring.
This commit is contained in:
parent
235134a176
commit
50fb34ab7c
1 changed files with 3 additions and 4 deletions
|
@ -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.
|
||||||
|
|
Loading…
Add table
Reference in a new issue