Mercurial > emacs

changeset 14977:2910a512c515

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-handle-display): Set DISPLAY envvar too.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Apr 1996 05:39:50 +0000
parents 63951d3f3995
children c92fad046dd3
files lisp/term/x-win.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.