* README.en, README.ja, pccl.el: pccl does not support Mule 1.x.

* pccl-20.el: Update broken facility message with Emacs version
it fixes.

diff --git a/README.en b/README.en
index cede2ed..c4447ea 100644 (file)
--- a/README.en
+++ b/README.en
@@ -38,7 +38,7 @@ What's APEL?
     broken.el --- provide information of broken facilities of Emacs.
 
     pccl.el --- utility to write portable CCL program
-      pccl-om.el --- for MULE 1.*, 2.*
+      pccl-om.el --- for MULE 2.*
       pccl-20.el --- for Emacs 20/XEmacs-21-MULE
 
     alist.el: utility for Association-list

diff --git a/README.ja b/README.ja
index 510557e..0fec542 100644 (file)
--- a/README.ja
+++ b/README.ja
@@ -38,7 +38,7 @@ APEL \e$B$H$O!)\e(B
     broken.el --- Emacs \e$B$N2u$l$F$$$k5!G=$N>pJs$rDs6!$9$k\e(B
 
     pccl.el --- \e$B0\?"2DG=$J\e(B CCL \e$B%W%m%0%i%`$r=q$/$?$a$N%f!<%F%#%j%F%#!<\e(B
-      pccl-om.el --- MULE 1.*, 2.* \e$BMQ\e(B
+      pccl-om.el --- MULE 2.* \e$BMQ\e(B
       pccl-20.el --- Emacs 20/XEmacs-21-MULE \e$BMQ\e(B
 
     alist.el: \e$BO"A[%j%9%H$N$?$a$N%f!<%F%#%j%F%#!<\e(B

diff --git a/pccl-20.el b/pccl-20.el
index ea672f3..3782b7c 100644 (file)
--- a/pccl-20.el
+++ b/pccl-20.el
@@ -114,19 +114,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

diff --git a/pccl.el b/pccl.el
index b7ba56f..69c89ee 100644 (file)
--- a/pccl.el
+++ b/pccl.el
@@ -1,4 +1,4 @@
-;;; pccl.el --- Portable CCL utility for Mule 1.* and Mule 2.*
+;;; pccl.el --- Portable CCL utility for Mule 2.*
 
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
@@ -29,11 +29,11 @@
 ;; The condition for non-XEmacs mule t may be wrong.
 ;; But I don't know exact version which introduce CCL on mule.
 (broken-facility ccl-usable
-  "Emacs has CCL."
+  "Emacs has not CCL."
   (and (featurep 'mule)
        (if (featurep 'xemacs)
            (>= emacs-major-version 21)
-         t)))
+         (>= emacs-major-version 19))))
 
 (unless-broken ccl-usable
   (require 'ccl)
@@ -42,12 +42,12 @@
   (if (featurep 'mule)
       (if (featurep 'xemacs)
           (if (>= emacs-major-version 21)
-              ;; for XEmacs-21-mule
+              ;; for XEmacs 21 with mule
               (require 'pccl-20))
         (if (>= emacs-major-version 20)
             ;; for Emacs 20
             (require 'pccl-20)
-          ;; for MULE 1.* and 2.*
+          ;; for Mule 2.*
           (require 'pccl-om))))
 
   (defadvice define-ccl-program