mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(vt100-wide-mode): Add missing arg in set-frame-width.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-29 04:40:38 +00:00
parent 14e6867cdf
commit 83317c079a
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/term/vt100.el
View file

@ -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