# HG changeset patch
# User aidan
# Date 1165840802 0
# Node ID 7a1c4c52360358636e841ea1b142ec00c25e702b
# Parent  01830ac74073568c5b669b96f158923ae2d3d00b
[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.

diff -r 01830ac74073 -r 7a1c4c523603 lisp/ChangeLog
--- 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):
diff -r 01830ac74073 -r 7a1c4c523603 lisp/mule/mule-cmds.el
--- 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