bbdb-tex.el error

[Colin Baxter]

Hello,

I have git pulled bbdb today and get error on 'make' involving
bbdb-tex.el. It's a while (several months) since I last pulled bbdb so
I'm unsure when this error arose. If it's significant, I have recently
updated my texlive to texlive-2019.

Best wishes,

Colin Baxter.

   ------- Begin error portion of 'make' output

In bbdb-tex:
bbdb-tex.el:414:25:Error: Forgot to expand macro cl-progv in (cl-progv 
p-symbols p-values (let ((prolog (car (cdr (assq 'prolog rule))))) (if prolog 
(progn (insert prolog) (if (consp bbdb-tex-path) (progn (goto-char (point-min)) 
(while (re-search-forward "\\\\usepackage[         
]*{\\([^}]+\\)}" nil t) (let ((sty (locate-file (match-string 1) bbdb-tex-path 
'(".sty")))) (if sty (progn (replace-match (format "
\\\\makeatletter
%% begin %s
%% end %s
\\\\makeatother
" sty sty)) (save-excursion (forward-line -2) (insert-file-contents sty)))))))) 
(goto-char (point-max)) (if (not (bolp)) (insert "
")) (insert "% end BBDB prolog
")))) (let ((--dolist-tail-- (bbdb-record-list records))) (while 
--dolist-tail-- (let ((record (car --dolist-tail--))) (let* ((first-letter 
(substring (bbdb-record-sortkey record) 0 1)) (firstname (aref record 0)) 
(lastname (aref record 1)) (name (bbdb-record-name record)) (name-lf 
(bbdb-record-name-lf record)) (organization (aref record 4)) (affix (aref 
record 2)) (aka (aref record 3)) (mail (aref record 7)) (phone (aref record 5)) 
(address (aref record 6)) (xfields (aref record 8)) (lex-env (list (cons 
'firstname firstname) (cons 'lastname lastname) (cons 'name name) (cons 
'name-lf name-lf) (cons 'aka aka) (cons 'organization organization) (cons 
'affix affix) (cons 'mail mail) (cons 'phone phone) (cons 'address address) 
(cons 'xfields xfields))) (bbdb-address-format-list 
bbdb-tex-address-format-list)) (if (or (not demand) (eval demand lex-env)) 
(progn (if (and separator (not (and current-letter (equal first-letter 
current-letter)))) (insert (format separator (upcase first-letter)) "
")) (setq current-letter first-letter) (let ((--dolist-tail-- (cdr (assq 
'record rule)))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) 
(cond ((stringp elt) (insert elt "
")) ((eq elt 'name) (let ((tex-name (and bbdb-tex-name (bbdb-record-field 
record bbdb-tex-name))) (fmt "\\name{%s}{%s}
")) (if tex-name (let ((first-last (bbdb-split bbdb-tex-name tex-name))) (cond 
((eq (length first-last) 2) (insert (format fmt (car first-last) (car (cdr 
first-last))))) ((eq (length first-last) 1) (insert (format fmt "" (car 
first-last)))) (t (error "TeX name %s cannot be split" tex-name)))) (insert 
(format fmt (bbdb-tex-field 'firstname firstname) (bbdb-tex-field 'lastname 
lastname)))))) ((memq elt '(organization affix aka)) (let ((val 
(bbdb-record-field record elt))) (if val (insert (format "\\%s{%s}
" elt (bbdb-tex-field elt (bbdb-concat elt val))))))) ((memq (car elt) 
'(organization affix aka)) (bbdb-tex-list (bbdb-record-field record (car elt)) 
elt (list 'lambda '(o) (list 'format "\\%s{%s}
" (list 'quote (car elt)) (cons 'bbdb-tex-field (cons (list 'quote (car elt)) 
'(o))))))) ((eq (car elt) 'mail) (bbdb-tex-list mail elt #'(lambda (m) (format 
"\\mail{%s}{%s}
" (nth 1 (bbdb-decompose-bbdb-address m)) (bbdb-tex-field 'mail m))))) ((eq 
(car elt) 'address) (bbdb-tex-list address elt #'(lambda (a) (format 
"\\address{%s}{%s}
" (bbdb-tex-field 'address-label (progn (progn (aref a 0)))) (bbdb-tex-field 
'address (bbdb-format-address a bbdb-tex-address-layout)))))) ((eq (car elt) 
'phone) (bbdb-tex-list phone elt #'(lambda (p) (format "\\phone{%s}{%s}
" (bbdb-tex-field 'phone-label (progn (progn (aref p 0)))) (bbdb-tex-field 
'phone (bbdb-phone-string p)))))) ((eq (car elt) 'xfields) (bbdb-tex-list 
(bbdb-record-field record 'xfields) elt #'(lambda (x) (format "\\xfield{%s}{%s}
" (bbdb-tex-field 'xfield-label (symbol-name (car x))) (bbdb-tex-field 'xfield 
(cdr x)))))) ((symbolp elt) (let ((val (format "%s" (bbdb-record-field record 
elt)))) (if val (insert (format "\\xfield{%s}{%s}
" elt (bbdb-tex-field elt (bbdb-concat elt val))))))) ((consp elt) 
(bbdb-tex-list (bbdb-split (car elt) (format "%s" (bbdb-record-field record 
(car elt)))) elt (list 'lambda '(x) (list 'format "\\xfield{%s}{%s}
" (list 'quote (car elt)) (cons 'bbdb-tex-field (cons (list 'quote (car elt)) 
'(x))))))) (t (error "Rule `%s' undefined" elt))) (setq --dolist-tail-- (cdr 
--dolist-tail--)))))))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let 
((epilog (car (cdr (assq 'epilog rule))))) (if epilog (progn (insert "% begin 
BBDB epilog
" epilog) (if (not (bolp)) (insert "
"))))))
Makefile:340: recipe for target 'bbdb-tex.elc' failed
make[2]: *** [bbdb-tex.elc] Error 1
make[2]: Leaving directory '/home/redknight/git/bbdb/lisp'
Makefile:302: recipe for target 'all' failed
make[1]: *** [all] Error 2
make[1]: Leaving directory '/home/redknight/git/bbdb/lisp'
Makefile:393: recipe for target 'all-recursive' failed
make: *** [all-recursive] Error 1

Compilation exited abnormally with code 2 at Sat Sep  5 06:37:56

   ------ End ----

Colin Baxter
URL: http://www.Colin-Baxter.com
---------------------------------------------------------------------
GnuPG fingerprint: 68A8 799C 0230 16E7 BF68  2A27 BBFA 2492 91F5 41C8
---------------------------------------------------------------------