comparison src/emacs.c @ 251:677f6a0ee643 r20-5b24

Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 51092a27c943
children 084402c475ba
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
56 #ifndef APOLLO_SR10 56 #ifndef APOLLO_SR10
57 #include <default_acl.h> 57 #include <default_acl.h>
58 #endif 58 #endif
59 #endif 59 #endif
60 60
61 #if defined (_WIN32) 61 #if defined (WINDOWSNT)
62 #include <windows.h> 62 #include <windows.h>
63 #endif 63 #endif
64 64
65 /* For PATH_EXEC */ 65 /* For PATH_EXEC */
66 #include "paths.h" 66 #include "paths.h"
606 char *term; 606 char *term;
607 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) 607 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
608 { 608 {
609 close (0); 609 close (0);
610 close (1); 610 close (1);
611 if (open (term, O_RDWR, 2) < 0) 611 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
612 fatal ("%s: %s", term, strerror (errno)); 612 fatal ("%s: %s", term, strerror (errno));
613 dup (0); 613 dup (0);
614 if (! isatty (0)) 614 if (! isatty (0))
615 fatal ("%s: not a tty", term); 615 fatal ("%s: not a tty", term);
616 616
1823 catchlist = NULL; /* Important! Otherwise free_cons() calls in 1823 catchlist = NULL; /* Important! Otherwise free_cons() calls in
1824 condition_case_unwind() may lead to GC death. */ 1824 condition_case_unwind() may lead to GC death. */
1825 unbind_to (0, Qnil); /* this closes loadup.el */ 1825 unbind_to (0, Qnil); /* this closes loadup.el */
1826 purify_flag = 0; 1826 purify_flag = 0;
1827 run_temacs_argc = nargs + 1; 1827 run_temacs_argc = nargs + 1;
1828 #ifdef DEBUG_XEMACS 1828 #ifdef REPORT_PURE_USAGE
1829 report_pure_usage (1, 0); 1829 report_pure_usage (1, 0);
1830 #else 1830 #else
1831 report_pure_usage (0, 0); 1831 report_pure_usage (0, 0);
1832 #endif 1832 #endif
1833 LONGJMP (run_temacs_catch, 1); 1833 LONGJMP (run_temacs_catch, 1);