[Emacs-diffs] emacs/lisp frame.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/10 13:06:24

Modified files:
        lisp           : frame.el 

Log message:
        Revert previous change (commit mistake).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/frame.el?cvsroot=emacs&r1=1.292&r2=1.293

Patches:
Index: frame.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/frame.el,v
retrieving revision 1.292
retrieving revision 1.293
diff -u -b -r1.292 -r1.293
--- frame.el    10 Jan 2009 13:04:37 -0000      1.292
+++ frame.el    10 Jan 2009 13:06:23 -0000      1.293
@@ -648,6 +648,23 @@
         (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)