Mercurial > emacs
changeset 31168:e54aee254198
(terminal-emulator): Fix args to `concat'. Now concat doesn't accept
interger.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 25 Aug 2000 07:23:42 +0000 |
| parents | dda794d912fd |
| children | 822003181e3d |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/terminal.el Fri Aug 25 07:22:07 2000 +0000 +++ b/lisp/terminal.el Fri Aug 25 07:23:42 2000 +0000 @@ -1120,8 +1120,9 @@ (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))