From: ueno <ueno>
Date: Sun, 28 Jan 2007 08:24:42 +0000 (+0000)
Subject: * riece-coding.el (riece--encode-coding-string): New alias.
X-Git-Tag: riece-3_1_2~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=115c0e37d819d092b8f178eb693fbf3fe583c2ac;p=elisp%2Friece.git

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