Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!decvax!harpo!seismo!hao!hplabs!sri-unix!Jerry.Agin@CMU-RI-FAS.ARPA
From: Jerry.Agin@CMU-RI-FAS.ARPA@sri-unix.UUCP
Newsgroups: net.emacs
Subject: line-to-bottom-of-window
Message-ID: <4219@sri-arpa.UUCP>
Date: Mon, 15-Aug-83 10:52:00 EDT
Article-I.D.: sri-arpa.4219
Posted: Mon Aug 15 10:52:00 1983
Date-Received: Tue, 16-Aug-83 21:39:11 EDT
Lines: 23

Here's an improved version of line-to-bottom-of-window based on Hans
Koomen's message of 30 Jul 83:

(error-occurred		; window-width is already defined in some versions
    (defun (window-width 79)))
(defun
    (line-to-bottom-of-window	lines2skip chars2skip physlines
	(setq chars2skip (- (window-width) 1))
	(setq lines2skip (window-height))
	(setq physlines  (+ 1 (/ (- (current-column) 2) chars2skip)))
	(setq lines2skip (- lines2skip physlines))
	(save-excursion
	    (while (> lines2skip 0)
		   (previous-line)
		   (end-of-line)
		   (setq physlines (+ 1 (/ (- (current-column) 2) chars2skip)))
		   (setq lines2skip (- lines2skip physlines)))
	    (if (< lines2skip 0)
		(next-line))
	    (line-to-top-of-window)
	)
    )
)