X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pccl-20.el;h=b95244a19fa6210564d6d3f55ceca70707cecb9f;hb=065d5e891e96c79ee394a1fd5d4a01f2301f7439;hp=ea672f359576b733524d34cae5f62521cb57fbfb;hpb=d0d940b877a5f59866d1f6be2887b1334c1a041d;p=elisp%2Fapel.git

diff --git a/pccl-20.el b/pccl-20.el
index ea672f3..b95244a 100644
--- a/pccl-20.el
+++ b/pccl-20.el
@@ -80,8 +80,7 @@ CODING-SYSTEM, DECODER and ENCODER must be symbol."
       (defun ccl-execute (ccl-prog reg)
 	"\
 Execute CCL-PROG with registers initialized by REGISTERS.
-If CCL-PROG is symbol, it is dereferenced.
-\[Emacs 20.3 emulating function]"
+If CCL-PROG is symbol, it is dereferenced."
 	(ccl-vector-program-execute
 	 (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
 	 reg)))
@@ -92,8 +91,7 @@ If CCL-PROG is symbol, it is dereferenced.
       (defun ccl-execute-on-string (ccl-prog status string &optional contin)
 	"\
 Execute CCL-PROG with initial STATUS on STRING.
-If CCL-PROG is symbol, it is dereferenced.
-\[Emacs 20.3 emulating function]"
+If CCL-PROG is symbol, it is dereferenced."
 	(ccl-vector-program-execute-on-string
 	 (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog)
 	 status string contin)))
@@ -114,19 +112,19 @@ If CCL-PROG is symbol, it is dereferenced.
   )
 
 (broken-facility ccl-execute-eof-block-on-encoding-null
-  "Emacs forgets executing CCL_EOF_BLOCK with encoding on empty input."
+  "Emacs forgets executing CCL_EOF_BLOCK with encoding on empty input. (Fixed on Emacs 20.4)"
   (equal (encode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
 
 (broken-facility ccl-execute-eof-block-on-encoding-some
-  "Emacs forgets executing CCL_EOF_BLOCK with encoding on non-empty input."
+  "Emacs forgets executing CCL_EOF_BLOCK with encoding on non-empty input. (Fixed on Emacs 20.3)"
   (equal (encode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
 
 (broken-facility ccl-execute-eof-block-on-decoding-null
-  "Emacs forgets executing CCL_EOF_BLOCK with decoding on empty input."
+  "Emacs forgets executing CCL_EOF_BLOCK with decoding on empty input. (Fixed on Emacs 20.4)"
   (equal (decode-coding-string "" 'test-ccl-eof-block-cs) "[EOF]"))
 
 (broken-facility ccl-execute-eof-block-on-decoding-some
-  "Emacs forgets executing CCL_EOF_BLOCK with decoding on non-empty input."
+  "Emacs forgets executing CCL_EOF_BLOCK with decoding on non-empty input. (Fixed on Emacs 20.4)"
   (equal (decode-coding-string "a" 'test-ccl-eof-block-cs) "a[EOF]"))
 
 (broken-facility ccl-execute-eof-block-on-encoding
@@ -151,6 +149,7 @@ If CCL-PROG is symbol, it is dereferenced.
 ;;; @ end
 ;;;
 
-(provide 'pccl-20)
+(require 'product)
+(product-provide (provide 'pccl-20) (require 'apel-ver))
 
 ;;; pccl-20.el ends here