From bb5b21393335d22729b5444dc90ee8b58b8c822b Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 12 Aug 2002 14:10:43 +0000
Subject: Fix for moving span duplicable prob.  Still not really working

---
 generic/pg-user.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/generic/pg-user.el b/generic/pg-user.el
index 6055ff3a..42f1e78b 100644
--- a/generic/pg-user.el
+++ b/generic/pg-user.el
@@ -759,6 +759,11 @@ If NUM is negative, move upwards.  Return new span."
       ;; When we delete the span, we want to duplicate it
       ;; to recreate in the new position.
       (set-span-property span 'duplicable 't)
+      ;; FIXME: this is faulty: moving span up gives children
+      ;; list with single nil element.  Hence liveness test
+      (mapcar (lambda (s) (if (span-live-p s)
+			      (set-span-property s 'duplicable 't)))
+	      (span-property span 'children))
       (let* ((start     (span-start span))
 	     (end       (span-end span))
 	     (contents  (buffer-substring start end))
-- 
cgit v1.2.3