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/
