Re: bug in forward-visible-line: Patch

[Luc Teirlinck]

There was a typo in my function. New version:

(defun visiblep (&optional pos)
  "Return t if character at POS is currently visible.
POS defaults to point."
  (unless pos (setq pos (point)))
  (let ((prop (get-text-property pos 'invisible)))
    (cond
     ((null prop))
     ((eq buffer-invisibility-spec t) nil)
     ((memq prop buffer-invisibility-spec) nil)
     ((assq prop buffer-invisibility-spec) nil)
     ((listp prop)
      (catch 'found
        (dolist (var prop t)
          (if (or (memq var buffer-invisibility-spec)
                  (assq var buffer-invisibility-spec))
              (throw 'found nil)))))
     (t))))