From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 2 May 2000 11:55:50 +0000 (+0000)
Subject: (set-language-environment): Don't
X-Git-Tag: emacs-pretest-21.0.90~4083
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9c0a50ef0270df73e5c805ee459eada5912e2ca;p=emacs.git

(set-language-environment): Don't
concat an integer (dos-codepage), use format instead.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 7aed2f96793..ad0a29c25e0 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1284,7 +1284,7 @@ specifies the character set for the major languages of Western Europe."
 	(dos-table
 	 (if (eq window-system 'pc)
 	     (intern
-	      (concat "cp" dos-codepage "-nonascii-translation-table")))))
+	      (format "cp%d-nonascii-translation-table" dos-codepage)))))
     (cond
      ((char-table-p nonascii)
       (setq nonascii-translation-table nonascii))