Mercurial > hg > xemacs-beta
comparison lisp/unicode.el @ 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 | 1d74a1d115ee |
children | e0a8715fdb1f |
comparison
equal
deleted
inserted
replaced
4569:80e0588fb42f | 4570:e6a7054a9c30 |
---|---|
676 (values nil ranges) | 676 (values nil ranges) |
677 (values t nil))))) | 677 (values t nil))))) |
678 | 678 |
679 (loop | 679 (loop |
680 for coding-system in (coding-system-list) | 680 for coding-system in (coding-system-list) |
681 initially (unless (featurep 'mule) (return)) | |
681 do (when (eq 'unicode (coding-system-type coding-system)) | 682 do (when (eq 'unicode (coding-system-type coding-system)) |
682 (coding-system-put coding-system 'query-coding-function | 683 (coding-system-put coding-system 'query-coding-function |
683 #'unicode-query-coding-region))) | 684 #'unicode-query-coding-region))) |
684 | 685 |
685 (unless (featurep 'mule) | 686 (unless (featurep 'mule) |
689 ;; alternative approach would be to fix make-docfile.c to be able to read | 690 ;; alternative approach would be to fix make-docfile.c to be able to read |
690 ;; Lisp. | 691 ;; Lisp. |
691 (mapcar #'unintern | 692 (mapcar #'unintern |
692 '(ccl-encode-to-ucs-2 unicode-error-default-translation-table | 693 '(ccl-encode-to-ucs-2 unicode-error-default-translation-table |
693 unicode-invalid-regexp-range frob-unicode-errors-region | 694 unicode-invalid-regexp-range frob-unicode-errors-region |
694 unicode-error-translate-region))) | 695 unicode-error-translate-region unicode-query-coding-region |
696 unicode-query-coding-skip-chars-arg))) | |
695 | 697 |
696 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's | 698 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's |
697 ;; an implementation in appendix A.1 of the Unicode Standard, Version | 699 ;; an implementation in appendix A.1 of the Unicode Standard, Version |
698 ;; 2.0, but I don't know its licensing characteristics. | 700 ;; 2.0, but I don't know its licensing characteristics. |
699 | 701 |