(make-frame-on-tty): Use "F" inside interactive. Support `pc'

``window-system''.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8dac9db69478960e0973e4b219b4c450e82e4d8..f6c88dbfc536f55f9182bd0214cc696695337bea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-10-09  Eli Zaretskii  <eliz@gnu.org>
 
+       * frame.el (make-frame-on-tty): Use "F" inside interactive.  Support
+       `pc' ``window-system''.
+
        * progmodes/compile.el (compilation-start): Resurrect the version
        for systems that don't support asynchronous subprocesses.
 

diff --git a/lisp/frame.el b/lisp/frame.el
index 154844a3d45f7f0ae434d1a41c00224a0f658526..88d43fbc786e2ca3b8492ecc3097baf2e47ca9e0 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -630,12 +630,16 @@ TTY should be the file name of the tty device to use.  TYPE
 should be the terminal type string of TTY, for example \"xterm\"
 or \"vt100\".  The optional third argument PARAMETERS specifies
 additional frame parameters."
-  (interactive "fOpen frame on tty device: \nsTerminal type of %s: ")
+  ;; Use "F" rather than "f" to avoid reading from devices that don't
+  ;; like that.
+  (interactive "FOpen frame on tty device: \nsTerminal type of %s: ")
   (unless tty
     (error "Invalid terminal device"))
   (unless type
     (error "Invalid terminal type"))
-  (make-frame `((window-system . nil) (tty . ,tty) (tty-type . ,type) . ,parameters)))
+  (if (eq window-system 'pc)
+      (make-frame `((window-system . pc) (tty . ,tty) (tty-type . ,type) . ,parameters))
+    (make-frame `((window-system . nil) (tty . ,tty) (tty-type . ,type) . ,parameters))))
 
 (declare-function x-close-connection "xfns.c" (terminal))