* pces.el: Require `pces-raw' if file-coding feature is not

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