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

diff --git a/ChangeLog b/ChangeLog
index 49a6c51..732fc08 100644 (file)
--- 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 (file)
--- 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."