From mboxrd@z Thu Jan 1 00:00:00 1970 From: Otto Pichlhoefer Subject: Bug report Date: Tue, 6 Oct 2009 11:12:24 +0200 Message-ID: <4711_1254820364_4ACB0A0C_4711_253048_1_81fe3f00910060212g2fb9a702g6807cecfeed96548@mail.gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1533767481==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Mv66H-00081u-7x for emacs-orgmode@gnu.org; Tue, 06 Oct 2009 05:12:53 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Mv66C-0007xU-Qp for emacs-orgmode@gnu.org; Tue, 06 Oct 2009 05:12:52 -0400 Received: from [199.232.76.173] (port=39216 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Mv66C-0007x7-Jw for emacs-orgmode@gnu.org; Tue, 06 Oct 2009 05:12:48 -0400 Received: from maud.srv.meduniwien.ac.at ([149.148.224.13]:23119 helo=smtpa.meduniwien.ac.at) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Mv66B-00044B-S8 for emacs-orgmode@gnu.org; Tue, 06 Oct 2009 05:12:48 -0400 Received: from smtpa.meduniwien.ac.at (localhost [127.0.0.1]) by smtpa.meduniwien.ac.at (Postfix) with SMTP id DFFC620017 for ; Tue, 6 Oct 2009 11:12:44 +0200 (CEST) Received: from mail-fx0-f205.google.com (mail-fx0-f205.google.com [209.85.220.205]) by smtpa.meduniwien.ac.at (Postfix) with ESMTP id C308E2005E for ; Tue, 6 Oct 2009 11:12:44 +0200 (CEST) Received: by fxm1 with SMTP id 1so3126820fxm.31 for ; Tue, 06 Oct 2009 02:12:44 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --===============1533767481== Content-Type: multipart/alternative; boundary=001636499e0d12a53c047540a2bb --001636499e0d12a53c047540a2bb Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable 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 (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-cha= r (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 lprop= s 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] *Otto Pichlhoefer, MD* Medical University of Vienna, Center for Public Health Department of General Practice and Family Medicine W=E4hringer Stra=DFe 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 --001636499e0d12a53c047540a2bb Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable 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 ca= ndidates...
Org-mode version 6.28e<= br>
On pressing <a> (Agenda for ...) in the *Agenda Commands* buffer = Emacs throws up the following error:

Debugger entered--Lisp error: (wrong-type-argument num= ber-or-marker-p t)
=A0 -(2 t)
=A0 (let* ((nt ...) (n1 org-agenda-start-on-weekday) (= d ...)) (- sd (+ ... d)))
=A0 (if (or (null org-a= genda-start-on-weekday) (< org-agenda-ndays 7)) sd (let* (... ... ...) (= - sd ...)))
=A0 (let* ((org-agenda-start-o= n-weekday ...) (thefiles ...) (files thefiles) (today ...) (sd ...) (start = ...) (day-numbers ...) (day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall f= ile 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-nu= mbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers)) (setq cl= ocktable-start (car day-numbers) clocktable-end (1+ ...)) (org-prepare-agen= da "Day/Week") (org-set-local (quote org-starting-day) (car day-n= umbers)) (org-set-local (quote org-include-all-loc) include-all) (org-set-l= ocal (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-proper= ties s ... ...)) (while (setq d ...) (setq date ... wd ... s ...) (if ... .= .. ...) (setq files thefiles rtnall nil) (while ... ...) (if org-agenda-inc= lude-diary ...) (if ... ...)) (when (and org-agenda-clockreport-mode clockt= able-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-pro= perties (point-min) (point-max) (quote ...)) (org-finalize-agenda) (setq bu= ffer-read-only t) (message ""))
=A0 org-agenda-list(nil= )
=A0 call-interactively(org-agenda-list)<= /span>
=A0 (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-c= all-with-arg ... ...)) ((equal keys "e") (call-interactively ...)= ) ((equal keys "L") (unless ... ...) (unless restriction ... ...)= ) ((equal keys "#") (call-interactively ...)) ((equal keys "= /") (call-interactively ...)) ((equal keys "!") (customize-v= ariable ...)) (t (error "Invalid agenda key")))
=A0 (let* ((prefix-desc= riptions nil) (org-agenda-custom-commands-orig org-agenda-custom-commands) = (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match l= props ans) (unless org-agenda-overriding-restriction (put ... ... nil) (set= q org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (mov= e-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command)= (quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buf= fer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... = restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (= cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... .= ..) (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...)= ))
=A0 (catch (quote exit)= (let* (... ... ... ... ... entry key type match lprops ans) (unless org-ag= enda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-ag= enda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (requir= e ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
=A0 org-agenda(nil)
=A0 call-interactively(org-agenda nil nil)

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

Re= gards,


3D"Medical
Otto Pichlhoefer, MD
Medical Univer= sity of Vienna, Center for Public Health
Department of General Practice and Family Medicine
W=E4hringer Stra=DFe 13a
A-1090 Wien, Austria
Tel. +43 (1) 4277-65960
Fax. +43 (1) 25 33033 4532
Mobil +43 (664) 80016-34611
Email: otto.pichlhoefe= r@meduniwien.ac.at
--001636499e0d12a53c047540a2bb-- --===============1533767481== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============1533767481==--