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
