Mercurial > emacs
changeset 3234:9a789eacd9ec
(vt100-wide-mode): Add missing arg in set-frame-width.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 May 1993 04:40:38 +0000 |
| parents | 28b2df35c33e |
| children | 82c4b81ce570 |
| files | lisp/term/vt100.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/vt100.el Sat May 29 04:36:40 1993 +0000 +++ b/lisp/term/vt100.el Sat May 29 04:40:38 1993 +0000 @@ -90,12 +90,14 @@ "t if vt100 is in 132-column mode.") (defun vt100-wide-mode (&optional arg) - "Toggle 132/80 column mode for vt100s." + "Toggle 132/80 column mode for vt100s. +With positive argument, switch to 132-column mode. +With negative argument, switch to 80-column mode." (interactive "P") (setq vt100-wide-mode (if (null arg) (not vt100-wide-mode) (> (prefix-numeric-value arg) 0))) (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l")) - (set-frame-width (if vt100-wide-mode 132 80))) + (set-frame-width terminal-frame (if vt100-wide-mode 132 80))) ;;; vt100.el ends here