Mercurial > emacs

diff lisp/term/wyse50.el @ 779:c2dbf1fe0506

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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