From 115c0e37d819d092b8f178eb693fbf3fe583c2ac Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 28 Jan 2007 08:24:42 +0000 Subject: [PATCH] * riece-coding.el (riece--encode-coding-string): New alias. (riece--decode-coding-string): New alias. --- lisp/ChangeLog | 5 +++++ lisp/riece-coding.el | 14 +++++++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) 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 + + * riece-coding.el (riece--encode-coding-string): New alias. + (riece--decode-coding-string): New alias. + 2007-01-22 Daiki Ueno * 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) -- 1.7.10.4