emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb 3da0e5a 1/3: Add a nickname-plus-lastname entry to


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 3da0e5a 1/3: Add a nickname-plus-lastname entry to the hash table
Date: Fri, 8 Jan 2021 17:35:15 -0500 (EST)

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

    Add a nickname-plus-lastname entry to the hash table
    
    * ebdb.el (ebdb-init-field): If a person record has a nick name, we'd
    expect to be able to locate them at "nickname surname".
---
 ebdb.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ebdb.el b/ebdb.el
index d9ad344..1d902c9 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1416,6 +1416,14 @@ simple or complex name class."
   (ebdb-puthash (ebdb-string name) record)
   (cl-call-next-method))
 
+(cl-defmethod ebdb-init-field ((name ebdb-field-name-simple)
+                              (record ebdb-record-person))
+  "Add a \"nickname-plus-lastname\" to the hash table."
+  (when-let ((last-name (ebdb-record-lastname record)))
+    (ebdb-puthash (concat (ebdb-string name) " " last-name)
+                 record))
+  (cl-call-next-method))
+
 (cl-defmethod ebdb-delete-field ((name ebdb-field-name-simple) record
                                 &optional _unload)
   (ebdb-remhash (ebdb-string name) record)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]