From aeab1cd869ae0c01183cc4dae2003bfcdd6e44d3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Jan 2002 22:30:44 +0000
Subject: [PATCH] .

original commit: 0e42c95ac1dceb32c8d27f2f91bad86421931776
---
 collects/mred/mred.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index bf074d71..ec2487f2 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -1697,6 +1697,7 @@
 			      (set! fixed-height? #f)
 			      (set-min-height orig-hard)))
 			(update-size))]
+      [get-line-count (lambda () (and fixed-height? fixed-height-lines))]
       [update-size
        (lambda ()
 	 (let ([edit (get-editor)])