# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788456242 0
# Node ID 4fd304db9216f332e8de278959745da6a61f9f36
# Parent  033119853eab63602b66214747ee848030e5f923
(scroll_region_cost): New variable.
(calculate_costs): Put scroll region overhead in scroll_region_cost.

diff -r 033119853eab -r 4fd304db9216 src/term.c
--- a/src/term.c	Mon Dec 26 15:36:56 1994 +0000
+++ b/src/term.c	Mon Dec 26 15:37:22 1994 +0000
@@ -54,6 +54,8 @@
 int char_ins_del_ok;		/* Terminal can insert and delete chars */
 int scroll_region_ok;		/* Terminal supports setting the
 				   scroll window */
+int scroll_region_cost;		/* Cost of setting a scroll window,
+				   measured in characters */
 int memory_below_frame;		/* Terminal remembers lines
 				   scrolled off bottom */
 int fast_clear_end_of_line;	/* Terminal has a `ce' string */
@@ -1090,12 +1092,14 @@
 
   FRAME_COST_BAUD_RATE (frame) = baud_rate;
 
+  scroll_region_cost = string_cost (f);
 #ifdef HAVE_X_WINDOWS
   if (FRAME_X_P (frame))
     {
       do_line_insertion_deletion_costs (frame, 0, ".5*", 0, ".5*",
 					0, 0,
 					x_screen_planes (frame));
+      scroll_region_cost = 0;
       return;
     }
 #endif