[elpa] externals/ebdb 082acb1 05/10: Fix retrieval of default when editing object labels

[Eric Abrahamsen]

branch: externals/ebdb
commit 082acb13b767c9affee5a65675ce2f4b7f8b9df2
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    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)