X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e9bffc61f201755de9ed46ef389379a9028f68e7..7c6317a0498b6690ea668909ac012cb45e6f809b:/lisp/reposition.el

diff --git a/lisp/reposition.el b/lisp/reposition.el
index d2bde0a452..532c9adb98 100644
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -1,11 +1,10 @@
 ;;; reposition.el --- center a Lisp function or comment on the screen
 
-;; Copyright (C) 1991, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009, 2010, 2011  Free Software Foundation, Inc.
+;; Copyright (C) 1991, 1994, 2001-2016 Free Software Foundation, Inc.
 
 ;; Author: Michael D. Ernst <mernst@theory.lcs.mit.edu>
 ;; Created: Jan 1991
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
 
 ;; This file is part of GNU Emacs.
 
@@ -62,7 +61,7 @@ first comment line visible (if point is in a comment)."
 	 (here (point))
 	 ;; change this name once I've gotten rid of references to ht.
 	 ;; this is actually the number of the last screen line
-	 (ht (- (window-height (selected-window)) 2))
+	 (ht (- (window-height) 2))
 	 (line (repos-count-screen-lines (window-start) (point)))
 	 (comment-height
 	  ;; The call to max deals with the case of cursor between defuns.