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

``window-system''.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8dac9db694..f6c88dbfc53 100644
--- 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 154844a3d45..88d43fbc786 100644
--- 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))