From 134e48e8d677e1b73a3ef789d7c9f01529df47e2 Mon Sep 17 00:00:00 2001 From: akr Date: Sat, 19 Sep 1998 00:44:13 +0000 Subject: [PATCH] * 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. --- ChangeLog | 8 ++++++++ mel-ccl.el | 2 +- mel.el | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index dee2277..81f1c4c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +1998-09-19 Tanaka Akira + + * 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 * 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 -- 1.7.10.4