emacs: remove unused `point-invisible-p' function

`point-invisible-p' does not work correctly when `invisible'
property is a list.  There are standard `invisible-p' and related
functions that should be used instead.
This commit is contained in:
Dmitry Kurochkin 2011-11-06 13:04:01 +04:00 committed by David Bremner
parent 8809e09dcc
commit 34aa8e8a9c

View file

@ -105,21 +105,6 @@ the user hasn't set this variable with the old or new value."
;; ;;
;; XXX: This should be a generic function in emacs somewhere, not
;; here.
(defun point-invisible-p ()
"Return whether the character at point is invisible.
Here visibility is determined by `buffer-invisibility-spec' and
the invisible property of any overlays for point. It doesn't have
anything to do with whether point is currently being displayed
within the current window."
(let ((prop (get-char-property (point) 'invisible)))
(if (eq buffer-invisibility-spec t)
prop
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
(defun notmuch-remove-if-not (predicate list) (defun notmuch-remove-if-not (predicate list)
"Return a copy of LIST with all items not satisfying PREDICATE removed." "Return a copy of LIST with all items not satisfying PREDICATE removed."
(let (out) (let (out)