From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Bug: BUG-New list implementation and cookies gives Invalid search bound [7.01trans (release_7.01h.467.g9b717)] Date: Tue, 07 Sep 2010 07:57:34 -0400 Message-ID: <874oe1u5ox.fsf@gollum.intra.norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=38650 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OswqB-00010Z-8V for emacs-orgmode@gnu.org; Tue, 07 Sep 2010 07:59:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Oswo2-0006JK-1P for emacs-orgmode@gnu.org; Tue, 07 Sep 2010 07:57:43 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:62753) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Oswo1-0006JE-Tx for emacs-orgmode@gnu.org; Tue, 07 Sep 2010 07:57:41 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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 `---- 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