[elpa] externals/ebdb c362c2a 23/33: Protect against searching labeled fields with no label

[Eric Abrahamsen]

branch: externals/ebdb
commit c362c2aaa3d583ccf72cd29c034efbdf1f9e91df
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Protect against searching labeled fields with no label
    
    * ebdb.el (ebdb-field-search): Make sure it's a string.
---
 ebdb.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index a7eab85..644fdfb 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -5155,7 +5155,8 @@ interpreted as t, ie the record passes."
 (cl-defmethod ebdb-field-search ((field ebdb-field-labeled)
                                 (regexp string))
   (or (string-match-p regexp (ebdb-string field))
-      (string-match-p regexp (slot-value field 'object-name))
+      (and (stringp (slot-value field 'object-name))
+          (string-match-p regexp (slot-value field 'object-name)))
       (cl-call-next-method)))
 
 (cl-defmethod ebdb-field-search ((_field ebdb-field-name-complex) _regex)