X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-alias.el;h=f8243ff6f7914bad8358c78942916c2c99615af8;hp=d94ae856e15d429f75a18632123211d8e0372218;hb=b49c9607db850d16fcd86baf1b3070cf40092f21;hpb=6c97133a55fe59662059a61d02ab606d16a21269

diff --git a/lisp/riece-alias.el b/lisp/riece-alias.el
index d94ae85..f8243ff 100644
--- a/lisp/riece-alias.el
+++ b/lisp/riece-alias.el
@@ -143,7 +143,7 @@
 	  (setq string (cdr (car alist))
 		alist nil)
 	(setq alist (cdr alist)))))
-  string)
+  (copy-sequence string))
 
 (defun riece-alias-expand-identity-string (string)
   (let ((alist riece-alias-alist))
@@ -156,7 +156,7 @@
       (setq string (riece-alias-expand-alternate-separator string)))
   (if riece-alias-enable-percent-hack
       (setq string (riece-alias-expand-percent-hack string)))
-  string)
+  (copy-sequence string))
 
 (defun riece-alias-insinuate ()
   )