projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U-00020A7A): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git-]
/
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