From: akr Date: Thu, 30 Nov 2000 06:16:37 +0000 (+0000) Subject: * liece.el (liece-refresh-buffer-window): Force to display a last X-Git-Tag: liece-1_4_7~36 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6abd66a08b3ffeaf7492b5611aa57751979b7573;p=elisp%2Fliece.git * liece.el (liece-refresh-buffer-window): Force to display a last non-empty line in last line in a window on Emacs 21. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 68ab7be..6f7e1bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-11-30 Tanaka Akira + + * liece.el (liece-refresh-buffer-window): Force to display a last + non-empty line in last line in a window on Emacs 21. + 2000-10-19 Daiki Ueno * liece-ctcp.el: Remove autoload cookies of diff --git a/lisp/liece.el b/lisp/liece.el index 97c3b23..e0711ef 100644 --- a/lisp/liece.el +++ b/lisp/liece.el @@ -888,7 +888,11 @@ Only used from `liece-before-insert-functions'." (select-window window) (goto-char (point-max)) (if (null liece-scroll-step) - (recenter (- (liece-window-height window) 1)) + (progn + ;; skip last empty lines + (while (memq (char-before) '(?\n ?\t ?\ )) + (backward-char)) + (recenter -1)) (vertical-motion (- (or liece-scroll-step (1+ (/ (liece-window-height window) 2)))