Mercurial > hg > xemacs-beta

comparison lisp/x-misc.el @ 5324:d0bb90d90736

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Provide #'device-x-display, as documented in Lispref; thanks, Jeff Mincy. lisp/ChangeLog addition: 2010-12-30 Aidan Kehoe <kehoea@parhasard.net> * x-misc.el (device-x-display): Provide this function, documented in the Lispref for years, but not existing previously. Thank you Julian Bradfield, thank you Jeff Mincy.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 30 Dec 2010 13:46:50 +0000
parents e29fcfd8df5f
children 6506fcb40fcf
comparison
equal deleted inserted replaced
5323:f87bb35a6b94 5324:d0bb90d90736
84 locale) 84 locale)
85 (if (eq locale 'global) 85 (if (eq locale 'global)
86 (x-bogosity-check-resource name class type)) 86 (x-bogosity-check-resource name class type))
87 (x-get-resource name class type locale nil 'warn)) 87 (x-get-resource name class type locale nil 'warn))
88 88
89 (defun device-x-display (&optional device)
90 "If DEVICE is an X11 device, return its DISPLAY.
91
92 DEVICE defaults to the selected device."
93 (and (eq 'x (device-type device)) (device-connection device)))
94
89 ;;; x-misc.el ends here 95 ;;; x-misc.el ends here