[bongo-patches] Allow marking invisible tracks and automatically expand sections to reveal marked tracks (suggested by Daniel Jensen)

[Daniel Brockman]

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

        Allow marking invisible tracks and automatically expand sections
        to reveal marked tracks (suggested by Daniel Jensen).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-06 15:44:28.000000000 +0200
+++ new-bongo/bongo.el  2007-04-06 15:44:28.000000000 +0200
@@ -3488,7 +3488,14 @@
          (when (listp buffer-undo-list)
            (push (list 'apply 'bongo-unmark-line
                        (bongo-point-at-bol point))
-                 buffer-undo-list)))))
+                 buffer-undo-list))
+         (let ((line-move-ignore-invisible nil))
+           (when (get-text-property (bongo-point-at-eol point) 'invisible)
+             (save-excursion
+               (bongo-goto-point point)
+               (while (bongo-line-indented-p)
+                 (bongo-backward-up-section)
+                 (bongo-expand))))))))
 
 (defun bongo-mark-line-forward (&optional n)
   "Mark the next N tracks or sections.
@@ -3677,7 +3684,8 @@
 (defun bongo-mark-track-lines-satisfying (predicate)
   "Mark all track lines satisfying PREDICATE.
 Return the number of newly-marked tracks."
-  (let ((count 0))
+  (let ((count 0)
+        (line-move-ignore-invisible nil))
     (save-excursion
       (goto-char (point-min))
       (while (and (not (eobp))

-- 
Daniel Brockman <address@hidden>