diff options
| -rw-r--r-- | generic/pg-user.el | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |