* riece-coding.el (riece--encode-coding-string): New alias.

(riece--decode-coding-string): New alias.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 240cc84..ac1fca0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-28  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-coding.el (riece--encode-coding-string): New alias.
+       (riece--decode-coding-string): New alias.
+
 2007-01-22  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-mcat.el (riece-mcat-extract): Abolished ALIST arg.

diff --git a/lisp/riece-coding.el b/lisp/riece-coding.el
index ac58fd5..7ca4c28 100644 (file)
--- a/lisp/riece-coding.el
+++ b/lisp/riece-coding.el
@@ -44,12 +44,20 @@ specifying the coding systems for decoding and encoding respectively."
                 (const nil :tag "No conversion"))
   :group 'riece-coding)
 
+(if (fboundp 'encode-coding-string)
+    (defalias 'riece--encode-coding-string 'encode-coding-string)
+  (defalias 'riece--encode-coding-string 'identity))
+
+(if (fboundp 'decode-coding-string)
+    (defalias 'riece--decode-coding-string 'decode-coding-string)
+  (defalias 'riece--decode-coding-string 'identity))
+
 (defun riece-encode-coding-string (string)
   (if (and (local-variable-p 'riece-coding-system (current-buffer))
           riece-coding-system)         ;should be nil on non-Mule environment
       (if (consp riece-coding-system)
-         (encode-coding-string string (cdr riece-coding-system))
-       (encode-coding-string string riece-coding-system))
+         (riece--encode-coding-string string (cdr riece-coding-system))
+       (riece--encode-coding-string string riece-coding-system))
     string))
 
 (defun riece-decode-coding-string (string)
@@ -62,7 +70,7 @@ specifying the coding systems for decoding and encoding respectively."
     string))
 
 (defun riece-decode-coding-string-1 (string coding-system)
-  (let* ((decoded (decode-coding-string string coding-system))
+  (let* ((decoded (riece--decode-coding-string string coding-system))
         (length (length decoded)))
     (put-text-property 0 length 'riece-decoded-encoded-string
                       string decoded)