mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-12-23 01:44:52 +01:00
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:
parent
8809e09dcc
commit
34aa8e8a9c
1 changed files with 0 additions and 15 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue