From: akr <akr>
Date: Sat, 19 Sep 1998 00:44:13 +0000 (+0000)
Subject: * mel-ccl.el (base64-ccl-insert-encoded-file): Use
X-Git-Tag: doodle-1_9_5~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=134e48e8d677e1b73a3ef789d7c9f01529df47e2;p=elisp%2Fflim.git

* 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
--- 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
--- 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
--- 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