branch: externals/ebdb
commit c362c2aaa3d583ccf72cd29c034efbdf1f9e91df
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)
