diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2008-10-09 16:09:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2008-10-09 16:09:02 +0000 |
| commit | c4dde5782c6f51d5247dc2f250b9d74506af1d2b (patch) | |
| tree | 360f35ed7fd7f91fad0ea4ffd633408e060dcdec /lisp/frame.el | |
| parent | 2a12d736c1ea3316a69ac5fa0ac2e11fdb38838c (diff) | |
| download | emacs-c4dde5782c6f51d5247dc2f250b9d74506af1d2b.tar.gz | |
(make-frame-on-tty): Use "F" inside interactive. Support `pc'
``window-system''.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 6 insertions, 2 deletions
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)) |