emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug report: agenda column mode failure


From: Hannes Schulz
Subject: [O] Bug report: agenda column mode failure
Date: Thu, 30 Aug 2012 13:47:11 +0200
User-agent: Mutt/1.5.21 (2010-09-15)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]