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)

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index fbb0a74978a2e069b3a27e77ed8eeb3f0325a5ae..c46854831613161058cfc1e2b98c47ed1938816d 100644 (file)
--- 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