import -ko -b 1.1.3 XEmacs XEmacs-21_2 r21-2-35

[chise/xemacs-chise.git.1] / lisp / x-misc.el

diff --git a/lisp/x-misc.el b/lisp/x-misc.el
index 96606bf..f6340bb 100644 (file)
--- 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
          (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)
            (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)
 
 (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))
 
 (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
 
 ;;; x-misc.el ends here