[Emacs-diffs] emacs-26 4753d79: Fix Bug#31846. Do not merge with master

[Michael Albinus]

branch: emacs-26
commit 4753d79331f747001ebdbbe9c32b33597daab37f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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)
---
 lisp/net/secrets.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index fbb0a74..c468548 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