* 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 (file)
--- 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 (file)
--- 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)