diff options
author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-02-07 13:56:02 +0000 |
---|---|---|
committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-02-07 13:56:02 +0000 |
commit | 10b9b7015d7226156ad0a81238bcbcbc3f4a123a (patch) | |
tree | 2c9c083c3d7e8d40efe1095163c977bed3535b0f /bits | |
parent | 64388b6f8c3eb5d83fac5af420d8001b2754d673 (diff) |
Use field-separator.
Diffstat (limited to 'bits')
-rw-r--r-- | bits/bbdb-edit.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/bits/bbdb-edit.el b/bits/bbdb-edit.el index f0cdd45..b22f308 100644 --- a/bits/bbdb-edit.el +++ b/bits/bbdb-edit.el @@ -1,5 +1,5 @@ ;;; bbdb-edit.el --- BBDB field edit -;; Copyright (C) 1999, 2000 Shenghuo ZHU +;; Copyright (C) 1999, 2000, 2001 Shenghuo ZHU ;; Author: Shenghuo ZHU <zsh@cs.rochester.edu> ;; Created: Fri Aug 27 17:45:25 EDT 1999 @@ -38,7 +38,9 @@ ((eq field 'AKA) (bbdb-record-aka record)) ((eq field 'address) (bbdb-record-addresses record)) ((eq field 'phone) (bbdb-record-phones record)) - (t (bbdb-split (or (bbdb-record-getprop record field) "") ",")))) + (t (bbdb-split (or (bbdb-record-getprop record field) "") + (or (get field 'field-separator) + bbdb-notes-default-separator))))) (defun bbdb-field-edit-put-values (record field values) (if values @@ -48,7 +50,9 @@ ((eq field 'address) (bbdb-record-set-addresses record values)) ((eq field 'phone) (bbdb-record-set-phones record values)) (t (bbdb-record-putprop record field - (mapconcat 'identity values ",")))) + (bbdb-join values + (or (get field 'field-separator) + bbdb-notes-default-separator))))) (if (memq field '(net AKA address)) (bbdb-record-store-field-internal record field nil) (bbdb-record-putprop record field nil))) |