# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962610570 0
# Node ID 4e913c73fa7e2b321b18c26e9ac77f9ba088aaa9
# Parent  c1a99b7c6085d86deddad256090279875408c426
(hilit-lookup-face-create): Don't set face colors
to nil.

diff -r c1a99b7c6085 -r 4e913c73fa7e lisp/hilit19.el
--- a/lisp/hilit19.el	Mon Jul 03 06:59:05 2000 +0000
+++ b/lisp/hilit19.el	Mon Jul 03 07:49:30 2000 +0000
@@ -622,8 +622,8 @@
       
       ;; catch errors if we can't allocate the color(s)
       (condition-case nil
-	  (progn (set-face-foreground 'scratch-face fgcolor)
-		 (set-face-background 'scratch-face bgcolor)
+	  (progn (and fgcolor (set-face-foreground 'scratch-face fgcolor))
+		 (and bgcolor (set-face-background 'scratch-face bgcolor))
 		 (copy-face 'scratch-face face)
 		 (put face 'basefont basefont))
 	(error (message "couldn't allocate color for '%s'"
@@ -635,7 +635,7 @@
 	  ;; we wanted, but ignore errors making the face bold or italic
 	  ;; if the font isn't available, there's nothing to do about it...
 	  (progn
-	    (set-face-font face nil frame)
+	    (set-face-font face basefont frame)
 	    (set-face-underline-p face (string-match "underline" fn))
 	    (if (string-match ".*bold" fn)
 		;; make face bold in all frames