update.

[elisp/apel.git] / pccl.el

diff --git a/pccl.el b/pccl.el
index b7ba56f..7f7f3a9 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.
 
@@ -26,14 +26,12 @@
 
 (require 'broken)
 
-;; 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,17 +40,17 @@
   (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
     (before accept-long-ccl-program activate)
-    "When CCL-PROGRAM is too long, internal buffer is extended automaticaly."
+    "When CCL-PROGRAM is too long, internal buffer is extended automatically."
     (let ((try-ccl-compile t)
           (prog (eval (ad-get-arg 1))))
       (ad-set-arg 1 (` '(, prog)))
@@ -73,6 +71,7 @@
 ;;; @ end
 ;;;
 
-(provide 'pccl)
+(require 'product)
+(product-provide (provide 'pccl) (require 'apel-ver))
 
 ;;; pccl.el ends here