diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-07-15 03:24:58 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-07-15 03:24:58 +0000 |
| commit | 0cc89026beff8f9f7b136f4464934675fe50cfcd (patch) | |
| tree | bac0be283b70cdaec9095daaeae1e3fd291c56af /lisp/term/vt100.el | |
| parent | f98955eaaa3d2c459b373a7b4c5d1176a18687d9 (diff) | |
| download | emacs-0cc89026beff8f9f7b136f4464934675fe50cfcd.tar.gz emacs-0cc89026beff8f9f7b136f4464934675fe50cfcd.tar.bz2 emacs-0cc89026beff8f9f7b136f4464934675fe50cfcd.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/term/vt100.el')
| -rw-r--r-- | lisp/term/vt100.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el index 41cce4b56fb..a3092ea42fa 100644 --- a/lisp/term/vt100.el +++ b/lisp/term/vt100.el @@ -49,7 +49,7 @@ but only if you give this command." ;;; Controlling the screen width. -(defconst vt100-wide-mode (= (screen-width) 132) +(defconst vt100-wide-mode (= (frame-width) 132) "t if vt100 is in 132-column mode.") (defun vt100-wide-mode (&optional arg) @@ -59,4 +59,4 @@ but only if you give this command." (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-screen-width (if vt100-wide-mode 132 80))) + (set-frame-width (if vt100-wide-mode 132 80))) |