X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-misc.el;h=f6340bb6de410d440de08b7535d1b1194ea952dc;hb=0387d3d040c10e831e540b7395846ef7f570e36a;hp=96606bf471136b560b22c2b36d4ff916d50e90be;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/x-misc.el b/lisp/x-misc.el
index 96606bf..f6340bb 100644
--- a/lisp/x-misc.el
+++ b/lisp/x-misc.el
@@ -66,7 +66,7 @@ a check is done for bogus resource specifications."
 	  (let* ((name (caar resource-list))
 		 (class (cdar resource-list))
 		 (resource
-		  (x-get-resource name class type locale nil t)))
+		  (x-get-resource name class type locale nil 'warn)))
 	    (if resource
 		(progn
 		  (add-spec-to-specifier specifier resource locale)
@@ -75,12 +75,12 @@ a check is done for bogus resource specifications."
 
 (defun x-get-resource-and-bogosity-check (name class type &optional locale)
   (x-bogosity-check-resource name class type)
-  (x-get-resource name class type locale nil t))
+  (x-get-resource name class type locale nil 'warn))
 
 (defun x-get-resource-and-maybe-bogosity-check (name class type &optional
 						     locale)
   (if (eq locale 'global)
       (x-bogosity-check-resource name class type))
-  (x-get-resource name class type locale nil t))
+  (x-get-resource name class type locale nil 'warn))
 
 ;;; x-misc.el ends here