Fix Bug#31846. Do not merge with master

* lisp/net/secrets.el (secrets-search-items)
(secrets-create-item): Fix format of :dict-entry values.  (Bug#31846)

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index fbb0a74978a..c4685483161 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -612,9 +612,9 @@ The object labels of the found items are returned as list."
           (error 'wrong-type-argument (cadr attributes)))
         (setq props (append
                      props
-                     (list :dict-entry
-                           (substring (symbol-name (car attributes)) 1)
-                           (cadr attributes)))
+                     `((:dict-entry
+                        ,(substring (symbol-name (car attributes)) 1)
+                        ,(cadr attributes))))
               attributes (cddr attributes)))
       ;; Search.  The result is a list of object paths.
       (setq result
@@ -650,9 +650,9 @@ The object path of the created item is returned."
             (error 'wrong-type-argument (cadr attributes)))
           (setq props (append
                        props
-                       (list :dict-entry
-                             (substring (symbol-name (car attributes)) 1)
-                             (cadr attributes)))
+                       `((:dict-entry
+                          ,(substring (symbol-name (car attributes)) 1)
+                          ,(cadr attributes))))
                 attributes (cddr attributes)))
         ;; Create the item.
         (setq result