(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 7aed2f967934503386aad5c1cef91ad90f6b35f0..ad0a29c25e004b995ad99550cd0c3002c1708c05 100644 (file)
--- 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))