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
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
