From ffea32040a637d0486861e51e282f1fa6318e0ac Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 4 Oct 1999 12:50:28 +0000 Subject: [PATCH] (mime-preview-move-to-next): Attempt to go to the next page if the return value of `next-single-property-change' is greater than `point-max'. (mime-preview-move-to-previous): Don't move backward at the beginning of the buffer; attempt to go to the previous page if the return value of `previous-single-property-change' is less than `point-min'. --- ChangeLog | 10 ++++++++++ mime-view.el | 9 ++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 13288e5..f2766a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +1999-10-04 Katsumi Yamaoka + + * mime-view.el (mime-preview-move-to-next): Attempt to go to the + next page if the return value of `next-single-property-change' is + greater than `point-max'. + (mime-preview-move-to-previous): Don't move backward at the + beginning of the buffer; attempt to go to the previous page if the + return value of `previous-single-property-change' is less than + `point-min'. + 1999-09-29 MORIOKA Tomohiko * mime-view.el (mime-display-multipart/mixed): Share cell of diff --git a/mime-view.el b/mime-view.el index ba04e57..8e8a1c6 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1291,11 +1291,13 @@ If there is no upper entity, call function `mime-preview-quit'." If there is no previous entity, it calls function registered in variable `mime-preview-over-to-previous-method-alist'." (interactive) - (while (null (get-text-property (point) 'mime-view-entity)) + (while (and (not (bobp)) + (null (get-text-property (point) 'mime-view-entity))) (backward-char) ) (let ((point (previous-single-property-change (point) 'mime-view-entity))) - (if point + (if (and point + (>= point (point-min))) (if (get-text-property (1- point) 'mime-view-entity) (goto-char point) (goto-char (1- point)) @@ -1318,7 +1320,8 @@ variable `mime-preview-over-to-next-method-alist'." (forward-char) ) (let ((point (next-single-property-change (point) 'mime-view-entity))) - (if point + (if (and point + (<= point (point-max))) (progn (goto-char point) (if (null (get-text-property point 'mime-view-entity)) -- 1.7.10.4