Re: bug in forward-visible-line: Patch

[Luc Teirlinck]

This would be a corrected version of line-move-invisible:

(defun line-move-invisible (pos)
  "Return non-nil if the character after POS is currently invisible."
  (let ((prop (get-char-property pos 'invisible)))
    (cond
     ((null prop) nil)
     ((eq buffer-invisibility-spec t))
     ((memq prop buffer-invisibility-spec))
     ((assq prop buffer-invisibility-spec))
     ((listp prop)
      (catch 'found
        (dolist (var prop)
          (if (or (memq var buffer-invisibility-spec)
                  (assq var buffer-invisibility-spec))
              (throw 'found t)))))
     (t nil))))

I could double-check this carefully (I did not) and send a diff, but
as Stefan pointed out, it might be better to implement this function
in C.

Sincerely,

Luc.