[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-devel] Re: Marks
From: |
Daniel Jensen |
Subject: |
[bongo-devel] Re: Marks |
Date: |
Wed, 10 Jan 2007 15:50:52 +0100 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.92 (gnu/linux) |
And here's a fix for `bongo-kill-region'.
--- bongo-new/bongo.el 2007-01-10 15:12:04.000000000 +0100
+++ bongo-newer/bongo.el 2007-01-10 15:44:24.000000000 +0100
@@ -6918,8 +6918,12 @@
(setq end (move-marker (make-marker) end))
(save-excursion
(goto-char beg)
- (while (progn (bongo-kill-line)
- (< (point) end))
+ (while (progn
+ (when (bongo-marked-track-line-p)
+ (bongo-set-mark 'unset))
+ (let ((bongo-marks nil))
+ (bongo-kill-line))
+ (< (point) end))
(append-next-kill)))
(move-marker end nil))