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

* Bug: BUG-New list implementation and cookies gives Invalid search bound [7.01trans (release_7.01h.467.g9b717)]
@ 2010-09-07 11:57 Bernt Hansen
  2010-09-07 17:13 ` Nicolas Goaziou
  0 siblings, 1 reply; 4+ messages in thread
From: Bernt Hansen @ 2010-09-07 11:57 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Nicolas Goaziou

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

^ permalink raw reply	[flat|nested] 4+ messages in thread