[bongo-devel] Re: Marks

[Daniel Jensen]

Daniel Brockman <address@hidden> writes:

>>> We talked about automatically displaying hidden tracks
>>> when they are marked. What are your thoughts on that now?
>>
>> I don't think we did anything about this.
>
> Sorry.  I just installed a patch.
>
> Let me know if I screwed up.

I get this:

Debugger entered--Lisp error: (error "This section is not collapsed")
  signal(error ("This section is not collapsed"))
  error("This section is not collapsed")
  (if (bongo-collapsed-header-line-p) nil (error "This section is not 
collapsed"))
  (unless (bongo-collapsed-header-line-p) (error "This section is not 
collapsed"))
  bongo-expand()
  (while (bongo-line-indented-p) (bongo-backward-up-section) (bongo-expand))
  (save-excursion (bongo-goto-point point) (while (bongo-line-indented-p) 
(bongo-backward-up-section) (bongo-expand)))
  (progn (save-excursion (bongo-goto-point point) (while ... ... ...)))
  (if (get-text-property (bongo-point-at-eol point) (quote invisible)) (progn 
(save-excursion ... ...)))
  (when (get-text-property (bongo-point-at-eol point) (quote invisible)) 
(save-excursion (bongo-goto-point point) (while ... ... ...)))
  (let ((line-move-ignore-invisible nil)) (when (get-text-property ... ...) 
(save-excursion ... ...)))
  (cond ((bongo-header-line-p point) (bongo-mark-region ... ...)) 
((bongo-unmarked-track-line-p point) (let ... ... ... ...) (when ... ...) (let 
... ...)))
  bongo-mark-line()

After trying with (when (bongo-collasped-header-line-p) ...):

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  goto-char(nil)
  (while (progn (bongo-snap-to-object-line ...) (< ... end)) (bongo-mark-line) 
(goto-char (bongo-point-after-object)))
  (save-excursion (goto-char beg) (while (progn ... ...) (bongo-mark-line) 
(goto-char ...)))
  bongo-mark-region(16135 16491)
  (cond ((bongo-header-line-p point) (bongo-mark-region ... ...)) 
((bongo-unmarked-track-line-p point) (let ... ... ... ...) (when ... ...) (let 
... ...)))
  bongo-mark-line()
  (while (progn (bongo-snap-to-object-line ...) (< ... end)) (bongo-mark-line) 
(goto-char (bongo-point-after-object)))
  (save-excursion (goto-char beg) (while (progn ... ...) (bongo-mark-line) 
(goto-char ...)))
  bongo-mark-region(15796 16056)
  (cond ((bongo-header-line-p point) (bongo-mark-region ... ...)) 
((bongo-unmarked-track-line-p point) (let ... ... ... ...) (when ... ...) (let 
... ...)))
  bongo-mark-line()
  (while (progn (bongo-snap-to-object-line ...) (< ... end)) (bongo-mark-line) 
(goto-char (bongo-point-after-object)))
  (save-excursion (goto-char beg) (while (progn ... ...) (bongo-mark-line) 
(goto-char ...)))
  bongo-mark-region(15477 15755)
  (cond ((bongo-header-line-p point) (bongo-mark-region ... ...)) 
((bongo-unmarked-track-line-p point) (let ... ... ... ...) (when ... ...) (let 
... ...)))
  bongo-mark-line()
  (progn (bongo-mark-line) (setq count (+ count 1)))

It looks like the same error when I tried with the old hack I wrote.