Mercurial > hg > xemacs-beta

comparison lisp/x-misc.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
64 (catch 'done 64 (catch 'done
65 (while resource-list 65 (while resource-list
66 (let* ((name (caar resource-list)) 66 (let* ((name (caar resource-list))
67 (class (cdar resource-list)) 67 (class (cdar resource-list))
68 (resource 68 (resource
69 (x-get-resource name class type locale nil 'warn))) 69 (x-get-resource name class type locale nil t)))
70 (if resource 70 (if resource
71 (progn 71 (progn
72 (add-spec-to-specifier specifier resource locale) 72 (add-spec-to-specifier specifier resource locale)
73 (throw 'done t)))) 73 (throw 'done t))))
74 (setq resource-list (cdr resource-list)))))) 74 (setq resource-list (cdr resource-list))))))
75 75
76 (defun x-get-resource-and-bogosity-check (name class type &optional locale) 76 (defun x-get-resource-and-bogosity-check (name class type &optional locale)
77 (x-bogosity-check-resource name class type) 77 (x-bogosity-check-resource name class type)
78 (x-get-resource name class type locale nil 'warn)) 78 (x-get-resource name class type locale nil t))
79 79
80 (defun x-get-resource-and-maybe-bogosity-check (name class type &optional 80 (defun x-get-resource-and-maybe-bogosity-check (name class type &optional
81 locale) 81 locale)
82 (if (eq locale 'global) 82 (if (eq locale 'global)
83 (x-bogosity-check-resource name class type)) 83 (x-bogosity-check-resource name class type))
84 (x-get-resource name class type locale nil 'warn)) 84 (x-get-resource name class type locale nil t))
85 85
86 ;;; x-misc.el ends here 86 ;;; x-misc.el ends here