From c4dde5782c6f51d5247dc2f250b9d74506af1d2b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 9 Oct 2008 16:09:02 +0000 Subject: [PATCH] (make-frame-on-tty): Use "F" inside interactive. Support `pc' ``window-system''. --- lisp/ChangeLog | 3 +++ lisp/frame.el | 8 ++++++-- 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 + * 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)) -- 2.39.5