From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Dec 1994 15:37:22 +0000 (+0000)
Subject: (scroll_region_cost): New variable.
X-Git-Tag: emacs-19.34~5595
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be7cd44fe1fb88aab5c3bb6a6fe64727f1b3181f;p=emacs.git

(scroll_region_cost): New variable.
(calculate_costs): Put scroll region overhead in scroll_region_cost.
---

diff --git a/src/term.c b/src/term.c
index aa9731d3faf..3258191bfce 100644
--- a/src/term.c
+++ b/src/term.c
@@ -54,6 +54,8 @@ int line_ins_del_ok;		/* Terminal can insert and delete lines */
 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 @@ calculate_costs (frame)
 
   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