From: Kenichi Handa <handa@m17n.org>
Date: Fri, 25 Aug 2000 07:23:42 +0000 (+0000)
Subject: (terminal-emulator): Fix args to `concat'.  Now concat doesn't accept
X-Git-Tag: emacs-pretest-21.0.90~1978
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b01cef47814ff117ecedbb6fdbc9493ce8e25a3a;p=emacs.git

(terminal-emulator): Fix args to `concat'.  Now concat doesn't accept
interger.
---

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))