# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754115728 0
# Node ID 8b31cff022671d586c3b52b1bb04673000b0babe
# Parent  60fa14264c3be6fb7cd282b820e5dc9702d2865a
(count-lines): In selective-display case,
adjust value if end is not at bol.

diff -r 60fa14264c3b -r 8b31cff02267 lisp/simple.el
--- a/lisp/simple.el	Wed Nov 24 01:53:58 1993 +0000
+++ b/lisp/simple.el	Wed Nov 24 04:35:28 1993 +0000
@@ -332,7 +332,11 @@
 		(setq done (+ 40 done)))
 	      (while (re-search-forward "[\n\C-m]" nil t 1)
 		(setq done (+ 1 done)))
-	      done)
+	      (goto-char (point-max))
+	      (if (and (/= start end)
+		       (not (bolp)))
+		  (1+ done)
+		done))
 	  (- (buffer-size) (forward-line (buffer-size))))))))
 
 (defun what-cursor-position ()