From a733c1ca7bb38b235ac3cf026db80c67eb46fe7d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 4 Oct 1999 12:50:10 +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 a8cdb96..6d8d642 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 003c37d..a80a295 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1290,11 +1290,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)) @@ -1317,7 +1319,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