emacs-orgmode
[Top][All Lists]
Advanced

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

Re: [Orgmode] Bug report


From: Carsten Dominik
Subject: Re: [Orgmode] Bug report
Date: Wed, 7 Oct 2009 08:17:02 +0200

Hi Otto,

my guess is that you have set the variable org-agenda-start-on-weekday
to t, which is not a valid value.  Set it to the number 1 if you want
to start on Monday.

HTH

- Carsten

On Oct 6, 2009, at 11:12 AM, Otto Pichlhoefer wrote:

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,



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: address@hidden
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode





reply via email to

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