From 18e440a7fc8173d4e0f0c7d7aa3f27a57c3119bd Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 14 Dec 2004 02:56:26 +0000 Subject: [PATCH] * riece-alias.el (riece-alias-abbrev-identity-string): Return a copy of a string since text properties will be set on it. (riece-alias-expand-identity-string): Ditto. --- lisp/ChangeLog | 4 ++++ lisp/riece-alias.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9379e0b..6f6eff7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-12-14 Daiki Ueno + * riece-alias.el (riece-alias-abbrev-identity-string): Return a + copy of a string since text properties will be set on it. + (riece-alias-expand-identity-string): Ditto. + * riece-emacs.el (riece-normalize-modeline-string): Don't concatenate elements in modeline string. 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 () ) -- 1.7.10.4