From 9316c6181b5a1c0b5953157b81c6d72afb7f1f1e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 19 Jun 2000 10:06:31 +0000 Subject: [PATCH] (wl-demo): Don't use `end-of-line' with arg 0. It cannot arrive at the beginning of the buffer under old Emacsen. --- wl/ChangeLog | 5 +++++ wl/wl-demo.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index adad030..1c0dca8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-06-19 Katsumi Yamaoka + + * wl-demo.el (wl-demo): Don't use `end-of-line' with arg 0. It + cannot arrive at the beginning of the buffer under old Emacsen. + 2000-06-19 Yuuichi Teranishi * wl-address.el (wl-address-ldap-search): diff --git a/wl/wl-demo.el b/wl/wl-demo.el index 52c8da7..aae932a 100644 --- a/wl/wl-demo.el +++ b/wl/wl-demo.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <2000-06-15 20:04:29 yamaoka> +;; Time-stamp: <2000-06-19 18:40:58 yamaoka> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -247,8 +247,8 @@ Optional IMAGE-TYPE overrides the variable `wl-demo-display-logo'." (setq rest (- wh (count-lines (point-min) (point)) 1)) (let ((lw (current-column)) (lh (count-lines (point-min) (point)))) - (while (not (bobp)) - (end-of-line 0) + (while (progn (beginning-of-line) (not (bobp))) + (backward-char) (setq lw (max lw (current-column)))) (indent-rigidly (point) (point-max) (max 0 (/ (- ww lw) 2))))) (insert-char ?\n (max 0 (/ (- rest 4) 2))) -- 1.7.10.4