(terminal-emulator): Fix args to `concat'. Now concat doesn't accept
authorKenichi Handa <handa@m17n.org>
Fri, 25 Aug 2000 07:23:42 +0000 (07:23 +0000)
committerKenichi Handa <handa@m17n.org>
Fri, 25 Aug 2000 07:23:42 +0000 (07:23 +0000)
interger.

lisp/terminal.el

index 59b4fb7..7b2f4d7 100644 (file)
@@ -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))