Mercurial > hg > xemacs-beta
comparison lisp/x-misc.el @ 410:de805c49cfc1 r21-2-35
Import from CVS: tag r21-2-35
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:19:21 +0200 |
parents | 70ad99077275 |
children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
409:301b9ebbdf3b | 410:de805c49cfc1 |
---|---|
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 t))) | 69 (x-get-resource name class type locale nil 'warn))) |
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 t)) | 78 (x-get-resource name class type locale nil 'warn)) |
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 t)) | 84 (x-get-resource name class type locale nil 'warn)) |
85 | 85 |
86 ;;; x-misc.el ends here | 86 ;;; x-misc.el ends here |