From b01cef47814ff117ecedbb6fdbc9493ce8e25a3a Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Fri, 25 Aug 2000 07:23:42 +0000
Subject: [PATCH] (terminal-emulator): Fix args to `concat'.  Now concat
 doesn't accept interger.

---
 lisp/terminal.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 59b4fb7769b..7b2f4d76adb 100644
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -1120,8 +1120,9 @@ subprocess started."
   (if (null height) (setq height (- (window-height (selected-window)) 1)))
   (terminal-mode)
   (setq te-width width te-height height)
-  (setq te-terminal-name (concat te-terminal-name-prefix te-width
-				 te-height))
+  (setq te-terminal-name (concat te-terminal-name-prefix
+				 (number-to-string te-width)
+				 (number-to-string te-height)))
   (setq mode-line-buffer-identification
 	(list (format "Emacs terminal %dx%d: %%b  " te-width te-height)
 	      'te-pending-output-info))
-- 
2.39.2