[COMMIT] Avoid an error when creating a modified lang environment

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed. 

 Ar an seachtú lá de mí na Nollaig, scríobh Aidan Kehoe: 

 > No ChangeLog entry for this right now, sorry. Maybe tomorrow. 

2006-12-11  Aidan Kehoe  <kehoea at 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.


 > --- mule-cmds.el~	2006-11-29 11:24:07.000000000 +0100
 > +++ mule-cmds.el	2006-12-07 14:43:55.625000000 +0100
 > @@ -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 
 > 
 > 
 > -- 
 > Santa Maradona, priez pour moi!

-- 
Santa Maradona, priez pour moi!