Mercurial > hg > xemacs-beta
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); |