# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 829114790 0
# Node ID 2910a512c5157109ca98522e34f28aa26a4cb7b3
# Parent  63951d3f39959f2b329a66e7ffcaf2de1ddc499e
(x-handle-display): Set DISPLAY envvar too.

diff -r 63951d3f3995 -r 2910a512c515 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Wed Apr 10 05:29:39 1996 +0000
+++ b/lisp/term/x-win.el	Wed Apr 10 05:39:50 1996 +0000
@@ -149,7 +149,12 @@
 
 (defun x-handle-display (switch)
   (setq x-display-name (car x-invocation-args)
-	x-invocation-args (cdr x-invocation-args)))
+	x-invocation-args (cdr x-invocation-args))
+  ;; Make subshell programs see the same DISPLAY value Emacs really uses.
+  ;; Note that this isn't completely correct, since Emacs can use
+  ;; multiple displays.  However, there is no way to tell an already
+  ;; running subshell which display the user is currently typing on.
+  (setenv "DISPLAY" x-display-name))
 
 (defun x-handle-args (args)
   "Process the X-related command line options in ARGS.