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/
