CVS update by aidan xemacs/lisp/mule ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 06/12/11 13:40:03

  Modified:    xemacs/lisp/mule mule-cmds.el
Log:
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.

Revision  Changes    Path
1.778     +7 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.777
retrieving revision 1.778
diff -u -p -r1.777 -r1.778
--- ChangeLog	2006/12/06 21:28:47	1.777
+++ ChangeLog	2006/12/11 12:39:55	1.778
@@ -1,3 +1,10 @@
+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.
+
 2006-12-06  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* simple.el (what-cursor-position):



1.29      +1 -1      XEmacs/xemacs/lisp/mule/mule-cmds.el

Index: mule-cmds.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -p -r1.28 -r1.29
--- mule-cmds.el	2006/11/28 21:20:30	1.28
+++ mule-cmds.el	2006/12/11 12:40:02	1.29
@@ -1079,7 +1079,7 @@ environment.  "
        (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