On Wednesday, April 16, 2008 at 23:39:28, Reiner Steib wrote: [...] > --8<---------------cut here---------------start------------->8--- > (defmacro bbdb-add-to-field (record field text) > (let ((get (intern (concat "bbdb-record-" (symbol-name field)))) > (set (intern (concat "bbdb-record-set-" (symbol-name field))))) > (` (let ((old ((, get) (, record))) > (text (, text))) > (or (member text old) > ((, set) (, record) (nconc old (list text)))))))) > --8<---------------cut here---------------end--------------->8---
=== modified file 'lisp/bbdb-whois.el' --- lisp/bbdb-whois.el 2007-02-23 22:08:31 +0000 +++ lisp/bbdb-whois.el 2008-07-05 20:05:08 +0000 @@ -25,10 +25,10 @@ (defmacro bbdb-add-to-field (record field text) (let ((get (intern (concat "bbdb-record-" (symbol-name field)))) (set (intern (concat "bbdb-record-set-" (symbol-name field))))) - (` (let ((old ((, get) (, record))) - (text (, text))) - (or (member text old) - ((, set) (, record) (nconc old (list text)))))))) + `(let ((old (,get ,record)) + (text ,text)) + (or (member text old) + (,set ,record (nconc old (list text))))))) (defcustom bbdb-whois-server (or (and (boundp 'whois-server) whois-server) "whois.geektools.com") Hi Reiner, thanks for your "bug"-report, I changed the functions as seen above. Robert ------------------------------------------------------------------------- Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW! Studies have shown that voting for your favorite open source project, along with a healthy diet, reduces your potential for chronic lameness and boredom. Vote Now at http://www.sourceforge.net/community/cca08 _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/