diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2002-06-08 02:01:36 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2002-06-08 02:01:36 +0000 |
| commit | d2be45680d07f16fb0dff02f65ef153aae79d06f (patch) | |
| tree | e9d756ada77e6d04cbe426f29860af90f7f86aa6 /generic | |
| parent | 0d35d47ac388a41efc9292ffab588f33b76b1d2e (diff) | |
Tweak liveness test
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/span-extent.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/span-extent.el b/generic/span-extent.el index ccbc1a93..019dd1b2 100644 --- a/generic/span-extent.el +++ b/generic/span-extent.el @@ -101,7 +101,9 @@ A span is before PT if it covers the character before PT." "Return non-nil if SPAN is live and in a live buffer." (and span (extent-live-p span) - (buffer-live-p (extent-object span)))) + (buffer-live-p (extent-object span)) + ;; PG 3.4: add third test here to see not detached. + (not (extent-detached-p span)))) (defun span-raise (span) "Function added for FSF Emacs compatibility. Do nothing here." |