From: yamaoka <yamaoka>
Date: Tue, 10 Nov 1998 07:11:15 +0000 (+0000)
Subject: (next-visible-point): Copied from inv-xemacs.el.
X-Git-Tag: apel-9_10~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ac4fe09d3e6fdac796e3001b753e5d7c04d6a19;p=elisp%2Fapel.git

(next-visible-point): Copied from inv-xemacs.el.
---

diff --git a/ChangeLog b/ChangeLog
index 17bb199..afc2d0d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-11-10  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* inv-19.el (next-visible-point): Copied from inv-xemacs.el.
+
 1998-11-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* 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