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

interger.
This commit is contained in:
Kenichi Handa 2000-08-25 07:23:42 +00:00
parent e84fa7c5bc
commit b01cef4781

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