From: akr <akr>
Date: Sat, 19 Sep 1998 00:46:43 +0000 (+0000)
Subject: * mel-ccl.el (q-encoding-ccl-encoded-length): Check
X-Git-Tag: doodle-1_9_5~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd1ddd435b21e28b8f37b91bb5b7c7b85924c3f6;p=elisp%2Fflim.git

* mel-ccl.el (q-encoding-ccl-encoded-length): Check
(featurep 'xemacs) instead of running-xemacs.
---

diff --git a/ChangeLog b/ChangeLog
index 81f1c4c..0037058 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-09-19  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* mel-ccl.el (q-encoding-ccl-encoded-length): Check
+	(featurep 'xemacs) instead of running-xemacs.
+
+1998-09-19  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* mel-ccl.el (base64-ccl-insert-encoded-file): Use
 	`mel-ccl-base64-lf-rev' instead of `mel-ccl-b-rev'.
 
diff --git a/mel-ccl.el b/mel-ccl.el
index 3412a94..6ff0dc4 100644
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -1275,7 +1275,7 @@ MODE allows `text', `comment', `phrase' or nil.  Default value is
    string
    'mel-ccl-uq-rev))
 
-(unless running-xemacs
+(unless (featurep 'xemacs)
   (defun q-encoding-ccl-encoded-length (string &optional mode)
     (let ((status [nil nil nil nil nil nil nil nil nil]))
       (fillarray status nil)