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