From: yamaoka <yamaoka>
Date: Wed, 24 May 2000 09:56:41 +0000 (+0000)
Subject: (encode-coding-string, decode-coding-string): Return a copy of string.
X-Git-Tag: emacs-21_0_90-apel-10_2-1~7
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=5d979bc6a3710f0bb5fdd58833efad788c905c6a

(encode-coding-string, decode-coding-string): Return a copy of string.
---

diff --git a/ChangeLog b/ChangeLog
index 49a6c51..732fc08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-24  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* pces-raw.el (encode-coding-string, decode-coding-string): Return
+	a copy of string.
+
 2000-04-25  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* EMU-ELS (emu-modules): Don't include `pccl-20' for XEmacs 20 and
diff --git a/pces-raw.el b/pces-raw.el
index 54c751d..ada032c 100644
--- a/pces-raw.el
+++ b/pces-raw.el
@@ -29,11 +29,11 @@
 
 (defun decode-coding-string (string coding-system)
   "Decode the STRING which is encoded in CODING-SYSTEM."
-  string)
+  (copy-sequence string))
 
 (defun encode-coding-string (string coding-system)
   "Encode the STRING as CODING-SYSTEM."
-  string)
+  (copy-sequence string))
 
 (defun decode-coding-region (start end coding-system)
   "Decode the text between START and END which is encoded in CODING-SYSTEM."