Mercurial > hg > xemacs-beta
comparison lisp/x-misc.el @ 5445:6506fcb40fcf
Merged with trunk.
| author | Mats Lidell <matsl@xemacs.org> |
|---|---|
| date | Fri, 31 Dec 2010 00:27:29 +0100 |
| parents | 308d34e9f07d d0bb90d90736 |
| children |
comparison
equal
deleted
inserted
replaced
| 5444:388762703a21 | 5445:6506fcb40fcf |
|---|---|
| 82 locale) | 82 locale) |
| 83 (if (eq locale 'global) | 83 (if (eq locale 'global) |
| 84 (x-bogosity-check-resource name class type)) | 84 (x-bogosity-check-resource name class type)) |
| 85 (x-get-resource name class type locale nil 'warn)) | 85 (x-get-resource name class type locale nil 'warn)) |
| 86 | 86 |
| 87 (defun device-x-display (&optional device) | |
| 88 "If DEVICE is an X11 device, return its DISPLAY. | |
| 89 | |
| 90 DEVICE defaults to the selected device." | |
| 91 (and (eq 'x (device-type device)) (device-connection device))) | |
| 92 | |
| 87 ;;; x-misc.el ends here | 93 ;;; x-misc.el ends here |