gptel: Appease byte-compiler and linter
* gptel-transient.el: * gptel-openai.el: * gptel-gemini.el:
This commit is contained in:
parent
1e31f550de
commit
e5357383ce
3 changed files with 2 additions and 4 deletions
|
@ -3,7 +3,6 @@
|
||||||
;; Copyright (C) 2023 Karthik Chikmagalur
|
;; Copyright (C) 2023 Karthik Chikmagalur
|
||||||
|
|
||||||
;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
|
;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
|
||||||
;; Keywords:
|
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
;; it under the terms of the GNU General Public License as published by
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
@ -26,7 +25,7 @@
|
||||||
(require 'gptel)
|
(require 'gptel)
|
||||||
(require 'cl-generic)
|
(require 'cl-generic)
|
||||||
(require 'map)
|
(require 'map)
|
||||||
(require 'cl-macs)
|
(eval-when-compile (require 'cl-lib))
|
||||||
|
|
||||||
(declare-function prop-match-value "text-property-search")
|
(declare-function prop-match-value "text-property-search")
|
||||||
(declare-function text-property-search-backward "text-property-search")
|
(declare-function text-property-search-backward "text-property-search")
|
||||||
|
|
|
@ -3,7 +3,6 @@
|
||||||
;; Copyright (C) 2023 Karthik Chikmagalur
|
;; Copyright (C) 2023 Karthik Chikmagalur
|
||||||
|
|
||||||
;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
|
;; Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
|
||||||
;; Keywords:
|
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
;; it under the terms of the GNU General Public License as published by
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
|
|
@ -520,7 +520,7 @@ This uses the prompts in the variable
|
||||||
nil t)))
|
nil t)))
|
||||||
(when-let ((prompt (gethash choice gptel--crowdsourced-prompts)))
|
(when-let ((prompt (gethash choice gptel--crowdsourced-prompts)))
|
||||||
(setq gptel--system-message prompt)
|
(setq gptel--system-message prompt)
|
||||||
(gptel--suffix-system-message)))
|
(call-interactively #'gptel--suffix-system-message)))
|
||||||
(message "No prompts available.")))
|
(message "No prompts available.")))
|
||||||
|
|
||||||
(transient-define-suffix gptel--suffix-system-message ()
|
(transient-define-suffix gptel--suffix-system-message ()
|
||||||
|
|
Loading…
Add table
Reference in a new issue