Mercurial > hg > xemacs-beta

comparison src/console-tty.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
187 XSETCONSOLE (console, decode_console (console)); 187 XSETCONSOLE (console, decode_console (console));
188 CHECK_TTY_CONSOLE (console); 188 CHECK_TTY_CONSOLE (console);
189 return XCONSOLE (console); 189 return XCONSOLE (console);
190 } 190 }
191 191
192 DEFUN ("console-tty-terminal-type", Fconsole_tty_terminal_type, 192 DEFUN ("console-tty-terminal-type", Fconsole_tty_terminal_type, 0, 1, 0, /*
193 Sconsole_tty_terminal_type, 0, 1, 0 /*
194 Return the terminal type of TTY console CONSOLE. 193 Return the terminal type of TTY console CONSOLE.
195 */ ) 194 */
196 (console) 195 (console))
197 Lisp_Object console;
198 { 196 {
199 return CONSOLE_TTY_DATA (decode_tty_console (console))->terminal_type; 197 return CONSOLE_TTY_DATA (decode_tty_console (console))->terminal_type;
200 } 198 }
201 199
202 extern Lisp_Object stream_semi_canonicalize_console_connection(Lisp_Object, 200 extern Lisp_Object stream_semi_canonicalize_console_connection(Lisp_Object,
237 /************************************************************************/ 235 /************************************************************************/
238 236
239 void 237 void
240 syms_of_console_tty (void) 238 syms_of_console_tty (void)
241 { 239 {
242 defsubr (&Sconsole_tty_terminal_type); 240 DEFSUBR (Fconsole_tty_terminal_type);
243 defsymbol (&Qterminal_type, "terminal-type"); 241 defsymbol (&Qterminal_type, "terminal-type");
244 } 242 }
245 243
246 void 244 void
247 console_type_create_tty (void) 245 console_type_create_tty (void)