branch: externals/ebdb
commit 082acb13b767c9affee5a65675ce2f4b7f8b9df2
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Fix retrieval of default when editing object labels
* ebdb.el (ebdb-read): The OBJ argument is the old field, FIELD is the
new one.
---
ebdb.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ebdb.el b/ebdb.el
index f97af1e..75eaee3 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1250,7 +1250,7 @@ process."
(let* ((field (cl-call-next-method class slots obj))
(labels (symbol-value (oref-default class label-list)))
(human-readable (ebdb-field-readable-name class))
- (label (slot-value field 'label)))
+ (label (when obj (slot-value obj 'label))))
(setq label (ebdb-with-exit
(ebdb-read-string
(if (stringp human-readable)
