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

[Aidan Kehoe]

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

--- 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!