|
From: Roland W. <wi...@gn...> - 2012-09-13 22:43:45
|
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. |