Mercurial > hg > xemacs-beta
view src/m/tad68k.h @ 4570:e6a7054a9c30
Add check-coding-systems-region, test it and others, fix some bugs.
tests/ChangeLog addition:
2008-12-28 Aidan Kehoe <kehoea@parhasard.net>
* automated/query-coding-tests.el:
Add tests for #'unencodable-char-position,
#'check-coding-systems-region, #'encode-coding-char. Remove some
debugging statements.
lisp/ChangeLog addition:
2008-12-28 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (query-coding-region):
(query-coding-string):
Make these defsubsts, they're short enough and they're called
explicitly rarely enough that it make some sense. The alternative
would be compiler macros that avoid the binding of the arguments.
(unencodable-char-position):
Document where the docstring and API are from.
Correct a special case for zero--check-argument-type returns nil
when it succeeds, we can't usefully chain its result in an and
here.
(check-coding-systems-region): New. API taken from GNU; docstring
and implementation are independent.
(encode-coding-char):
Add an optional third argument, as used by recent GNU. Document
the origen of the docstring.
(default-query-coding-region): Add a short docstring to the
non-Mule implementation of this function.
* unicode.el:
Don't set the query-coding-function property for unicode coding
systems if we're on non-mule. Unintern
unicode-query-coding-region, unicode-query-coding-skip-chars-arg
in the same context.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 28 Dec 2008 22:51:14 +0000 |
| parents | ecf1ebac70d8 |
| children |
line wrap: on
line source
/* Machine-dependent configuration for GNU Emacs for Tadpole 68k machines Copyright (C) 1986 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 2, 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 XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: FSF 19.31. */ /* The following line tells the configuration script what sort of operating system this machine is likely to run. USUAL-OPSYS="usg5-3" */ /* Data type of load average, as read out of kmem. */ /* #define LOAD_AVE_TYPE long */ /* Convert that into an integer that is 100 for a load average of 1.0 */ /* #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) */ /* SysV has alloca in the PW library */ #define LIB_STANDARD "-lPW -lc" /* Define NO_REMAP if memory segmentation makes it not work well to change the boundary between the text section and data section when Emacs is dumped. If you define this, the preloaded Lisp code will not be sharable; but that's better than failing completely. */ /* #define NO_REMAP */ /* Use Terminfo, not Termcap. */ #define TERMINFO /* TPIX extras */ #define TPIX /* used in various source files */ #undef ADDR_CORRECT /* don't need this bug fix */ #define fchmod /* we don't have fchmod() */ #define SECTION_ALIGNMENT (2048-1) /* 2k boundaries required in unexec */ #define SEGMENT_MASK (128*1024-1) /* 128k offsets required in unexec */ #define C_DEBUG_SWITCH "-O" /* build with -O (TPIX has GCC 1.34) */ #define BROKEN_TIOCGWINSZ /* Don't try to use TIOCGWINSZ. */ /* omit next three lines if no TCP installed */ #if 0 /* XEmacs */ #define select gnu_select /* avoid select() name clash */ #endif #define LIBS_SYSTEM "-lsocket" /* get TCP networking functions */