From d2be45680d07f16fb0dff02f65ef153aae79d06f Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sat, 8 Jun 2002 02:01:36 +0000
Subject: Tweak liveness test

---
 generic/span-extent.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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."
-- 
cgit v1.2.3