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

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

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b777790ceb..5bd7efa84b0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-12-25  Pavel Jan,Bm(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 30abf1392ce..ae3ac67a57c 100644
--- 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'."