From 0ac4fe09d3e6fdac796e3001b753e5d7c04d6a19 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 10 Nov 1998 07:11:15 +0000 Subject: [PATCH] (next-visible-point): Copied from inv-xemacs.el. --- ChangeLog | 4 ++++ inv-19.el | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 17bb199..afc2d0d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-11-10 Katsumi Yamaoka + + * inv-19.el (next-visible-point): Copied from inv-xemacs.el. + 1998-11-08 MORIOKA Tomohiko * poe-18.el (eval-and-compile): Moved from poe.el. diff --git a/inv-19.el b/inv-19.el index 3f99a03..9bbba42 100644 --- a/inv-19.el +++ b/inv-19.el @@ -48,11 +48,13 @@ (defun next-visible-point (pos) (save-excursion - (goto-char (next-single-property-change pos 'invisible)) - (if (eq (following-char) ?\n) - (forward-char) + (if (save-excursion + (goto-char pos) + (eq (following-char) ?\n)) + (setq pos (1+ pos)) ) - (point))) + (or (next-single-property-change pos 'invisible) + (point-max)))) ;;; @ end -- 1.7.10.4