Mercurial > emacs
diff lisp/term/wyse50.el @ 779:c2dbf1fe0506
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 15 Jul 1992 03:24:58 +0000 |
parents | 078fa30e9292 |
children | 67773a6ede4e |
line wrap: on
line diff
--- a/lisp/term/wyse50.el Wed Jul 15 02:24:58 1992 +0000 +++ b/lisp/term/wyse50.el Wed Jul 15 03:24:58 1992 +0000 @@ -48,12 +48,12 @@ (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 @@ (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