Let frames on new terminals inherit 'environment and 'client.

* lisp/frame.el (make-frame): Always inherit 'environment and 'client
  parameters.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-575

diff --git a/README.multi-tty b/README.multi-tty
index 12bc2c2558cdf6e0da789ab887a2fccbfd61cc6a..96589099e20a0c2d17dcf97329beec933b1200c4 100644 (file)
--- a/README.multi-tty
+++ b/README.multi-tty
@@ -42,6 +42,7 @@ Romain Francoise <romain@orebokech.com>
 Ami Fischman <ami@fischman.org>
 Noah Friedman <friedman@splode.com>
 Friedrich Delgado Friedrichs <friedel@nomaden.org>
+Eric Hanchrow <offby1@blarg.net>
 IRIE Tetsuya <irie@t.email.ne.jp>
 Yoshiaki Kasahara <kasahara@nc.kyushu-u.ac.jp>
 Bas Kok <nekkobassu@yahoo.com>
@@ -406,6 +407,7 @@ THINGS TO DO
 ------------
 
 ** See if `tty-defined-color-alist' needs to be terminal-local.
+   Dan says it should be, so convert it.
 
 ** emacsclient -t on the console does not work after su.  You have to
    use non-root accounts or start as root to see this.

diff --git a/lisp/frame.el b/lisp/frame.el
index ff07999f804029f8469db083e13c6b166ed22a16..e965007c8b0707e504d800e66e5bf08a451f8ff0 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -698,16 +698,15 @@ setup is for focus to follow the pointer."
     (run-hooks 'before-make-frame-hook)
     (setq frame (funcall frame-creation-function (append parameters (cdr (assq w window-system-default-frame-alist)))))
     (normal-erase-is-backspace-setup-frame frame)
-    ;; Inherit the 'environment and 'client parameters, if needed.
-    (when (eq (frame-terminal frame) (frame-terminal oldframe))
-      (let ((env (frame-parameter oldframe 'environment))
-           (client (frame-parameter oldframe 'client)))
-       (if (not (framep env))
-           (setq env oldframe))
-       (if (and env (not (assq 'environment parameters)))
-           (set-frame-parameter frame 'environment env))
-       (if (and client (not (assq 'client parameters)))
-           (set-frame-parameter frame 'client client))))
+    ;; Inherit the 'environment and 'client parameters.
+    (let ((env (frame-parameter oldframe 'environment))
+         (client (frame-parameter oldframe 'client)))
+      (if (not (framep env))
+         (setq env oldframe))
+      (if (and env (not (assq 'environment parameters)))
+         (set-frame-parameter frame 'environment env))
+      (if (and client (not (assq 'client parameters)))
+         (set-frame-parameter frame 'client client)))
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))