Mercurial > emacs
view src/s/irix6-5.h @ 109157:76b683a5339b
Minor zone.el fixes for bug#6483.
Zone did not like the intangible newlines etc in the gomoku buffer.
* lisp/play/zone.el (top-level): Do not require timer, tabify, or cl.
(zone-shift-left): Ignore intangibility, and any errors from forward-char.
(zone-shift-right): Remove no-op end-of-line. Ignore intangibility.
(zone-pgm-putz-with-case): Use upcase-region rather than inserting,
deleting, and copying text properties.
(zone-line-specs, zone-pgm-stress): Check forward-line exit status.
(zone-pgm-rotate): Handle odd buffers like that of gomoku, where getting
to point-max is hard.
(zone-fret, zone-fill-out-screen): Replace cl's do with dotimes.
(zone-fill-out-screen): Ignore intangibility.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 06 Jul 2010 21:16:27 -0700 |
parents | 6799ec1a7188 |
children | 63e95c4f28f0 |
line wrap: on
line source
/* Definitions file for GNU Emacs running on Silicon Graphics Irix system 6.5. Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #define IRIX6_5 /* used in m/iris4d */ #include "usg5-4.h" #undef _longjmp /* use system versions, not conservative aliases */ #undef _setjmp #define SETPGRP_RELEASES_CTTY #ifdef SYSTEM_TYPE #undef SYSTEM_TYPE #endif #define SYSTEM_TYPE "irix" #ifdef SETUP_SLAVE_PTY #undef SETUP_SLAVE_PTY #endif /* thomas@mathematik.uni-bremen.de says this is needed. */ /* Make process_send_signal work by "typing" a signal character on the pty. */ #define SIGNALS_VIA_CHARACTERS /* Letter to use in finding device name of first pty, if system supports pty's. 'a' means it is /dev/ptya0 */ #undef FIRST_PTY_LETTER #define FIRST_PTY_LETTER 'q' /* No need to use sprintf to get the tty name--we get that from _getpty. */ #define PTY_TTY_NAME_SPRINTF /* No need to get the pty name at all. */ #ifdef PTY_NAME_SPRINTF #undef PTY_NAME_SPRINTF #endif #define PTY_NAME_SPRINTF #ifdef emacs char *_getpty(); #endif /* We need only try once to open a pty. */ #define PTY_ITERATION /* Here is how to do it. */ #define PTY_OPEN \ { \ struct sigaction ocstat, cstat; \ char * name; \ sigemptyset(&cstat.sa_mask); \ cstat.sa_handler = SIG_DFL; \ cstat.sa_flags = 0; \ sigaction(SIGCLD, &cstat, &ocstat); \ name = _getpty (&fd, O_RDWR | O_NDELAY, 0600, 0); \ sigaction(SIGCLD, &ocstat, (struct sigaction *)0); \ if (name == 0) \ return -1; \ if (fd < 0) \ return -1; \ if (fstat (fd, &stb) < 0) \ return -1; \ strcpy (pty_name, name); \ } /* Ulimit(UL_GMEMLIM) is busted... */ #define ULIMIT_BREAK_VALUE 0x14000000 /* Tell process_send_signal to use VSUSP instead of VSWTCH. */ #define PREFER_VSUSP #define NARROWPROTO 1 #if _MIPS_SZLONG == 64 /* -mabi=64 (gcc) or -64 (MIPSpro) */ #define _LP64 /* lisp.h takes care of the rest */ #endif /* _MIPS_SZLONG */ #undef SA_RESTART #undef TIOCSIGSEND /* defined in usg5-4.h */ /* Tested on Irix 6.5. SCM worked on earlier versions. */ #define GC_SETJMP_WORKS 1 #define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS /* arch-tag: ad0660e0-acf8-46ae-b866-4f3df5b1101b (do not change this comment) */ /* arch-tag: d7ad9ec2-54ad-4b2f-adf2-0070c5c63e83 (do not change this comment) */