[elpa] externals/ebdb 61b533c 127/350: Simplify ebdb-record-field for strings

[Eric Abrahamsen]

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

    Simplify ebdb-record-field for strings
    
    * ebdb.el (ebdb-record-field): If the argument is a string, just use
      `ebdb-record-user-field' with the string as label.
---
 ebdb.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 23f5b5a..5729187 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4217,12 +4217,7 @@ also be one of the special symbols below.
 
 (cl-defmethod ebdb-record-field ((record ebdb-record)
                                 (field string))
-  (let ((user-fields (ebdb-record-user-fields record)))
-    (catch 'found
-      (dolist (f user-fields)
-       (when (and (slot-exists-p f 'object-name)
-                  (string= field (slot-value f 'object-name)))
-         (throw 'found f))))))
+  (ebdb-record-user-field record field))
 
 (defun ebdb-merge-concat (string1 string2 &optional separator)
   "Return the concatenation of STRING1 and STRING2.