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

[elisp/apel.git] / inv-19.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