Running through some old workspaces on my hard drive and came across this; thanks, Jeff. APPROVE COMMIT NOTE; This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1293716810 0 # Node ID d0bb90d90736edce79c191c51c5592f8ee49ced7 # Parent f87bb35a6b94954e154e89f9138c6dd6487377cc Provide #'device-x-display, as documented in Lispref; thanks, Jeff Mincy. lisp/ChangeLog addition: 2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. diff -r f87bb35a6b94 -r d0bb90d90736 lisp/ChangeLog --- a/lisp/ChangeLog Thu Dec 30 01:14:13 2010 +0000 +++ b/lisp/ChangeLog Thu Dec 30 13:46:50 2010 +0000 ＠＠ -1,3 +1,10 ＠＠ +2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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. + 2010-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * simple.el (assoc-ignore-case): Remove a duplicate definition of diff -r f87bb35a6b94 -r d0bb90d90736 lisp/x-misc.el --- a/lisp/x-misc.el Thu Dec 30 01:14:13 2010 +0000 +++ b/lisp/x-misc.el Thu Dec 30 13:46:50 2010 +0000 ＠＠ -86,4 +86,10 ＠＠ (x-bogosity-check-resource name class type)) (x-get-resource name class type locale nil 'warn)) +(defun device-x-display (&optional device) + "If DEVICE is an X11 device, return its DISPLAY. + +DEVICE defaults to the selected device." + (and (eq 'x (device-type device)) (device-connection device))) + ;;; x-misc.el ends here -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches