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." ...@@ -612,9 +612,9 @@ The object labels of the found items are returned as list."
(error 'wrong-type-argument (cadr attributes))) (error 'wrong-type-argument (cadr attributes)))
(setq props (append (setq props (append
props props
(list :dict-entry `((:dict-entry
(substring (symbol-name (car attributes)) 1) ,(substring (symbol-name (car attributes)) 1)
(cadr attributes))) ,(cadr attributes))))
attributes (cddr attributes))) attributes (cddr attributes)))
;; Search. The result is a list of object paths. ;; Search. The result is a list of object paths.
(setq result (setq result
...@@ -650,9 +650,9 @@ The object path of the created item is returned." ...@@ -650,9 +650,9 @@ The object path of the created item is returned."
(error 'wrong-type-argument (cadr attributes))) (error 'wrong-type-argument (cadr attributes)))
(setq props (append (setq props (append
props props
(list :dict-entry `((:dict-entry
(substring (symbol-name (car attributes)) 1) ,(substring (symbol-name (car attributes)) 1)
(cadr attributes))) ,(cadr attributes))))
attributes (cddr attributes))) attributes (cddr attributes)))
;; Create the item. ;; Create the item.
(setq result (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