(next-visible-point): Cancel last change.

diff --git a/ChangeLog b/ChangeLog
index 87cf1d8..417d24e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,10 +3,6 @@
        * README.en, README.ja, pccl-20.el: Note that pccl-20 is not
        for XEmacs 20.
 
-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 9bbba42..3f99a03 100644 (file)
--- a/inv-19.el
+++ b/inv-19.el
@@ -48,13 +48,11 @@
 
 (defun next-visible-point (pos)
   (save-excursion
-    (if (save-excursion
-         (goto-char pos)
-         (eq (following-char) ?\n))
-       (setq pos (1+ pos))
+    (goto-char (next-single-property-change pos 'invisible))
+    (if (eq (following-char) ?\n)
+       (forward-char)
       )
-    (or (next-single-property-change pos 'invisible)
-       (point-max))))
+    (point)))
 
 
 ;;; @ end