changeset 42324:e6593c956da9

(tpu-reset-screen-size): Use set-frame-height and set-frame-width instead of set-screen-height and set-screen-width.
author Pavel Janík <Pavel@Janik.cz>
date Tue, 25 Dec 2001 11:20:28 +0000
parents c86cd54b5c50
children 1098ecab5aed
files lisp/emulation/tpu-edt.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el	Tue Dec 25 11:18:39 2001 +0000
+++ b/lisp/emulation/tpu-edt.el	Tue Dec 25 11:20:28 2001 +0000
@@ -675,8 +675,8 @@
 (defun tpu-reset-screen-size (height width)
   "Sets the screen size."
   (interactive "nnew screen height: \nnnew screen width: ")
-  (set-screen-height height)
-  (set-screen-width width))
+  (set-frame-height (selected-frame) height)
+  (set-frame-width (selected-frame) width))
 
 (defun tpu-toggle-newline-and-indent nil
   "Toggle between 'newline and indent' and 'simple newline'."