From 16c64e19b5f708f26061d37a62f17d922d844304 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Dec 1998 23:18:37 +0000 Subject: [PATCH] * (mime-preview-move-to-next): Don't move forward at the end of buffer. --- ChangeLog | 5 +++++ mime-view.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index e640749..1c993a6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-12-24 Katsumi Yamaoka + + * mime-view.el (mime-preview-move-to-next): Don't move forward at + the end of buffer. + 1998-12-03 Katsumi Yamaoka * mime-edit.el (mime-edit-user-agent-value): Include diff --git a/mime-view.el b/mime-view.el index f3c2577..08f9e0e 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1214,7 +1214,8 @@ variable `mime-preview-over-to-previous-method-alist'." If there is no previous entity, it calls function registered in variable `mime-preview-over-to-next-method-alist'." (interactive) - (while (null (get-text-property (point) 'mime-view-entity)) + (while (and (not (eobp)) + (null (get-text-property (point) 'mime-view-entity))) (forward-char) ) (let ((point (next-single-property-change (point) 'mime-view-entity))) -- 1.7.10.4