Mercurial > hg > xemacs-beta
view src/m/ibm370aix.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 | 3ecd8885ac67 |
children |
line wrap: on
line source
/* Synched up with: FSF 19.31. */ /* m/ file for IBM 370 running AIX. */ #include "ibmps2-aix.h" #define AIX /* these were defined in "ibmps2-aix.h" */ #undef INTEL386 #undef aix386 #undef TEXT_START #undef SEGMENT_MASK #undef DATA_SECTION_ALIGNMENT #define TEXT_START 0 #define SEGMENT_MASK 0 #define DATA_SECTION_ALIGNMENT 0x00001000 #undef LOAD_AVE_CVT #undef LOAD_AVE_TYPE /* Data type of load average, as read out of kmem. */ #define LOAD_AVE_CVT(x) (int)(((double) (x)) * 100.0 / 1.0) #define LOAD_AVE_TYPE double #undef LIBS_MACHINE #define LIBS_MACHINE #undef LD_SWITCH_MACHINE #define LD_SWITCH_MACHINE "-xa"