[Orgmode] Agenda column view fails with "Invalid search bound (wrong side of point)"

[Bernt Hansen]

Hi Carsten,

I'm using org-mode from commit 001e6df25c75e2566ad9c083341b4906e86cd8d8.

In the agenda I'm doing a search for tasks with no effort estimate using

,----
| Headlines with TAGS match: Effort={^$}/!NEXT
| Press `C-u r' to search again with new search string
`----

and entering column mode to enter effort amounts.  For some of the NEXT
tasks it works fine but for others (this is the 3rd one this morning)
when I'm entering the estimate using a quick insert key (3 = 0:30) I get
the following error:

    Invalid search bound (wrong side of point)

The agenda is then displayed without column mode and hitting 'g'
refreshes it with column mode displayed so I can continue entering
estimates for the rest of the tasks.

Debug output follows from uncompiled org-mode sources.  Hopefully this
is enough to understand what is going on.  I'm not sure why some tasks
work and some don't.

-Bernt


------------------------------------------------------------------------

Debugger entered--Lisp error: (error "Invalid search bound (wrong side of 
point)")
  re-search-backward("^\\*+ " #<marker at 33317 in todo.org> t)
  (while (re-search-backward re beg t) (setq sumpos (match-beginning 0) 
last-level level level (org-outline-level) val (org-entry-get nil property) 
valflag (and val ...)) (cond (... ... ... ... ... ...) (... ... ...) (t ...)))
  (save-excursion (goto-char beg) (setq end (condition-case nil ... ...)) 
(goto-char end) (while (re-search-backward re beg t) (setq sumpos ... 
last-level level level ... val ... valflag ...) (cond ... ... ...)))
  (let* ((re ...) (lmax 30) (lsum ...) (lflag ...) (level 0) (ass ...) (format 
...) (printf ...) (beg org-columns-top-level-marker) last-level val valflag 
flag end sumpos sum-alist sum str str1 useval) (save-excursion (goto-char beg) 
(setq end ...) (goto-char end) (while ... ... ...)))
  org-columns-compute("Effort")
  (progn (org-columns-compute (car fm)))
  (if (and (nth 4 fm) (setq a ...) (equal ... ...)) (progn (org-columns-compute 
...)))
  (when (and (nth 4 fm) (setq a ...) (equal ... ...)) (org-columns-compute (car 
fm)))
  (if (equal (car fm) "CLOCKSUM") (org-clock-sum) (when (and ... ... ...) 
(org-columns-compute ...)))
  (while (setq fm (pop fmt)) (if (equal ... "CLOCKSUM") (org-clock-sum) (when 
... ...)))
  (save-restriction (widen) (org-unmodified (remove-text-properties ... ... 
...)) (goto-char (point-min)) (org-columns-get-format-and-top-level) (while 
(setq fm ...) (if ... ... ...)))
  (save-excursion (save-restriction (widen) (org-unmodified ...) (goto-char 
...) (org-columns-get-format-and-top-level) (while ... ...)))
  (save-current-buffer (set-buffer (or ... b)) (save-excursion 
(save-restriction ... ... ... ... ...)))
  (with-current-buffer (or (buffer-base-buffer b) b) (save-excursion 
(save-restriction ... ... ... ... ...)))
  (while (setq f (pop files)) (setq b (find-buffer-visiting f)) 
(with-current-buffer (or ... b) (save-excursion ...)))
  (let ((files org-agenda-contributing-files) (org-columns-begin-marker ...) 
(org-columns-top-level-marker ...) f fm a b) (while (setq f ...) (setq b ...) 
(with-current-buffer ... ...)))
  org-agenda-colview-compute((("ITEM" "Task" 40 nil nil nil) ("Effort" 
"Estimated Effort" 17 ":" add_times nil) ("CLOCKSUM" "CLOCKSUM" nil nil nil 
nil)))
  (progn (org-agenda-colview-compute org-columns-current-fmt-compiled))
  (if org-agenda-columns-compute-summary-properties (progn 
(org-agenda-colview-compute org-columns-current-fmt-compiled)))
  (when org-agenda-columns-compute-summary-properties 
(org-agenda-colview-compute org-columns-current-fmt-compiled))
  (let (fmt cache maxwidths m p a d) (cond (... ... ...) (... ...) (... ...) 
(... ... ...)) (setq fmt (or fmt org-columns-default-format)) (org-set-local 
(quote org-columns-current-fmt) fmt) (org-columns-compile-format fmt) (when 
org-agenda-columns-compute-summary-properties (org-agenda-colview-compute 
org-columns-current-fmt-compiled)) (save-excursion (goto-char ...) (while ... 
... ...) (when cache ... ... ... ... ... ...)))
  org-agenda-columns()
  (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) (buffer 
...) (org-agenda-contributing-files ...)) (org-agenda-columns))
  (cond ((equal major-mode ...) (org-columns-eval ...) (let* ... ...)) (t (let 
... ... ...) (org-move-to-column col) (and ... ...)))
  (let* ((col ...) (key ...) (value ...) (bol ...) (eol ...) (pom ...) 
(line-overlays ...) (allowed ...) nval) (when (integerp nth) (setq nth ...) (if 
... ...)) (when (equal key "ITEM") (error "Cannot edit item headline from 
here")) (unless (or allowed ...) (error "Allowed values for this property have 
not been defined")) (if (member key ...) (setq nval ...) (if previous ...) 
(cond ... ... ...)) (cond (... ... ...) (t ... ... ...)))
  org-columns-next-allowed-value(nil 2)
  (lambda nil (interactive) (org-columns-next-allowed-value nil 2))()
  call-interactively((lambda nil (interactive) (org-columns-next-allowed-value 
nil 2)))