Commit 4753d793 authored by Michael Albinus's avatar Michael Albinus

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)
parent 63ba73a9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment