Mercurial > hg > xemacs-beta
diff tests/automated/mule-tests.el @ 5863:15041705c196
Provide `char-code-limit', implement the GNU equivalent in terms of it.
src/ChangeLog addition:
2015-03-15 Aidan Kehoe <kehoea@parhasard.net>
* text.h: Make CHAR_CODE_LIMIT available as a #define.
* text.h (valid_ichar_p): Use it.
* text.c: Make a fixnum Vchar_code_limit available here.
* text.c (non_ascii_valid_ichar_p): Use CHAR_CODE_LIMIT.
* text.c (vars_of_text): Make `char-code-limit' available to
Lisp.
tests/ChangeLog addition:
2015-03-15 Aidan Kehoe <kehoea@parhasard.net>
* automated/mule-tests.el (test-chars):
Use char-code-limit explicitly here, instead of hardcoding the
corresponding values.
lisp/ChangeLog addition:
2015-03-16 Aidan Kehoe <kehoea@parhasard.net>
* obsolete.el (max-char):
Make this available for compatiblity with GNU, implement it in
terms of char-code-limit.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Mon, 16 Mar 2015 00:09:46 +0000 |
parents | 00fd55d635fb |
children | 1b2fdcc3cc5c |
line wrap: on
line diff
--- a/tests/automated/mule-tests.el Sun Mar 15 21:13:23 2015 +0000 +++ b/tests/automated/mule-tests.el Mon Mar 16 00:09:46 2015 +0000 @@ -46,10 +46,9 @@ If FOR-TEST-HARNESS is specified, a temporary buffer is used, and the Assert macro checks for correctness." - (let ((max (expt 2 (if (featurep 'mule) 21 8))) - (list nil) + (let ((list nil) (i 0)) - (while (< i max) + (while (< i char-code-limit) (and (not for-test-harness) (zerop (% i 1000)) (message "%d" i))