[Emacs-diffs] Changes to emacs/lisp/frame.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/10/09 16:08:13

Index: frame.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/frame.el,v
retrieving revision 1.283
retrieving revision 1.284
diff -u -b -r1.283 -r1.284
--- frame.el    3 Oct 2008 07:24:43 -0000       1.283
+++ frame.el    9 Oct 2008 16:08:13 -0000       1.284
@@ -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))