[bongo-patches] Have `bongo-kill' delete empty sections showing up before the killed text (original patch by Daniel Jensen)

[Daniel Brockman]

2007-04-06  Daniel Brockman  <address@hidden>

        Have `bongo-kill' delete empty sections showing up before the
        killed text (original patch by Daniel Jensen).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-06 19:24:31.000000000 +0200
+++ new-bongo/bongo.el  2007-04-06 19:24:31.000000000 +0200
@@ -7670,7 +7670,11 @@
                (let ((line-move-ignore-invisible nil))
                  (kill-region (point) (bongo-point-after-object)))))
             (t
-             (kill-line))))))
+             (kill-line)))
+      (while (and (bongo-previous-object-line 'no-error)
+                  (bongo-empty-section-p))
+        (delete-region (bongo-point-before-line)
+                       (bongo-point-after-line))))))
 
 (defun bongo-kill-region (&optional beg end)
   "In Bongo, kill all lines in the region between BEG and END.

-- 
Daniel Brockman <address@hidden>