* mel-ccl.el (base64-ccl-insert-encoded-file): Use

`mel-ccl-base64-lf-rev' instead of `mel-ccl-b-rev'.

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

diff --git a/ChangeLog b/ChangeLog
index dee2277..81f1c4c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+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'.
+
+       * mel.el (q-encoding-encoded-length ccl): Check
+       (featurep 'xemacs) instead of running-xemacs.
+
 1998-09-17  Tanaka Akira      <akr@jaist.ac.jp>
 
        * mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last

diff --git a/mel-ccl.el b/mel-ccl.el
index e408c51..3412a94 100644 (file)
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -1184,7 +1184,7 @@ abcdefghijklmnopqrstuvwxyz\
   (defun base64-ccl-insert-encoded-file (filename)
     "Encode contents of file FILENAME to base64, and insert the result."
     (interactive (list (read-file-name "Insert encoded file: ")))
-    (let ((coding-system-for-read 'mel-ccl-b-rev))
+    (let ((coding-system-for-read 'mel-ccl-base64-lf-rev))
       (insert-file-contents filename)))
 
   )

diff --git a/mel.el b/mel.el
index bc3bc99..f095f53 100644 (file)
--- a/mel.el
+++ b/mel.el
@@ -314,7 +314,7 @@ If MODE is nil, the result is appropriate for phrase.")
 (mel-defmethod q-encoding-encode-string ccl)
 (mel-defmethod q-encoding-decode-string ccl)
 
-(mel-defmethod q-encoding-encoded-length ccl (not running-xemacs))
+(mel-defmethod q-encoding-encoded-length ccl (not (featurep 'xemacs)))
 
 
 ;;; @ region