# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 904671721 0
# Node ID 0e28574df9afc2df73ef135465d88a072d994998
# Parent  ecc4641bf00a11a93e129b1752619d3730ec3f7b
(current-language-environment): Fix setter function.

diff -r ecc4641bf00a -r 0e28574df9af lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue Sep 01 13:26:41 1998 +0000
+++ b/lisp/international/mule-cmds.el	Tue Sep 01 17:42:01 1998 +0000
@@ -1037,7 +1037,7 @@
 
 (defcustom current-language-environment "English"
   "The last language environment specified with `set-language-environment'."
-  :set 'set-language-environment
+  :set (lambda (symbol value) (set-language-environment value))
   :initialize 'custom-initialize-default
   :group 'mule
   :type 'string)