From: Pavel Janík <Pavel@Janik.cz>
Date: Tue, 25 Dec 2001 11:22:35 +0000 (+0000)
Subject: (tpu-reset-screen-size): Use set-frame-height and set-frame-width instead
X-Git-Tag: ttn-vms-21-2-B4~17483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04b7de794fea92fa0b142142765630ac498d0f75;p=emacs.git

(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 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'."