emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Otto Pichlhoefer <otto.pichlhoefer@meduniwien.ac.at>
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug report
Date: Wed, 7 Oct 2009 08:17:02 +0200	[thread overview]
Message-ID: <EB7C1643-348F-46DC-8F2F-42EC3DB65C53@gmail.com> (raw)
In-Reply-To: <4711_1254820364_4ACB0A0C_4711_253048_1_81fe3f00910060212g2fb9a702g6807cecfeed96548@mail.gmail.com>

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: otto.pichlhoefer@meduniwien.ac.at
> _______________________________________________
> 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

  reply	other threads:[~2009-10-07  6:17 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-10-06  9:12 Bug report Otto Pichlhoefer
2009-10-07  6:17 ` Carsten Dominik [this message]
2016-06-01  7:02 Dan
2016-06-01 17:45 ` Nicolas Goaziou
2022-06-01  7:53 Topi Mäenpää
2022-06-01 15:37 ` Eric S Fraga
2022-06-01 16:24   ` Max Nikulin
2022-06-01 16:49     ` Eric S Fraga
2022-06-02 15:30   ` Topi Mäenpää

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=EB7C1643-348F-46DC-8F2F-42EC3DB65C53@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=otto.pichlhoefer@meduniwien.ac.at \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).