aboutsummaryrefslogtreecommitdiff
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/span-extent.el4
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."