emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Otto Pichlhoefer <otto.pichlhoefer@meduniwien.ac.at>
To: emacs-orgmode@gnu.org
Subject: Bug report
Date: Tue, 6 Oct 2009 11:12:24 +0200	[thread overview]
Message-ID: <4711_1254820364_4ACB0A0C_4711_253048_1_81fe3f00910060212g2fb9a702g6807cecfeed96548@mail.gmail.com> (raw)


[-- 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

             reply	other threads:[~2009-10-06  9:12 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-10-06  9:12 Otto Pichlhoefer [this message]
2009-10-07  6:17 ` Bug report Carsten Dominik
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=4711_1254820364_4ACB0A0C_4711_253048_1_81fe3f00910060212g2fb9a702g6807cecfeed96548@mail.gmail.com \
    --to=otto.pichlhoefer@meduniwien.ac.at \
    --cc=emacs-orgmode@gnu.org \
    /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).