Hallo Alex Schroeder, * On 2002-10-10 Alex Schroeder wrote: >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))
Of course it looks like that, I've got it from there. :-) >PS: Hey, what happened to the Newspeak tradition? We should sprinkle >some doubleplus ungood in these messages... I didn't know BBDB uses newspeak, doubleplus idea. Micha -- Mr. Worf, scan that ship." "Aye, Captain... 300 DPI? ------------------------------------------------------- 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/
