[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Make `bongo-mark-track-lines-satisfying' only consider t
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Make `bongo-mark-track-lines-satisfying' only consider track lines (suggested by Daniel Jensen) |
Date: |
Fri, 06 Apr 2007 18:40:27 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux) |
2007-04-06 Daniel Brockman <address@hidden>
Make `bongo-mark-track-lines-satisfying' only consider track lines
(suggested by Daniel Jensen).
diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el 2007-04-06 18:40:25.000000000 +0200
+++ new-bongo/bongo.el 2007-04-06 18:40:25.000000000 +0200
@@ -3696,10 +3696,10 @@
(goto-char (point-min))
(while (and (not (eobp))
(bongo-snap-to-object-line 'no-error))
- (unless (bongo-marked-track-line-p)
- (when (funcall predicate)
- (bongo-mark-line)
- (setq count (+ count 1))))
+ (when (and (bongo-unmarked-track-line-p)
+ (funcall predicate))
+ (bongo-mark-line)
+ (setq count (+ count 1)))
(goto-char (bongo-point-after-line))))
count))
--
Daniel Brockman <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Make `bongo-mark-track-lines-satisfying' only consider track lines (suggested by Daniel Jensen),
Daniel Brockman <=