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.

--- a/lisp/unicode.el	Sun Dec 28 14:55:02 2008 +0000
+++ b/lisp/unicode.el	Sun Dec 28 22:51:14 2008 +0000
@@ -678,6 +678,7 @@
 
 (loop
   for coding-system in (coding-system-list)
+  initially (unless (featurep 'mule) (return))
   do (when (eq 'unicode (coding-system-type coding-system))
        (coding-system-put coding-system 'query-coding-function
 			  #'unicode-query-coding-region)))
@@ -691,7 +692,8 @@
   (mapcar #'unintern
           '(ccl-encode-to-ucs-2 unicode-error-default-translation-table
             unicode-invalid-regexp-range frob-unicode-errors-region
-            unicode-error-translate-region)))
+            unicode-error-translate-region unicode-query-coding-region
+            unicode-query-coding-skip-chars-arg)))
 
 ;; #### UTF-7 is not yet implemented, and it's tricky to do.  There's
 ;; an implementation in appendix A.1 of the Unicode Standard, Version