Re: [O] Bug report: agenda column mode failure

[Jacob Riko]

Hi Hannes,

On 31.08.2012, at 03:52, Jacob Riko wrote:
> I was about to report the same behavior on a Mac:

Sorry for the noise, I actually do see the same behavior.
It is just that entering column-view in the file works fine, only a column view 
on the agenda (C-c C-x C-c) throws the error.

Below are a short and a detailed backtrace.

Riko


Short:

 debug(error (error "Marker does not point anywhere"))
 org-columns-compute("Effort")
 org-agenda-colview-compute((("ITEM" "Task" 40 nil nil nil + nil) ("Effort" 
"Estimated Effort" 17 ":" add_times nil + nil) ("CLOCKSUM" "Clock" nil ":" 
add_times nil + nil)))
 org-agenda-columns()
 call-interactively(org-agenda-columns nil nil)

Complete (after C-u M-x org-reload)

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 
(org-end-of-subtree t) (error (point-max)))) (goto-char end) (while 
(re-search-backward re beg t) (setq sumpos (match-beginning 0) last-level (if 
(not (or (zerop level) (eq level inminlevel))) level last-level) level 
(org-outline-level) val (org-entry-get nil property) valflag (and val 
(string-match "\\S-" val))) (cond ((< level last-level) (setq sum (+ (if (and 
... ...) (apply fun ...) 0) (if (aref lvals inminlevel) (apply fun ...) 0)) 
flag (or (aref lflag last-level) (aref lflag inminlevel)) str 
(org-columns-number-to-string sum format printf) str1 (org-add-props 
(copy-sequence str) nil (quote org-computed) t (quote face) (quote bold)) 
useval (if flag str1 (if valflag val "")) sum-alist (get-text-property sumpos 
(quote org-summaries))) (if (assoc property sum-alist) (setcdr (assoc property 
sum-alist) useval) (push (cons property useval) sum-alist) (org-unmodified 
(add-text-properties sumpos (1+ sumpos) (list ... sum-alist)))) (when (and val 
(not (equal val ...))) (org-entry-put nil property (if flag str val))) (when 
(or flag valflag) (push (if flag sum (funcall calc ...)) (aref lvals level)) 
(aset lflag level t)) (loop for l from (1+ level) to (1- lmax) do (aset lvals l 
nil) (aset lflag l nil))) ((>= level last-level) (when valflag (push (funcall 
calc (org-columns-string-to-number val format)) (aref lvals level)) (aset lflag 
level t))) (t (error "This should not happen")))))
 (let* ((re org-outline-regexp-bol) (lmax 30) (lvals (make-vector lmax nil)) 
(lflag (make-vector lmax nil)) (level 0) (ass (assoc property 
org-columns-current-fmt-compiled)) (format (nth 4 ass)) (printf (nth 5 ass)) 
(fun (nth 6 ass)) (calc (or (nth 7 ass) (quote identity))) (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 (condition-case nil 
(org-end-of-subtree t) (error (point-max)))) (goto-char end) (while 
(re-search-backward re beg t) (setq sumpos (match-beginning 0) last-level (if 
(not (or (zerop level) (eq level inminlevel))) level last-level) level 
(org-outline-level) val (org-entry-get nil property) valflag (and val 
(string-match "\\S-" val))) (cond ((< level last-level) (setq sum (+ (if ... 
... 0) (if ... ... 0)) flag (or (aref lflag last-level) (aref lflag 
inminlevel)) str (org-columns-number-to-string sum format printf) str1 
(org-add-props (copy-sequence str) nil (quote org-computed) t (quote face) 
(quote bold)) useval (if flag str1 (if valflag val "")) sum-alist 
(get-text-property sumpos (quote org-summaries))) (if (assoc property 
sum-alist) (setcdr (assoc property sum-alist) useval) (push (cons property 
useval) sum-alist) (org-unmodified (add-text-properties sumpos ... ...))) (when 
(and val (not ...)) (org-entry-put nil property (if flag str val))) (when (or 
flag valflag) (push (if flag sum ...) (aref lvals level)) (aset lflag level t)) 
(loop for l from (1+ level) to (1- lmax) do (aset lvals l nil) (aset lflag l 
nil))) ((>= level last-level) (when valflag (push (funcall calc ...) (aref 
lvals level)) (aset lflag level t))) (t (error "This should not happen"))))))
 org-columns-compute("Effort")
 (cond ((equal (car fm) "CLOCKSUM") (org-clock-sum)) ((equal (car fm) 
"CLOCKSUM_T") (org-clock-sum-today)) ((and (nth 4 fm) (setq a (assoc (car fm) 
org-columns-current-fmt-compiled)) (equal (nth 4 a) (nth 4 fm))) 
(org-columns-compute (car fm))))
 (while (setq fm (pop fmt)) (cond ((equal (car fm) "CLOCKSUM") (org-clock-sum)) 
((equal (car fm) "CLOCKSUM_T") (org-clock-sum-today)) ((and (nth 4 fm) (setq a 
(assoc (car fm) org-columns-current-fmt-compiled)) (equal (nth 4 a) (nth 4 
fm))) (org-columns-compute (car fm)))))
 (save-restriction (widen) (org-unmodified (remove-text-properties (point-min) 
(point-max) (quote (org-summaries t)))) (goto-char (point-min)) 
(org-columns-get-format-and-top-level) (while (setq fm (pop fmt)) (cond ((equal 
(car fm) "CLOCKSUM") (org-clock-sum)) ((equal (car fm) "CLOCKSUM_T") 
(org-clock-sum-today)) ((and (nth 4 fm) (setq a (assoc (car fm) 
org-columns-current-fmt-compiled)) (equal (nth 4 a) (nth 4 fm))) 
(org-columns-compute (car fm))))))
 (save-excursion (save-restriction (widen) (org-unmodified 
(remove-text-properties (point-min) (point-max) (quote (org-summaries t)))) 
(goto-char (point-min)) (org-columns-get-format-and-top-level) (while (setq fm 
(pop fmt)) (cond ((equal (car fm) "CLOCKSUM") (org-clock-sum)) ((equal (car fm) 
"CLOCKSUM_T") (org-clock-sum-today)) ((and (nth 4 fm) (setq a (assoc ... 
org-columns-current-fmt-compiled)) (equal (nth 4 a) (nth 4 fm))) 
(org-columns-compute (car fm)))))))
 (save-current-buffer (set-buffer (or (buffer-base-buffer b) b)) 
(save-excursion (save-restriction (widen) (org-unmodified 
(remove-text-properties (point-min) (point-max) (quote (org-summaries t)))) 
(goto-char (point-min)) (org-columns-get-format-and-top-level) (while (setq fm 
(pop fmt)) (cond ((equal (car fm) "CLOCKSUM") (org-clock-sum)) ((equal (car fm) 
"CLOCKSUM_T") (org-clock-sum-today)) ((and (nth 4 fm) (setq a ...) (equal ... 
...)) (org-columns-compute (car fm))))))))
 (with-current-buffer (or (buffer-base-buffer b) b) (save-excursion 
(save-restriction (widen) (org-unmodified (remove-text-properties (point-min) 
(point-max) (quote (org-summaries t)))) (goto-char (point-min)) 
(org-columns-get-format-and-top-level) (while (setq fm (pop fmt)) (cond ((equal 
(car fm) "CLOCKSUM") (org-clock-sum)) ((equal (car fm) "CLOCKSUM_T") 
(org-clock-sum-today)) ((and (nth 4 fm) (setq a ...) (equal ... ...)) 
(org-columns-compute (car fm))))))))
 (while (setq f (pop files)) (setq b (find-buffer-visiting f)) 
(with-current-buffer (or (buffer-base-buffer b) b) (save-excursion 
(save-restriction (widen) (org-unmodified (remove-text-properties (point-min) 
(point-max) (quote (org-summaries t)))) (goto-char (point-min)) 
(org-columns-get-format-and-top-level) (while (setq fm (pop fmt)) (cond ((equal 
... "CLOCKSUM") (org-clock-sum)) ((equal ... "CLOCKSUM_T") 
(org-clock-sum-today)) ((and ... ... ...) (org-columns-compute ...))))))))
 (let ((files org-agenda-contributing-files) (org-columns-begin-marker 
(make-marker)) (org-columns-top-level-marker (make-marker)) f fm a b) (while 
(setq f (pop files)) (setq b (find-buffer-visiting f)) (with-current-buffer (or 
(buffer-base-buffer b) b) (save-excursion (save-restriction (widen) 
(org-unmodified (remove-text-properties (point-min) (point-max) (quote ...))) 
(goto-char (point-min)) (org-columns-get-format-and-top-level) (while (setq fm 
(pop fmt)) (cond (... ...) (... ...) (... ...))))))))
 org-agenda-colview-compute((("ITEM" "Task" 40 nil nil nil + nil) ("Effort" 
"Estimated Effort" 17 ":" add_times nil + nil) ("CLOCKSUM" "Clock" nil ":" 
add_times 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 (time-to-number-of-days (current-time))) cache 
maxwidths m p a d fmt) (cond ((and (boundp (quote 
org-agenda-overriding-columns-format)) org-agenda-overriding-columns-format) 
(setq fmt org-agenda-overriding-columns-format) (org-set-local (quote 
org-agenda-overriding-columns-format) fmt)) ((setq m (org-get-at-bol (quote 
org-hd-marker))) (setq fmt (or (org-entry-get m "COLUMNS" t) 
(with-current-buffer (marker-buffer m) org-columns-default-format)))) ((and 
(boundp (quote org-columns-current-fmt)) (local-variable-p (quote 
org-columns-current-fmt)) org-columns-current-fmt) (setq fmt 
org-columns-current-fmt)) ((setq m (next-single-property-change (point-min) 
(quote org-hd-marker))) (setq m (get-text-property m (quote org-hd-marker))) 
(setq fmt (or (org-entry-get m "COLUMNS" t) (with-current-buffer (marker-buffer 
m) org-columns-default-format))))) (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 (point-min)) 
(while (not (eobp)) (when (setq m (or (org-get-at-bol (quote org-hd-marker)) 
(org-get-at-bol (quote org-marker)))) (setq p (org-entry-properties m)) (when 
(or (not (setq a ...)) (not (string-match "\\S-" ...))) (when (and 
org-agenda-columns-add-appointments-to-effort-sum (setq d ...)) (setq d 
(org-minutes-to-hh:mm-string d)) (put-text-property 0 (length d) (quote face) 
(quote org-warning) d) (push (cons org-effort-property d) p))) (push (cons 
(org-current-line) p) cache)) (beginning-of-line 2)) (when cache (setq 
maxwidths (org-columns-get-autowidth-alist fmt cache)) (org-set-local (quote 
org-columns-current-maxwidths) maxwidths) (org-columns-display-here-title) 
(when (org-set-local (quote org-columns-flyspell-was-active) 
(org-bound-and-true-p flyspell-mode)) (flyspell-mode 0)) (mapc (lambda (x) 
(org-goto-line (car x)) (org-columns-display-here (cdr x))) cache) (when 
org-agenda-columns-show-summaries (org-agenda-colview-summarize cache)))))
 org-agenda-columns()
 call-interactively(org-agenda-columns nil nil)
 recursive-edit()