From mboxrd@z Thu Jan 1 00:00:00 1970 From: Hannes Schulz Subject: Bug report: agenda column mode failure Date: Thu, 30 Aug 2012 13:47:11 +0200 Message-ID: <20120830114711.GA27437@bigcuda3.informatik.uni-bonn.de> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([208.118.235.92]:47934) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T73DK-0000Ua-MX for emacs-orgmode@gnu.org; Thu, 30 Aug 2012 07:47:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T73DE-0007s8-Hd for emacs-orgmode@gnu.org; Thu, 30 Aug 2012 07:47:10 -0400 Received: from mail.ais.uni-bonn.de ([131.220.242.131]:43159) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T73DE-0007rs-7E for emacs-orgmode@gnu.org; Thu, 30 Aug 2012 07:47:04 -0400 Received: from localhost (localhost [127.0.0.1]) by mail.ais.uni-bonn.de (Postfix) with ESMTP id 04ABA17300CE for ; Thu, 30 Aug 2012 13:47:08 +0200 (CEST) Received: from mail.ais.uni-bonn.de ([127.0.0.1]) by localhost (mail.ais.uni-bonn.de [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id cFxtD7GyCa7i for ; Thu, 30 Aug 2012 13:47:04 +0200 (CEST) Received: from localhost (unknown [131.220.7.92]) by mail.ais.uni-bonn.de (Postfix) with ESMTPSA id CCE7D17300CD for ; Thu, 30 Aug 2012 13:47:04 +0200 (CEST) Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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(#) (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