Reimplement and extend support for terminal-local environment variables.

* lisp/termdev.el: New file.  Move terminal parameter-related functions
  here from frame.el.
  (terminal-getenv, with-terminal-environment): Reimplement and extend.
  (terminal-setenv, terminal-setenv-internal): New functions.

* lisp/frame.el (make-frame-on-tty, framep-on-display, suspend-frame):
  Extend doc string, update parameter names.
  (terminal-id, terminal-parameter-alist, terminal-parameters)
  (terminal-parameter-p, terminal-parameter, set-terminal-parameter)
  (terminal-handle-delete-frame, terminal-getenv, terminal-getenv)
  (with-terminal-environment): Move to termdev.el.

* lisp/loadup.el: Load termdev as well.
* lisp/Makefile.in (lisp, shortlisp): Add termdev.elc.
* lisp/makefile.MPW (shortlisp): Ditto.

* lisp/ebuff-menu.el (electric-buffer-menu-mode-map): Bind C-z to
  `suspend-frame', not `suspend-emacs'.
* lisp/echistory.el (electric-history-map): Ditto.
* lisp/ebrowse.el (ebrowse-electric-list-mode-map): Ditto.
* lisp/ebrowse.el (ebrowse-electric-position-mode-map): Ditto.

* lisp/startup.el (normal-splash-screen): Use `save-buffers-kill-display'
  instead of `save-buffers-kill-emacs'.

* lisp/x-win.el (x-initialize-window-system): Add 'global-ok option to
  `terminal-getenv'.

* src/term.c (suspend-tty): Update doc string.

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

3 files changed, 14 insertions, 12 deletions

diff --git a/src/Makefile.in b/src/Makefile.in
index 2799b3ff46b..e0ba8a25b66 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -722,6 +722,7 @@ lisp= \
         MOUSE_SUPPORT \
         ${lispsource}emacs-lisp/float-sup.elc \
         ${lispsource}frame.elc \
+        ${lispsource}termdev.elc \
         ${lispsource}help.elc \
         ${lispsource}indent.elc \
         ${lispsource}isearch.elc \
@@ -819,6 +820,7 @@ shortlisp= \
         ../lisp/emacs-lisp/float-sup.elc \
         ../lisp/format.elc \
         ../lisp/frame.elc \
+        ../lisp/termdev.elc \
         ../lisp/help.elc \
         ../lisp/indent.elc \
         ../lisp/isearch.elc \
diff --git a/src/print.c b/src/print.c
index 20c359f9b69..3a1fe336b56 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1343,7 +1343,7 @@ print_preprocess (obj)
           for (i = 0; i < print_number_index; i++)
             if (EQ (PRINT_NUMBER_OBJECT (Vprint_number_table, i), obj))
               {
-                /* OBJ appears more than once.  Let's remember that.  */
+                /* OBJ appears more than once.  Let's remember that.  */
                 PRINT_NUMBER_STATUS (Vprint_number_table, i) = Qt;
                 return;
               }
diff --git a/src/term.c b/src/term.c
index 234be4a9271..679def93c72 100644
--- a/src/term.c
+++ b/src/term.c
@@ -3270,23 +3270,23 @@ Display devices are represented by their integer identifiers. */)
 
 DEFUN ("suspend-tty", Fsuspend_tty, Ssuspend_tty, 0, 1, 0,
        doc: /* Suspend the terminal device TTY.
-The terminal is restored to its default state, and Emacs ceases all
-access to the terminal device.  Frames that use the device are not
-deleted, but input is not read from them and if they change, their
-display is not updated.
 
-TTY may be a display id, a frame, or nil for the display device of the
-currently selected frame.
+The device is restored to its default state, and Emacs ceases all
+access to the tty device.  Frames that use the device are not deleted,
+but input is not read from them and if they change, their display is
+not updated.
+
+TTY may be a terminal id, a frame, or nil for the terminal device of
+the currently selected frame.
 
 This function runs `suspend-tty-functions' after suspending the
 device.  The functions are run with one arg, the id of the suspended
-display device.
+terminal device.
 
-`suspend-tty' does nothing if it is called on an already suspended
-device.
+`suspend-tty' does nothing if it is called on a device that is already
+suspended.
 
-A suspended terminal device may be resumed by calling `resume-tty' on
-it. */)
+A suspended tty may be resumed by calling `resume-tty' on it.  */)
   (tty)
      Lisp_Object tty;
 {