1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 39eb9e8b9aa..6fb8d05f438 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -896,7 +896,7 @@ Run the Viper tutorial? "))
          ;; inserted at the start of the buffer, the "type C-v to
          ;; move to the next screen" might not be visible on the
          ;; first screen (n < 0).  How will the novice know what to do?
-          (let ((n (- (window-height (selected-window))
+          (let ((n (- (window-height)
                      (count-lines (point-min) (point))
                      6)))
            (if (< n 8)

diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 39eb9e8b9aa..6fb8d05f438 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el
@@ -896,7 +896,7 @@ Run the Viper tutorial? "))
896	;; inserted at the start of the buffer, the "type C-v to	896	;; inserted at the start of the buffer, the "type C-v to
897	;; move to the next screen" might not be visible on the	897	;; move to the next screen" might not be visible on the
898	;; first screen (n < 0). How will the novice know what to do?	898	;; first screen (n < 0). How will the novice know what to do?
899	(let ((n (- (window-height (selected-window))	899	(let ((n (- (window-height)
900	(count-lines (point-min) (point))	900	(count-lines (point-min) (point))
901	6)))	901	6)))
902	(if (< n 8)	902	(if (< n 8)