(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