diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-08-25 07:23:42 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-08-25 07:23:42 +0000 |
| commit | b01cef47814ff117ecedbb6fdbc9493ce8e25a3a (patch) | |
| tree | 371f514c0633e1eb7cadc5b7f4ffa2d200b5c6ef /lisp/terminal.el | |
| parent | e84fa7c5bc6e6fb831ef9aee711ea3b674052f61 (diff) | |
| download | emacs-b01cef47814ff117ecedbb6fdbc9493ce8e25a3a.tar.gz | |
(terminal-emulator): Fix args to `concat'. Now concat doesn't accept
interger.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 5 |
1 files 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)) |