From c0900943a859d2ae3049dcb23fdec2db986574cc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 18 Jan 2001 10:37:49 +0000 Subject: [PATCH] * inv-19.el (next-visible-point): Return the value of `point-max' when the position of next `invisible' property change is not found. --- ChangeLog | 5 +++++ inv-19.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index caab817..68f0f06 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-01-18 Katsumi Yamaoka + + * inv-19.el (next-visible-point): Return the value of `point-max' + when the position of next `invisible' property change is not found. + 2001-01-15 Yuuichi Teranishi * poe-18.el (floor): Removed. diff --git a/inv-19.el b/inv-19.el index 11074bf..a05cc71 100644 --- a/inv-19.el +++ b/inv-19.el @@ -45,11 +45,11 @@ (get-text-property pos 'invisible)) (defun next-visible-point (pos) - (save-excursion - (goto-char (next-single-property-change pos 'invisible)) - (if (eq (following-char) ?\n) - (forward-char)) - (point))) + (if (setq pos (next-single-property-change pos 'invisible)) + (if (eq ?\n (char-after pos)) + (1+ pos) + pos) + (point-max))) ;;; @ end -- 1.7.10.4