Jerry.Agin@CMU-RI-FAS.ARPA@sri-unix.UUCP (08/15/83)
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) ) ) )