|
From: | Luc Teirlinck |
Subject: | Re: bug in forward-visible-line: Patch |
Date: | Thu, 22 May 2003 16:46:34 -0500 (CDT) |
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))))
[Prev in Thread] | Current Thread | [Next in Thread] |