Mercurial > hg > xemacs-beta

comparison src/console.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3d3049ae1304
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
194 { 194 {
195 return decode_console_type (type, ERROR_ME_NOT) != 0; 195 return decode_console_type (type, ERROR_ME_NOT) != 0;
196 } 196 }
197 197
198 DEFUN ("valid-console-type-p", Fvalid_console_type_p, 1, 1, 0, /* 198 DEFUN ("valid-console-type-p", Fvalid_console_type_p, 1, 1, 0, /*
199 Given a CONSOLE-TYPE, return t if it is valid. 199 Return t if CONSOLE-TYPE is a valid console type.
200 Valid types are 'x, 'tty, and 'stream. 200 Valid types are 'x, 'tty, and 'stream.
201 */ 201 */
202 (console_type)) 202 (console_type))
203 { 203 {
204 return valid_console_type_p (console_type) ? Qt : Qnil; 204 return valid_console_type_p (console_type) ? Qt : Qnil;
214 214
215 DEFUN ("cdfw-console", Fcdfw_console, 1, 1, 0, /* 215 DEFUN ("cdfw-console", Fcdfw_console, 1, 1, 0, /*
216 Given a console, device, frame, or window, return the associated console. 216 Given a console, device, frame, or window, return the associated console.
217 Return nil otherwise. 217 Return nil otherwise.
218 */ 218 */
219 (obj)) 219 (object))
220 { 220 {
221 return CDFW_CONSOLE (obj); 221 return CDFW_CONSOLE (object);
222 } 222 }
223 223
224 224
225 DEFUN ("selected-console", Fselected_console, 0, 0, 0, /* 225 DEFUN ("selected-console", Fselected_console, 0, 0, 0, /*
226 Return the console which is currently active. 226 Return the console which is currently active.
305 { 305 {
306 return CONSOLEP (object) && CONSOLE_LIVE_P (XCONSOLE (object)) ? Qt : Qnil; 306 return CONSOLEP (object) && CONSOLE_LIVE_P (XCONSOLE (object)) ? Qt : Qnil;
307 } 307 }
308 308
309 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /* 309 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /*
310 Return the type of the specified console (e.g. `x' or `tty'). 310 Return the console type (e.g. `x' or `tty') of CONSOLE.
311 Value is `tty' for a tty console (a character-only terminal), 311 Value is `tty' for a tty console (a character-only terminal),
312 `x' for a console that is an X display, 312 `x' for a console that is an X display,
313 `mswindows' for a console that is a Windows NT/95/97 connection, 313 `mswindows' for a console that is a Windows NT/95/97 connection,
314 `pc' for a console that is a direct-write MS-DOS connection (not yet 314 `pc' for a console that is a direct-write MS-DOS connection (not yet
315 implemented), 315 implemented),
325 CHECK_CONSOLE (console); 325 CHECK_CONSOLE (console);
326 return CONSOLE_TYPE (XCONSOLE (console)); 326 return CONSOLE_TYPE (XCONSOLE (console));
327 } 327 }
328 328
329 DEFUN ("console-name", Fconsole_name, 0, 1, 0, /* 329 DEFUN ("console-name", Fconsole_name, 0, 1, 0, /*
330 Return the name of the specified console. 330 Return the name of CONSOLE.
331 */ 331 */
332 (console)) 332 (console))
333 { 333 {
334 return CONSOLE_NAME (decode_console (console)); 334 return CONSOLE_NAME (decode_console (console));
335 } 335 }
748 return Fcopy_sequence (Vconsole_list); 748 return Fcopy_sequence (Vconsole_list);
749 } 749 }
750 750
751 DEFUN ("console-device-list", Fconsole_device_list, 0, 1, 0, /* 751 DEFUN ("console-device-list", Fconsole_device_list, 0, 1, 0, /*
752 Return a list of all devices on CONSOLE. 752 Return a list of all devices on CONSOLE.
753 If CONSOLE is nil, the selected console will be used. 753 If CONSOLE is nil, the selected console is used.
754 */ 754 */
755 (console)) 755 (console))
756 { 756 {
757 return Fcopy_sequence (CONSOLE_DEVICE_LIST (decode_console (console))); 757 return Fcopy_sequence (CONSOLE_DEVICE_LIST (decode_console (console)));
758 } 758 }
778 event_stream_unselect_console (con); 778 event_stream_unselect_console (con);
779 return Qnil; 779 return Qnil;
780 } 780 }
781 781
782 DEFUN ("console-on-window-system-p", Fconsole_on_window_system_p, 0, 1, 0, /* 782 DEFUN ("console-on-window-system-p", Fconsole_on_window_system_p, 0, 1, 0, /*
783 Return non-nil if this console is on a window system. 783 Return t if CONSOLE is on a window system.
784 If CONSOLE is nil, the selected console is used.
784 This generally means that there is support for the mouse, the menubar, 785 This generally means that there is support for the mouse, the menubar,
785 the toolbar, glyphs, etc. 786 the toolbar, glyphs, etc.
786 */ 787 */
787 (console)) 788 (console))
788 { 789 {
1021 { 1022 {
1022 reset_one_console (con); 1023 reset_one_console (con);
1023 TTY_FLAGS (con).flow_control = !NILP (flow); 1024 TTY_FLAGS (con).flow_control = !NILP (flow);
1024 TTY_FLAGS (con).meta_key = meta_key; 1025 TTY_FLAGS (con).meta_key = meta_key;
1025 init_one_console (con); 1026 init_one_console (con);
1027 MARK_FRAME_CHANGED (XFRAME (CONSOLE_SELECTED_FRAME (con)));
1026 } 1028 }
1027 #endif 1029 #endif
1028 1030
1029 return Qnil; 1031 return Qnil;
1030 } 1032 }