[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp frame.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp frame.el |
Date: |
Sat, 10 Jan 2009 13:06:24 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp frame.el,
Chong Yidong <=