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/

Reply via email to