[nongnu] elpa/gptel e451038dfb: gptel-transient: Fix directive match when checking presets

[ELPA Syncer]

branch: elpa/gptel
commit e451038dfb08888628a9e0281e88c677a1eee59f
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>

    gptel-transient: Fix directive match when checking presets
    
    * gptel-transient.el (gptel--preset-mismatch-p): If the system
    message specification in a preset is a symbol, check that its
    value in `gptel-directives' matches the current system message.
---
 gptel-transient.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gptel-transient.el b/gptel-transient.el
index f7eb802f3a..12b1f20225 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -89,7 +89,9 @@ For internal use only.")
          ((memq key '(:description :parents)) 'nil)
          ((eq key :system)
           (or (equal gptel--system-message val)
-              (and (symbolp val) (assq val gptel-directives))
+              (and-let* (((symbolp val))
+                         (p (assq val gptel-directives)))
+                (equal gptel--system-message (cdr p)))
               (throw 'mismatch t)))
          ((eq key :backend)
           (or (if (stringp val)