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/wyse50.el | |
| parent | f98955eaaa3d2c459b373a7b4c5d1176a18687d9 (diff) | |
| download | emacs-0cc89026beff8f9f7b136f4464934675fe50cfcd.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/term/wyse50.el')
| -rw-r--r-- | lisp/term/wyse50.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el index 6430a41ce2e..81a7b321142 100644 --- a/lisp/term/wyse50.el +++ b/lisp/term/wyse50.el @@ -48,12 +48,12 @@ With an argument N, move to the Nth line from the bottom of the window." (defun wyse-50-toggle-screen-width () "Alternate between 80 and 132 columns." (interactive) - (if (<= (screen-width) 80) + (if (<= (frame-width) 80) (progn (send-string-to-terminal "\e`;") - (set-screen-width 131)) + (set-frame-width 131)) (send-string-to-terminal "\e`:") - (set-screen-width 79))) + (set-frame-width 79))) ;;; Define the escape sequences for the function keys. @@ -162,7 +162,7 @@ With an argument N, move to the Nth line from the bottom of the window." (setq kill-emacs-hook (function (lambda () (interactive) (send-string-to-terminal - (concat "\ea23R" (1+ (screen-width)) "C\eG0"))))) + (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) (defun enable-arrow-keys () "To be called by term-setup-hook. Overrides 6 Emacs standard keys |