Mercurial > hg > xemacs-beta

comparison src/console.c @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
313 313
314 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /* 314 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /*
315 Return the type of the specified console (e.g. `x' or `tty'). 315 Return the type of the specified console (e.g. `x' or `tty').
316 Value is `tty' for a tty console (a character-only terminal), 316 Value is `tty' for a tty console (a character-only terminal),
317 `x' for a console that is an X display, 317 `x' for a console that is an X display,
318 `ns' for a console that is a NeXTstep connection (not yet implemeted), 318 `ns' for a console that is a NeXTstep connection (not yet implemented),
319 `win32' for a console that is a Windows or Windows NT connection (not yet 319 `win32' for a console that is a Windows or Windows NT connection (not yet
320 implemented), 320 implemented),
321 `pc' for a console that is a direct-write MS-DOS connection (not yet 321 `pc' for a console that is a direct-write MS-DOS connection (not yet
322 implemented), 322 implemented),
323 `stream' for a stream console (which acts like a stdio stream), and 323 `stream' for a stream console (which acts like a stdio stream), and
901 stuff_char (XCONSOLE (Vcontrolling_terminal), *kbd_fetch_ptr++); 901 stuff_char (XCONSOLE (Vcontrolling_terminal), *kbd_fetch_ptr++);
902 } 902 }
903 # endif 903 # endif
904 #endif /* BSD */ 904 #endif /* BSD */
905 } 905 }
906 #ifdef HAVE_TTY
907 extern Lisp_Object Fconsole_tty_controlling_process(Lisp_Object console);
908 #endif
906 909
907 DEFUN ("suspend-console", Fsuspend_console, 0, 1, "", /* 910 DEFUN ("suspend-console", Fsuspend_console, 0, 1, "", /*
908 Suspend a console. For tty consoles, it sends a signal to suspend 911 Suspend a console. For tty consoles, it sends a signal to suspend
909 the process in charge of the tty, and removes the devices and 912 the process in charge of the tty, and removes the devices and
910 frames of that console from the display. 913 frames of that console from the display.
920 Lisp_Object devcons; 923 Lisp_Object devcons;
921 Lisp_Object framecons; 924 Lisp_Object framecons;
922 struct console *c; 925 struct console *c;
923 struct gcpro gcpro1; 926 struct gcpro gcpro1;
924 927
928 #ifdef HAVE_TTY
925 if (NILP (console)) 929 if (NILP (console))
926 console=Fselected_console(); 930 console=Fselected_console();
927 931
928 GCPRO1 (console); 932 GCPRO1 (console);
929 933
942 reset_one_console(c); 946 reset_one_console(c);
943 sys_suspend_process(XINT(Fconsole_tty_controlling_process(console))); 947 sys_suspend_process(XINT(Fconsole_tty_controlling_process(console)));
944 } 948 }
945 949
946 UNGCPRO; 950 UNGCPRO;
951 #endif
947 return Qnil; 952 return Qnil;
948 } 953 }
949 954
950 DEFUN ("resume-console", Fresume_console, 1, 1, "", /* 955 DEFUN ("resume-console", Fresume_console, 1, 1, "", /*
951 Re-initialize a previously suspended console. For tty consoles, 956 Re-initialize a previously suspended console. For tty consoles,
956 Lisp_Object devcons; 961 Lisp_Object devcons;
957 Lisp_Object framecons; 962 Lisp_Object framecons;
958 struct console *c; 963 struct console *c;
959 struct gcpro gcpro1, gcpro2, gcpro3; 964 struct gcpro gcpro1, gcpro2, gcpro3;
960 965
966 #ifdef HAVE_TTY
961 GCPRO2 (console, devcons); 967 GCPRO2 (console, devcons);
962 968
963 c = decode_console(console); 969 c = decode_console(console);
964 970
965 if (CONSOLE_TTY_P(c)) 971 if (CONSOLE_TTY_P(c))
974 } 980 }
975 init_one_console(c); 981 init_one_console(c);
976 } 982 }
977 983
978 UNGCPRO; 984 UNGCPRO;
985 #endif
979 return Qnil; 986 return Qnil;
980 } 987 }
981 988
982 DEFUN ("set-input-mode", Fset_input_mode, 3, 5, 0, /* 989 DEFUN ("set-input-mode", Fset_input_mode, 3, 5, 0, /*
983 Set mode of reading keyboard input. 990 Set mode of reading keyboard input.