diff lisp/x-faces.el @ 442:abe6d1db359e r21-2-36

Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
line wrap: on
line diff
--- a/lisp/x-faces.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/x-faces.el	Mon Aug 13 11:35:02 2007 +0200
@@ -203,7 +203,7 @@
   "Given an X font specification, this attempts to make a `bold-italic' font.
 If it fails, it returns nil."
   ;; This is haired up to avoid loading the "intermediate" fonts.
-  (if *try-oblique-before-italic-fonts*
+  (if try-oblique-before-italic-fonts
       (or (try-font-name
 	   (x-frob-font-slant (x-frob-font-weight font "bold") "o") device)
 	  (try-font-name
@@ -492,11 +492,13 @@
 	     (or (null locale) (eq locale 'global)))
 	(progn
 	  (or fn (setq fn (x-get-resource
-			   "font" "Font" 'string locale)))
+			   "font" "Font" 'string locale nil 'warn)))
 	  (or fg (setq fg (x-get-resource
-			   "foreground" "Foreground" 'string locale)))
+			   "foreground" "Foreground" 'string locale nil
+			   'warn)))
 	  (or bg (setq bg (x-get-resource
-			   "background" "Background" 'string locale)))))
+			   "background" "Background" 'string locale nil
+			   'warn)))))
     ;;
     ;; "*cursorColor: foo" is equivalent to setting the background of the
     ;; text-cursor face.
@@ -504,7 +506,8 @@
     (if (and (eq (face-name face) 'text-cursor)
 	     (or (null locale) (eq locale 'global)))
 	(setq bg (or (x-get-resource
-		      "cursorColor" "CursorColor" 'string locale) bg)))
+		      "cursorColor" "CursorColor" 'string locale nil 'warn)
+		     bg)))
     ;; #### should issue warnings?  I think this should be
     ;; done when the instancing actually happens, but I'm not
     ;; sure how it should actually be dealt with.
@@ -735,7 +738,8 @@
   ;; If reverseVideo was specified, swap the foreground and background
   ;; of the default and modeline faces.
   ;;
-  (cond ((car (x-get-resource "reverseVideo" "ReverseVideo" 'boolean frame))
+  (cond ((car (x-get-resource "reverseVideo" "ReverseVideo" 'boolean frame
+			      nil 'warn))
 	 ;; First make sure the modeline has fg and bg, inherited from the
 	 ;; current default face - for the case where only one is specified,
 	 ;; so that invert-face doesn't do something weird.