diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-01-10 13:07:04 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-01-10 13:07:04 +0000 |
| commit | 052056a969b1418b0ba15b76d287667334957865 (patch) | |
| tree | 722118012e3515546d297b231e756e1a2bc82800 /lisp/frame.el | |
| parent | 6c1ec5a0505cce365e272bce948258b276b29142 (diff) | |
| download | emacs-052056a969b1418b0ba15b76d287667334957865.tar.gz | |
Revert previous change (commit mistake).
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index e886a517928..c34e5d361f2 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -648,6 +648,23 @@ The optional argument PARAMETERS specifies additional frame parameters." (make-frame `((window-system . x) (display . ,display) . ,parameters))))) +(defun make-frame-on-tty (tty type &optional parameters) + "Make a frame on terminal device TTY. +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." + ;; Use "F" rather than "f", in case the device does not exist, as + ;; far as the filesystem is concerned. + (interactive "FOpen frame on tty device: \nsTerminal type of %s: ") + (unless tty + (error "Invalid terminal device")) + (unless type + (error "Invalid terminal type")) + (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)) (defun close-display-connection (display) |