# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1223568493 0
# Node ID 6b0f820343fdd2ab1005f03731c446dd88c5682c
# Parent  945a82ab6a010cc9c296171578a9cfa93b411430
(make-frame-on-tty): Use "F" inside interactive.  Support `pc'
``window-system''.

diff -r 945a82ab6a01 -r 6b0f820343fd lisp/frame.el
--- a/lisp/frame.el	Thu Oct 09 13:46:25 2008 +0000
+++ b/lisp/frame.el	Thu Oct 09 16:08:13 2008 +0000
@@ -630,12 +630,16 @@
 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))