Mercurial > hg > xemacs-beta
comparison lisp/obsolete.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 | 1fd684db4d45 |
| children |
comparison
equal
deleted
inserted
replaced
| 5862:5b799fa6d75e | 5863:15041705c196 |
|---|---|
| 483 (make-obsolete 'remassoc "use delete* with :test #'equal, :key #'car") | 483 (make-obsolete 'remassoc "use delete* with :test #'equal, :key #'car") |
| 484 (make-obsolete 'remassq "use delete* with :test #'eq, :key #'car") | 484 (make-obsolete 'remassq "use delete* with :test #'eq, :key #'car") |
| 485 (make-obsolete 'remrassoc "use delete* with :test #'equal, :key #'cdr") | 485 (make-obsolete 'remrassoc "use delete* with :test #'equal, :key #'cdr") |
| 486 (make-obsolete 'remrassq "use delete* with :test #'eq, :key #'cdr") | 486 (make-obsolete 'remrassq "use delete* with :test #'eq, :key #'cdr") |
| 487 | 487 |
| 488 (defun max-char () | |
| 489 "Return a fixnum one less than `char-code-limit'. | |
| 490 | |
| 491 In contrast with GNU Emacs, this is not necessarily a valid character, but it | |
| 492 is an inclusive upper bound on the possible values returned by `char-int'." | |
| 493 (1- char-code-limit)) | |
| 494 (make-compatible | |
| 495 'max-char | |
| 496 "consider `char-code-limit', which gives an exclusive upper bound") | |
| 497 | |
| 488 (provide 'obsolete) | 498 (provide 'obsolete) |
| 489 ;;; obsolete.el ends here | 499 ;;; obsolete.el ends here |