From: Ian Kelling Date: Fri, 18 Apr 2014 01:29:42 +0000 (-0700) Subject: Refactor to allow combined name mappings, expecting only 1 to be valid X-Git-Url: https://iankelling.org/git/?p=bbdb-csv-import;a=commitdiff_plain;h=2b36798666ab6369f3e1103cd0558b24af9430ff Refactor to allow combined name mappings, expecting only 1 to be valid --- diff --git a/bbdb3-csv-import.el b/bbdb3-csv-import.el index 3a9f4b0..8b66c73 100644 --- a/bbdb3-csv-import.el +++ b/bbdb3-csv-import.el @@ -304,7 +304,7 @@ Defaults to current buffer." (replace-regexp-in-string "[0-9]+" (number-to-string num) string)) (map-assoc (field) ;; For mappings with just 1 simple csv-field, get it's data - (assoc-plus (car (map-bbdb3 field)) csv-record))) + (car (rd-assoc field)))) (let ((name (let ((first (map-assoc "firstname")) (middle (map-assoc "middlename"))