branch: externals/ebdb
commit 4a5ac627070bad9c0a4eb8f189286441f13fde27
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Fix some plist-get calls to use tags, not symbols
* ebdb.el (ebdb-read): These were supposed to be unified as tags.
---
ebdb.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index f7edfad..696fd0b 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1436,11 +1436,11 @@ first one."
(cl-call-next-method))
(cl-defmethod ebdb-read ((role (subclass ebdb-field-role)) &optional slots obj)
- (let ((org-id (or (plist-get slots 'org-uuid)
- (if obj (slot-value obj 'org-uuid)
+ (let ((org-id (or (plist-get slots :org-uuid)
+ (if obj (slot-value obj :org-uuid)
(ebdb-record-uuid (ebdb-prompt-for-record
nil 'ebdb-record-organization)))))
- (mail (or (plist-get slots 'mail)
+ (mail (or (plist-get slots :mail)
(ebdb-with-exit
(ebdb-read ebdb-default-mail-class nil
(when obj (slot-value obj 'mail)))))))
@@ -3353,7 +3353,7 @@ ARGS are passed to `ebdb-compose-mail', and then to
(cl-defmethod ebdb-read ((class (subclass ebdb-record-organization)) &optional
slots)
(let ((name (ebdb-read 'ebdb-field-name-simple slots
- (plist-get slots 'name)))
+ (plist-get slots :name)))
(domain (ebdb-with-exit (ebdb-read 'ebdb-field-domain))))
(setq slots (plist-put slots :name name))
(when domain
