Mercurial > hg > xemacs-beta
changeset 3737:7a1c4c523603
[xemacs-hg @ 2006-12-11 12:39:55 by aidan]
2006-12-11 Aidan Kehoe <kehoea@parhasard.net>
* mule/mule-cmds.el (create-variant-language-environment):
Avoid an error when creating a modified lang environment; use the
old environment's string name rather than its value when calling
replace-in-string.
| author | aidan |
|---|---|
| date | Mon, 11 Dec 2006 12:40:02 +0000 |
| parents | 01830ac74073 |
| children | 23dd32cedb6a |
| files | lisp/ChangeLog lisp/mule/mule-cmds.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 11 12:22:52 2006 +0000 +++ b/lisp/ChangeLog Mon Dec 11 12:40:02 2006 +0000 @@ -1,3 +1,10 @@ +2006-12-11 Aidan Kehoe <kehoea@parhasard.net> + + * mule/mule-cmds.el (create-variant-language-environment): + Avoid an error when creating a modified lang environment; use the + old environment's string name rather than its value when calling + replace-in-string. + 2006-12-06 Aidan Kehoe <kehoea@parhasard.net> * simple.el (what-cursor-position):
--- a/lisp/mule/mule-cmds.el Mon Dec 11 12:22:52 2006 +0000 +++ b/lisp/mule/mule-cmds.el Mon Dec 11 12:40:02 2006 +0000 @@ -1079,7 +1079,7 @@ (replace-match (format " (%s)" (upcase (symbol-name (coding-system-name coding-system)))) - nil nil langenv) + nil nil (car langenv)) (format "%s (%s)" (car langenv) (upcase (symbol-name (coding-system-name coding-system))))) (destructive-plist-to-alist