X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=inv-19.el;h=3f99a033bc18947be4176c8a80373393073747d2;hb=961193295ae71b9e98645fe19000f638fc3d2651;hp=9bbba4299d9ce564ab7ef903956766019e1023b7;hpb=0ac4fe09d3e6fdac796e3001b753e5d7c04d6a19;p=elisp%2Fapel.git

diff --git a/inv-19.el b/inv-19.el
index 9bbba42..3f99a03 100644
--- 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