[Orgmode] Bug: BUG-New list implementation and cookies gives Invalid search bound [7.01trans (release_7.01h.467.g9b717)]

[Bernt Hansen]

Hi Nick,

On the following entry if you put the point after 'foo' and S-M-RET to
create a new checkbox it gives the following stack dump:

,----[ test.org ]
| * list test [/]
| [2010-09-07 Tue 07:47]
| - [ ] foo<S-M-RET here>
`----

Debugger entered--Lisp error: (error "Invalid search bound (wrong side of 
point)")
  re-search-forward("^\\([      ]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[     
]+\\*\\)\\([    ]+\\|$\\)" 26950 move)
  funcall(re-search-forward "^\\([      ]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[     
]+\\*\\)\\([    ]+\\|$\\)" 26950 move)
  (if (funcall search re bound noerr) nil (throw (quote exit) (and ... nil)))
  (unless (funcall search re bound noerr) (throw (quote exit) (and ... nil)))
  (while t (unless (funcall search re bound noerr) (throw ... ...)) (unless (or 
... ...) (throw ... ...)))
  (let ((origin ...)) (while t (unless ... ...) (unless ... ...)))
  (catch (quote exit) (let (...) (while t ... ...)))
  org-list-search-unenclosed-generic(re-search-forward "^\\([   
]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[     ]+\\*\\)\\([    ]+\\|$\\)" 26950 move)
  org-search-forward-unenclosed("^\\([  ]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[     
]+\\*\\)\\([    ]+\\|$\\)" 26950 move)
  (and (org-search-forward-unenclosed org-item-beginning-re bottom (quote 
move)) (>= (org-get-indentation) ind-min))
  (while (and (org-search-forward-unenclosed org-item-beginning-re bottom ...) 
(>= ... ind-min)) (setq post-list (cons ... post-list)))
  (let* ((ind-min ...) (begin ...) (end ...) pre-list post-list) (goto-char 
begin) (while (and ... ...) (setq pre-list ...)) (if (< ... ind-min) (setq 
pre-list ...) (setq pre-list ...)) (goto-char end) (end-of-line) (while (and 
... ...) (setq post-list ...)) (when (and ... ...) (beginning-of-line) (while 
... ...)) (append pre-list struct (reverse post-list)))
  (lambda (struct) (let* (... ... ... pre-list post-list) (goto-char begin) 
(while ... ...) (if ... ... ...) (goto-char end) (end-of-line) (while ... ...) 
(when ... ... ...) (append pre-list struct ...)))(((26945 0 #("- " 0 1 ... 1 2 
...) nil)))
  funcall((lambda (struct) (let* (... ... ... pre-list post-list) (goto-char 
begin) (while ... ...) (if ... ... ...) (goto-char end) (end-of-line) (while 
... ...) (when ... ... ...) (append pre-list struct ...))) ((26945 0 #("- " 0 1 
... 1 2 ...) nil)))
  (let ((extended ...)) (if (and outdent ...) (funcall extend extended) 
extended))
  (let* (struct (extend ...)) (goto-char end) (while 
(org-search-backward-unenclosed org-item-beginning-re begin t) (setq struct 
...)) (let (...) (if ... ... extended)))
  (save-excursion (let* (struct ...) (goto-char end) (while ... ...) (let ... 
...)))
  org-list-struct(26945 26951 26919 26950)
  (let* ((bottom ...) (struct ...) (origins ...) fixed-struct) (if (stringp 
force-bullet) (let ... ... ...) (setq fixed-struct ...)) 
(org-list-struct-apply-struct fixed-struct bottom))
  org-list-repair(nil 26919 26950)
  (lambda (text) (goto-char (org-get-item-beginning)) (indent-to-column ind) 
(insert (concat bullet ... after-bullet)) (save-excursion (insert ...)) (unless 
before-p (setq bottom ...) (let ... ... ... ...)) (when checkbox 
(org-update-checkbox-count-maybe)) (org-list-repair nil top bottom))(nil)
  funcall((lambda (text) (goto-char (org-get-item-beginning)) (indent-to-column 
ind) (insert (concat bullet ... after-bullet)) (save-excursion (insert ...)) 
(unless before-p (setq bottom ...) (let ... ... ... ...)) (when checkbox 
(org-update-checkbox-count-maybe)) (org-list-repair nil top bottom)) nil)
  (let* ((pos ...) (end-before-blank ...) (after-text ...)) (funcall insert-fun 
after-text) t)
  (cond (before-p (funcall insert-fun nil) t) ((not ...) (funcall insert-fun 
nil) t) (t (delete-horizontal-space) (let* ... ... t)))
  (let* ((true-pos ...) (top ...) (bottom ...) (bullet ...) (ind ...) (before-p 
...) (blank-lines-nb ...) (insert-fun ...)) (goto-char true-pos) (cond 
(before-p ... t) (... ... t) (t ... ...)))
  org-list-insert-item-generic(26942 t nil)
  (let ((desc-text ...)) (org-list-insert-item-generic (point) (and checkbox 
...) desc-text))
  (if (save-excursion (goto-char ...) (org-at-item-timer-p)) (progn 
(org-timer-item) t) (let (...) (org-list-insert-item-generic ... ... 
desc-text)))
  (if (or (not ...) (org-invisible-p)) nil (if (save-excursion ... ...) (progn 
... t) (let ... ...)))
  (unless (or (not ...) (org-invisible-p)) (if (save-excursion ... ...) (progn 
... t) (let ... ...)))
  org-insert-item(checkbox)
  (not (org-insert-item (quote checkbox)))
  (or force-heading (not (org-insert-item ...)))
  (if (or force-heading (not ...)) (progn (org-insert-heading force-heading) 
(save-excursion ... ... ...) (let* ... ... ...) (when 
org-provide-todo-statistics ...)))
  (when (or force-heading (not ...)) (org-insert-heading force-heading) 
(save-excursion (org-back-to-heading) (outline-previous-heading) (looking-at 
org-todo-line-regexp)) (let* (... ...) (beginning-of-line 1) (and ... ... ...)) 
(when org-provide-todo-statistics (org-update-parent-todo-statistics)))
  org-insert-todo-heading(nil)
  call-interactively(org-insert-todo-heading nil nil)



Emacs  : GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0)
 of 2010-08-14 on raven, modified by Debian
Package: Org-mode version 7.01trans (release_7.01h.467.g9b717)

-Bernt