* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-30   Tanaka Akira  <akr@m17n.org>
+
+       * 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  <ueno@unixuser.org>
 
        * liece-ctcp.el: Remove autoload cookies of
 2000-10-19   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-ctcp.el: Remove autoload cookies of

diff --git a/lisp/liece.el b/lisp/liece.el
index 97c3b23..e0711ef 100644 (file)
--- 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)
        (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)))
          (vertical-motion
           (- (or liece-scroll-step
                  (1+ (/ (liece-window-height window) 2)))