Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 3737:7a1c4c523603

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 f6f6fc9eb269
children 6b2ef948e140
line wrap: on
line diff
--- 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