Bug report

[Otto Pichlhoefer <otto.pichlhoefer@meduniwien.ac.at>]

[-- Attachment #1.1: Type: text/plain, Size: 4452 bytes --]

Hello,

I ran in to the following problem.

GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600) of 2009-07-30 on SOFT-MJASON
Computing completion candidates...
Org-mode version 6.28e

On pressing <a> (Agenda for ...) in the *Agenda Commands* buffer Emacs
throws up the following error:

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p t)
  -(2 t)
  (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)) (- sd (+ ...
d)))
  (if (or (null org-agenda-start-on-weekday) (< org-agenda-ndays 7)) sd
(let* (... ... ...) (- sd ...)))
  (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles)
(today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0)
(inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp
nd wd clocktable-start clocktable-end) (setq org-agenda-redo-command (list
... ... start-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays)
(while (> ndays 1) (push ... day-numbers) (setq ndays ...)) (setq
day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers)
clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-set-local
(quote org-starting-day) (car day-numbers)) (org-set-local (quote
org-include-all-loc) include-all) (org-set-local (quote org-agenda-span)
(org-agenda-ndays-to-span nd)) (when (and ... ...) (setq files thefiles
rtnall nil) (while ... ...) (when rtnall ... ... ...)) (unless
org-agenda-compact-blocks (let* ... ... ...) (add-text-properties s ...
...)) (while (setq d ...) (setq date ... wd ... s ...) (if ... ... ...)
(setq files thefiles rtnall nil) (while ... ...) (if
org-agenda-include-diary ...) (if ... ...)) (when (and
org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... ... ...
...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window))
(unless (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char
(or start-pos 1)) (add-text-properties (point-min) (point-max) (quote ...))
(org-finalize-agenda) (setq buffer-read-only t) (message ""))
  org-agenda-list(nil)
  call-interactively(org-agenda-list)
  (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq
org-agenda-custom-commands org-agenda-custom-commands-orig)
(customize-variable ...)) ((equal keys "a") (call-interactively ...))
((equal keys "s") (call-interactively ...)) ((equal keys "t")
(call-interactively ...)) ((equal keys "T") (org-call-with-arg ... ...))
((equal keys "m") (call-interactively ...)) ((equal keys "M")
(org-call-with-arg ... ...)) ((equal keys "e") (call-interactively ...))
((equal keys "L") (unless ... ...) (unless restriction ... ...)) ((equal
keys "#") (call-interactively ...)) ((equal keys "/") (call-interactively
...)) ((equal keys "!") (customize-variable ...)) (t (error "Invalid agenda
key")))
  (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig
org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn
...) entry key type match lprops ans) (unless
org-agenda-overriding-restriction (put ... ... nil) (setq
org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil)
(move-marker org-agenda-restrict-end nil)) (put (quote
org-agenda-redo-command) (quote org-lprops) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ...
keys ... restriction ...)) (when (and ... restriction) (put ... ... ...)
(cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...)
(... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (...
... ...) (... ...) (... ...) (... ...) (t ...)))
  (catch (quote exit) (let* (... ... ... ... ... entry key type match lprops
ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ...
nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ...
... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...
... ...)))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)

Please confirm that this is a bug and advice on what to do...

Regards,


[image: Medical University of Vienna]
<http://www.meduniwien.ac.at/zph/en> *Otto
Pichlhoefer, MD*
Medical University of Vienna, Center for Public Health
Department of General Practice and Family Medicine
Währinger Straße 13a
A-1090 Wien, Austria
Tel. +43 (1) 4277-65960
Fax. +43 (1) 25 33033 4532
Mobil +43 (664) 80016-34611
Email: otto.pichlhoefer@meduniwien.ac.at

[-- Attachment #1.2: Type: text/html, Size: 6671 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode