On Thu Sep 13 2012 Sam Steingold wrote: > (defun sds-bbdb-add-name (rec name) > "Decide whether to change the record name." > (let ((n1 (bbdb-record-firstname rec)) > (nl (bbdb-record-lastname rec))) > (cond ((and (null n1) (null nl)) t) > ((or (string= n1 name) (string= nl name)) nil) > (t 'query)))) > (setq 'bbdb-add-name 'sds-bbdb-add-name)
You surely know that setq is a special form that prevents evaluation of its first arg. ------------------------------------------------------------------------------ Everyone hates slow websites. So do we. Make your web apps faster with AppDynamics Download AppDynamics Lite for free today: http://ad.doubleclick.net/clk;258768047;13503038;j? http://info.appdynamics.com/FreeJavaPerformanceDownload.html _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/
