Re: How to test :invisible property?

[Lennart Borgman (gmail)]

Lennart Borgman (gmail) wrote:
> Lennart Borgman (gmail) wrote:
> > Lennart Borgman (gmail) wrote:
> > > Is there an elisp function that tests the :invisible property against 
> > > buffer-invisibility-spec?
> >
> > I mean the  'invisible property
>
> There is actually a function in simple.el:
>
>   (defun line-move-invisible-p (pos)
>   "Return non-nil if the character after POS is currently invisible."
>
> Maybe this should be mentioned in
>
>   (info "(elisp) Invisible Text")


But that function seems not correct. The "(or is list with members in 
common)" in the docs string of buffer-invisibility-spec does not seem to 
be implemented.

BTW that doc string is not quite correct.

Here is a new version of the function above which I believe is correct:

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