From 4753d79331f747001ebdbbe9c32b33597daab37f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 16 Jun 2018 16:05:07 +0200 Subject: [PATCH] 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 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 -- 2.39.2