diff options
Diffstat (limited to 'generic/span-overlay.el')
| -rw-r--r-- | generic/span-overlay.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/span-overlay.el b/generic/span-overlay.el index 6cb572df..8289bf3d 100644 --- a/generic/span-overlay.el +++ b/generic/span-overlay.el @@ -273,4 +273,10 @@ If there are two spans overlapping then this won't work." (if l (car l) nil))) +(defsubst span-live-p (span) + "Return non-nil if SPAN is in a live buffer." + (and span + (overlay-buffer span) + (buffer-live-p (overlay-buffer span)))) + (provide 'span-overlay) |