From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 16 Jun 2018 14:05:07 +0000 (+0200)
Subject: Fix Bug#31846.  Do not merge with master
X-Git-Tag: emacs-26.1.90~352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4753d79331f747001ebdbbe9c32b33597daab37f;p=emacs.git

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 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