diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-06-16 16:05:07 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-06-16 16:05:07 +0200 |
| commit | 4753d79331f747001ebdbbe9c32b33597daab37f (patch) | |
| tree | 4fb5391a7e343a655a3ba1a07aee1f24917ed9e7 | |
| parent | 63ba73a9f2bdf75363eea678a8c119ed0ffd9799 (diff) | |
| download | emacs-4753d79331f747001ebdbbe9c32b33597daab37f.tar.gz emacs-4753d79331f747001ebdbbe9c32b33597daab37f.tar.bz2 emacs-4753d79331f747001ebdbbe9c32b33597daab37f.zip | |
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)
| -rw-r--r-- | lisp/net/secrets.el | 12 |
1 files 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 |