# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738650438 0
# Node ID 9a789eacd9ecc3f6fecdf6dbfd01278ae9f74653
# Parent  28b2df35c33e7c49cdc2bc49deca101ed600302a
(vt100-wide-mode): Add missing arg in set-frame-width.

diff -r 28b2df35c33e -r 9a789eacd9ec lisp/term/vt100.el
--- 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