diff options
| author | David Aspinall | 1998-12-15 14:24:09 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-12-15 14:24:09 +0000 |
| commit | b27acfc00264f2ca9265dda4c24005c9cd1ce708 (patch) | |
| tree | 6e110644f17be1d7dd2393495bf22b6897f31ddb /generic/span-extent.el | |
| parent | 3e9fc0816fc333ff80d158afa26bb70e403e6b1f (diff) | |
Fixes for FSF Emacs handling of processes, kill buffer hooks,
and live/dead overlays.
Diffstat (limited to 'generic/span-extent.el')
| -rw-r--r-- | generic/span-extent.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/span-extent.el b/generic/span-extent.el index fcc82258..597d262a 100644 --- a/generic/span-extent.el +++ b/generic/span-extent.el @@ -90,4 +90,10 @@ A span is before PT if it covers the character before PT." "Return span after SPAN with property PROP." (extent-at (extent-end-position span) nil prop nil 'after)) +(defsubst span-live-p (span) + "Return non-nil if SPAN is in a live buffer." + (and span + (extent-live-p span) + (buffer-live-p (extent-object span)))) + (provide 'span-extent) |