>>>> Jeff Mincy <jeff(a)delphioutpost.com> writes:
I think you want
(device-connection (frame-device (selected-frame)))
Right, or (device-connection (selected-device))
This is my utility function
Using the select-frame-hook seems a bit hacky; As I said, it can be
done by binding process-environment appropriately in two places in
lisp; more specifically:
(defun process-environment-for-selected-device ()
(let ((d (selected-device)))
(if (eq (device-type d) 'x)
(cons (format "DISPLAY=%s" (device-connection d))
process-environment)
(remove-if (lambda (v)
(string-match "^DISPLAY=" v))
process-environment))))
(defadvice start-process-internal (around set-display-for-device activate)
(let ((process-environment (process-environment-for-selected-device)))
ad-do-it))
(defadvice old-call-process-internal (around set-display-for-device activate)
(let ((process-environment (process-environment-for-selected-device)))
ad-do-it))
But it really seems like this is the correct behavior and that xemacs
should always just work this way. That's what I was hoping for
guidance on - whether there is agreement that this it the right thing,
and if so where to make the change.
thanks,
Greg
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta