# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 916276835 0
# Node ID 7914a815df8b93bc91455cb7ff90b60bba60e4ef
# Parent  7e291dea614173f067286b9f7257fd858b24fe3b
(describe-language-environment):
Don't alter input-method-alist.

diff -r 7e291dea6141 -r 7914a815df8b lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jan 14 01:20:35 1999 +0000
+++ b/lisp/international/mule-cmds.el	Thu Jan 14 01:20:35 1999 +0000
@@ -1379,7 +1379,7 @@
 	      (princ-list "  " str)
 	      (terpri))))
       (let ((input-method (get-language-info language-name 'input-method))
-	    (l input-method-alist))
+	    (l (copy-sequence input-method-alist)))
 	(princ "Input methods")
 	(when input-method
 	  (princ (format " (default, %s)" input-method))