(tpu-reset-screen-size): Use set-frame-height and set-frame-width instead

of set-screen-height and set-screen-width.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b777790ceb0d94bd0b8752194d5d49cefb96fb0..5bd7efa84b0331506c9f16c94e079d192f075684 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-12-25  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
+       * emulation/tpu-edt.el (tpu-reset-screen-size): Use
+       set-frame-height and set-frame-width instead of set-screen-height
+       and set-screen-width.
+
        * vt-control.el (vt-wide, vt-narrow): Use set-frame-width instead
        of obsolete set-screen-width.
 
@@ -8,6 +12,10 @@
        * emerge.el (emerge-show-file-name): Use frame-height instead of
        obsolete screen-height.
 
+       * mail/mh-utils.el (mh-show-msg): Likewise.
+       (mh-handle-process-error): Use frame-width instead of obsolete
+       screen-width.
+
 2001-12-25  Richard M. Stallman  <rms@gnu.org>
 
        * window.el (balance-windows): Use new PRESERVE-BEFORE arg

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 30abf1392ce0dfa1eb8038fb315ba560d7ee608b..ae3ac67a57c2cc8994e6a381ec0237161182a914 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -675,8 +675,8 @@ With argument, fill and justify."
 (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'."