Bug report: agenda column mode failure

[Hannes Schulz <schulz@ais.uni-bonn.de>]

Hi everyone,

when I put my agenda in column mode, I would like to change
efforts and the like. 

When I do some action it instantly drops out of column mode.

I'm using  org-mode from git 7.9 (release_7.9-163-gdfe33f).

The same phenomenon occurs with a minimal config:


% ------------- minimal-org.el -----
(setq debug-on-error t
    debug-on-signal nil
    debug-on-quit nil)
(add-to-list 'load-path "~/checkout/git/org-mode/lisp")
(require 'org-install)

% ------------- minimal.org -----
#+PROPERTY: Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00
#+COLUMNS: %40ITEM(Task) %17Effort(Estimated Effort){:} %CLOCKSUM
* Heading
** TODO Task 1
   SCHEDULED: <2012-08-30 Do>
** date
   <2012-08-30 Do>

%------------end------------

I run like this:

$ emacs -Q -l minimal-org.el minimal.org

then I add minimal.org to the agenda files, create the agenda, put it in column
mode, and use shift-right in the effort column.

This yields the following backtrace:

Debugger entered--Lisp error: (error "Marker does not point anywhere")
  goto-char(#<marker in no buffer>)
  (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 ... val ... valflag ...) (cond ... ... ...)))
  (let* ((re org-outline-regexp-bol) (lmax 30) (lvals ...) (lflag ...) (level 0) (ass ...) (format ...) (printf ...) (fun ...) (calc ...) (beg org-columns-top-level-marker) (inminlevel org-inlinetask-min-level) (last-level org-inlinetask-min-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")
  (cond ((equal ... "CLOCKSUM") (org-clock-sum)) ((equal ... "CLOCKSUM_T") (org-clock-sum-today)) ((and ... ... ...) (org-columns-compute ...)))
  (while (setq fm (pop fmt)) (cond (... ...) (... ...) (... ...)))
  (save-restriction (widen) (org-unmodified (remove-text-properties ... ... ...)) (goto-char (point-min)) (org-columns-get-format-and-top-level) (while (setq fm ...) (cond ... ... ...)))
  (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 + nil) ("Effort" "Estimated Effort" 17 ":" add_times nil + nil) ("CLOCKSUM" "CLOCKSUM" nil 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 ((org-columns-time ...) cache maxwidths m p a d fmt) (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()
  call-interactively(org-agenda-columns nil nil)

cheers,

-Hannes