From: yamaoka Date: Thu, 28 May 1998 22:20:15 +0000 (+0000) Subject: mime-view.el (mime-preview-scroll-down-entity) was modified. X-Git-Tag: semi-1_4_6~4 X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=commitdiff_plain;h=01cc4a3048a384f247d9282e38a1a0fcbc3d2f85;hp=f71418783e3c1f7c4864afb5e5ee08b9637a0ed3 mime-view.el (mime-preview-scroll-down-entity) was modified. --- diff --git a/ChangeLog b/ChangeLog index b5b0ea9..dc5b3c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-05-29 Katsumi Yamaoka + + * mime-view.el (mime-preview-scroll-down-entity): Use (not (bobp)) + instead of (> (point) 1). + 1998-05-25 Katsumi Yamaoka * mime-play.el (mime-preview-play-current-entity): Don't widen. diff --git a/mime-view.el b/mime-view.el index fcfc391..eab86e7 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1328,7 +1328,7 @@ If reached to (point-min), it calls function registered in variable (let (point) (save-excursion (catch 'tag - (while (> (point) 1) + (while (not (bobp)) (if (setq point (previous-single-property-change (point) 'mime-view-entity))