Micha Wiedenmann <[EMAIL PROTECTED]> writes: > If you try to create a new field: "name" with `C-o name REG y Alex RET' > `bbdb-insert-new-field' (`C-o') calls `bbdb-prompt-for-new-field-value' > > ,----[ bbdb-com.el ] > | (defun bbdb-prompt-for-new-field-value (name) > | (cond ((eq name 'net) ...) > | ((eq name 'address) ...) > | ((eq name 'notes) (bbdb-read-string "Notes: ")) > | ((assoc (symbol-name name) ...)) > | (t > + (if (memq name '(name address addresses phone phones net aka AKA)) > + (error "bbdb: cannot redefine the %s field this way" name)) > | (if (bbdb-y-or-n-p > | (format "\"%s\" is an unknown field name. Define it? " name)) > | (bbdb-set-propnames > | (append (bbdb-propnames) (list (list (symbol-name name))))) > | (error "unknown field \"%s\"" name)) > | (bbdb-read-string (format "%s: " name))))) > `---- > > And `bbdb-set-propnames' redefines name as user-field. I added the > lines indicated with `+'. I don't know about problems with the other > fields (address, addresses, phone, phones, net, aka, AKA) do they cause > the same problems?
Looks good to me, just like this: (defun bbdb-record-getprop (record property) (if (memq property '(name address addresses phone phones net aka AKA)) (error "bbdb: cannot access the %s field this way" property)) Alex. PS: Hey, what happened to the Newspeak tradition? We should sprinkle some doubleplus ungood in these messages... ------------------------------------------------------- This sf.net email is sponsored by:ThinkGeek Welcome to geek heaven. http://thinkgeek.com/sf _______________________________________________ [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/