In bbdb-hack-x-face, the variable 'h' is not initialized properly.
-jeff
Changelog entry:
2001-08-13 Jeff Mincy <[EMAIL PROTECTED]>
* fix bbdb-hack-x-face call to make-glyph
Patch:
cvs diff -u -r bbdb-1_13 bbdb-gui.el >> .diff2
Index: bbdb-gui.el
===================================================================
RCS file: /home/cvsroot/xemacs/xemacs-packages/lisp/bbdb/bbdb-gui.el,v
retrieving revision 1.1
diff -u -r1.1 bbdb-gui.el
--- bbdb-gui.el 2001/07/24 02:48:08 1.1
+++ bbdb-gui.el 2001/08/14 01:20:17
@@ -231,13 +231,13 @@
;; ripped pretty much verbatim from VM; X Faces for recent XEmacsen.
((string-match "^21\\." emacs-version) ;; XXX how far back can I go?
(condition-case data
- (let (g h)
+ (let* ((h (concat "X-Face: " (car face))) ;; from vm-display-xface
+ (g (intern h vm-xface-cache)))
(if (find-face 'vm-xface) ;; heck, why not use the same face?
nil
(make-face 'vm-xface)
(set-face-background 'vm-xface "white")
(set-face-foreground 'vm-xface "black"))
- (setq g (intern (car face) vm-xface-cache))
(if (boundp g)
(setq g (symbol-value g))
(set g (make-glyph
