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