branch: externals/ebdb commit b2b56f874eb43618b3e379f27cfad65932faa5ff Author: Eric Abrahamsen <e...@ericabrahamsen.net> Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Fix to "add nicknames to person record cache" * ebdb.el (ebdb-init-field, ebdb-delete-field): Was using the wrong specializer. --- ebdb.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ebdb.el b/ebdb.el index c480465..70e3d41 100644 --- a/ebdb.el +++ b/ebdb.el @@ -1178,20 +1178,20 @@ simple or complex name class." (cl-call-next-method)) (cl-defmethod ebdb-init-field ((name ebdb-field-name-simple) - (record (subclass ebdb-record-person))) + (record ebdb-record-person)) (object-add-to-list (ebdb-record-cache record) 'alt-names (concat (ebdb-string name) " " - (slot-value (slot-value record 'name) 'surname))) + (ebdb-name-last (slot-value record 'name)))) (cl-call-next-method)) (cl-defmethod ebdb-delete-field ((name ebdb-field-name-simple) - (record (subclass ebdb-record-person)) + (record ebdb-record-person) &optional _unload) (object-remove-from-list (ebdb-record-cache record) 'alt-names (concat (ebdb-string name) " " - (slot-value (slot-value record 'name) 'surname))) + (ebdb-name-last (slot-value record 'name)))) (cl-call-next-method)) (cl-defmethod ebdb-parse ((class (subclass ebdb-field-name-simple)) str &optional slots)