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

diff --git a/ChangeLog b/ChangeLog
index 17bb199..afc2d0d 100644 (file)
--- 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 (file)
--- 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