Mercurial > hg > xemacs-beta
comparison src/tooltalk.c @ 349:8429d81ab209 r21-1-4
Import from CVS: tag r21-1-4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:54:28 +0200 |
parents | e11d67e05968 |
children | 182f72e8cd0d |
comparison
equal
deleted
inserted
replaced
348:0843b9714b95 | 349:8429d81ab209 |
---|---|
1254 /* This function can GC */ | 1254 /* This function can GC */ |
1255 char *retval; | 1255 char *retval; |
1256 Lisp_Object lp; | 1256 Lisp_Object lp; |
1257 Lisp_Object fil; | 1257 Lisp_Object fil; |
1258 | 1258 |
1259 | |
1260 /* tt_open() messes with our signal handler flags (at least when no | |
1261 ttsessions is running on the machine), therefore we save the | |
1262 actions and restore them after the call */ | |
1263 #ifdef HAVE_SIGPROCMASK | |
1264 { | |
1265 struct sigaction ActSIGQUIT; | |
1266 struct sigaction ActSIGINT; | |
1267 struct sigaction ActSIGCHLD; | |
1268 sigaction (SIGQUIT, NULL, &ActSIGQUIT); | |
1269 sigaction (SIGINT, NULL, &ActSIGINT); | |
1270 sigaction (SIGCHLD, NULL, &ActSIGCHLD); | |
1271 #endif | |
1259 retval = tt_open (); | 1272 retval = tt_open (); |
1273 #ifdef HAVE_SIGPROCMASK | |
1274 sigaction (SIGQUIT, &ActSIGQUIT, NULL); | |
1275 sigaction (SIGINT, &ActSIGINT, NULL); | |
1276 sigaction (SIGCHLD, &ActSIGCHLD, NULL); | |
1277 } | |
1278 #endif | |
1279 | |
1280 | |
1260 if (tt_ptr_error (retval) != TT_OK) | 1281 if (tt_ptr_error (retval) != TT_OK) |
1261 return; | 1282 return; |
1262 | 1283 |
1263 Vtooltalk_fd = make_int (tt_fd ()); | 1284 Vtooltalk_fd = make_int (tt_fd ()); |
1264 | 1285 |