[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Have `bongo-kill' delete empty sections showing up befor
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Have `bongo-kill' delete empty sections showing up before the killed text (original patch by Daniel Jensen) |
Date: |
Fri, 06 Apr 2007 19:24:32 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux) |
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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Have `bongo-kill' delete empty sections showing up before the killed text (original patch by Daniel Jensen),
Daniel Brockman <=