diff options
| author | Eli Zaretskii <[email protected]> | 2008-10-09 16:09:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2008-10-09 16:09:02 +0000 |
| commit | c4dde5782c6f51d5247dc2f250b9d74506af1d2b (patch) | |
| tree | 360f35ed7fd7f91fad0ea4ffd633408e060dcdec | |
| parent | 2a12d736c1ea3316a69ac5fa0ac2e11fdb38838c (diff) | |
(make-frame-on-tty): Use "F" inside interactive. Support `pc'
``window-system''.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/frame.el | 8 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8dac9db69..f6c88dbfc5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-10-09 Eli Zaretskii <[email protected]> + * 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 154844a3d4..88d43fbc78 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)) |