From: akr <akr>
Date: Thu, 12 Nov 1998 04:10:04 +0000 (+0000)
Subject: * FLIM-ELS: require 'pccl.
X-Git-Tag: chao-1_12_2~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cbad057f0697601333fb3a1e844a0d89c7902086;p=elisp%2Fflim.git

* FLIM-ELS: require 'pccl.
(flim-modules): Check CCL availability by broken facility.
---

diff --git a/ChangeLog b/ChangeLog
index 7bba930..9065118 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-10  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* FLIM-ELS: require 'pccl.
+	(flim-modules): Check CCL availability by broken facility.
+
 1998-11-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* eword-decode.el (eword-decode-structured-field-body): New
diff --git a/FLIM-ELS b/FLIM-ELS
index c778f88..44fdc70 100644
--- a/FLIM-ELS
+++ b/FLIM-ELS
@@ -19,11 +19,8 @@
   (setq flim-modules (cons 'mel-b-el flim-modules))
   )
 
-(if (and (featurep 'mule)
-	 (not (or (and (boundp 'MULE) MULE)
-		  (and (featurep 'xemacs) (< emacs-major-version 21))
-		  )))
-    (setq flim-modules (cons 'mel-b-ccl (cons 'mel-q-ccl flim-modules)))
-  )
+(require 'pccl)
+(unless-broken ccl-usable
+  (setq flim-modules (cons 'mel-b-ccl (cons 'mel-q-ccl flim-modules))))
 
 ;;; FLIM-ELS ends here