Re: Agenda error

From: "Rick Moynihan" <rick.moynihan@gmail.com>
To: Carsten Dominik <dominik@science.uva.nl>
Cc: emacs-orgmode@gnu.org
Subject: Re: Agenda error
Date: Sat, 30 Jun 2007 18:56:36 +0100	[thread overview]
Message-ID: <e85471e30706301056h6af2a321u62917efaf945d0b0@mail.gmail.com> (raw)
In-Reply-To: <4491f83ee44f16bef3ac15d74cb7504b@science.uva.nl>

[-- Attachment #1: Type: text/plain, Size: 2003 bytes --]

Hi Carsten,

Sorry for not getting this backtrace to you sooner.

Thanks again,

R.

On 20/06/07, Carsten Dominik <dominik@science.uva.nl> wrote:
> Hi Rick,
>
> as you can see from the backtrace, this is not the same bug.
>
> You you try to make me a better (uncompiled) backtrace by explicitly
> loading all
> relevant .el files, like
>
>
> emacs -l /path/to/calendar.el -l /path/to/diary-lib.el -l
> /path/to/org.el
>
>
> Thanks.
>
> - Carsten
>
> On Jun 20, 2007, at 7:48, Rick Moynihan wrote:
>
> > Carsten Dominik <dominik@science.uva.nl> writes:
> >
> > Hi Carsten,
> >
> > Just to let you know I'm still getting the same error in 4.78 on the
> > same version of GNU Emacs.  I also get it when accessing the agenda
> > from a buffer which is attached to a file.
> >
> > I've again attached a backtrace.
> >
> > <mime-attachment>
> >
> >
> >> On Jun 16, 2007, at 18:33, Rick Moynihan wrote:
> >>
> >>> When at home I get the following error in org-mode when bringing up
> >>> the Agenda:
> >>>
> >>> Wrong type argument: stringp, nil
> >>>
> >>> I don't get this error on my setup at work.
> >>>
> >>> I am using org 4.77 (reports as 4.76) with GNU Emacs 22.1.50.1
> >>> (i686-pc-linux-gnu, GTK+ Version 2.10.11) of 2007-06-09.  This
> >>> version
> >>> of Emacs came from the Gentoo masked ebuild so there may be some
> >>> issues with it.
> >>>
> >>> For the M-x toggle-debug-on-error backtrace see the attached file.
> >>
> >> Thanks for the backtrace.  This seems to be an odd error that can
> >> happen
> >> when a buffer without a filename is current when accessing the agenda,
> >> so this could be sensitively dependent on setup.
> >>
> >> This problem will be circumvented in the next version.  Thanks.
> >>
> >> - Carsten
> >>
> >
> > --
> > Rick Moynihan
> > rick.moynihan@gmail.com
> >
>
> --
> Carsten Dominik
> Sterrenkundig Instituut "Anton Pannekoek"
> Universiteit van Amsterdam
> Kruislaan 403
> NL-1098SJ Amsterdam
> phone: +31 20 525 7477
>
>

-- 
Rick
rick.moynihan@gmail.com

[-- Attachment #2: backtrace2 --]
[-- Type: application/octet-stream, Size: 6079 bytes --]

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  set-buffer(nil)
  (save-current-buffer (set-buffer (find-buffer-visiting ...)) (diary-unhide-everything))
  (with-current-buffer (find-buffer-visiting (substitute-in-file-name diary-file)) (diary-unhide-everything))
  fancy-diary-display()
  run-hooks(diary-display-hook)
  (if diary-display-hook (run-hooks (quote diary-display-hook)) (simple-diary-display))
  (if list-only nil (if diary-display-hook (run-hooks ...) (simple-diary-display)))
  (unless list-only (if diary-display-hook (run-hooks ...) (simple-diary-display)))
  (save-excursion (setq file-glob-attrs (nth 1 ...)) (with-syntax-table diary-syntax-table (let ... ... ... ...)) (goto-char (point-min)) (run-hooks (quote nongregorian-diary-listing-hook) (quote list-diary-entries-hook)) (unless list-only (if diary-display-hook ... ...)) (run-hooks (quote diary-hook)) diary-entries-list)
  (let ((diary-saved-point ...)) (save-excursion (setq file-glob-attrs ...) (with-syntax-table diary-syntax-table ...) (goto-char ...) (run-hooks ... ...) (unless list-only ...) (run-hooks ...) diary-entries-list))
  (save-excursion (let (...) (if ... ... ... ...)) (if (eq major-mode default-major-mode) (diary-mode) (if ... ...)) (let (...) (save-excursion ... ... ... ... ... ... diary-entries-list)))
  (let ((original-date date) diary-entries-list file-glob-attrs (date-string ...) (d-file ...)) (message "Preparing diary...") (save-excursion (let ... ...) (if ... ... ...) (let ... ...)))
  (progn (let (... diary-entries-list file-glob-attrs ... ...) (message "Preparing diary...") (save-excursion ... ... ...)))
  (if (> number 0) (progn (let ... ... ...)))
  (when (> number 0) (let (... diary-entries-list file-glob-attrs ... ...) (message "Preparing diary...") (save-excursion ... ... ...)))
  list-diary-entries((6 25 2007) 1)
  (save-window-excursion (list-diary-entries date 1))
  (save-excursion (save-window-excursion (list-diary-entries date 1)))
  (let* ((fancy-diary-buffer "*temporary-fancy-diary-buffer*") (diary-display-hook ...) (list-diary-entries-hook ...) (diary-file-name-prefix-function nil) (diary-modify-entry-list-string-function ...) entries (org-disable-agenda-to-diary t)) (save-excursion (save-window-excursion ...)) (if (not ...) (setq entries nil) (with-current-buffer fancy-diary-buffer ... ... ... ...)) (when entries (setq entries ...) (setq entries ...)))
  org-get-entries-from-diary((6 25 2007))
  (setq rtn (org-get-entries-from-diary date))
  (progn (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))
  (if org-agenda-include-diary (progn (require ...) (setq rtn ...) (setq rtnall ...)))
  (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) (if (or ... ...) (setq start-pos ...) (if ... ...)) (setq files thefiles rtnall nil) (while (setq file ...) (catch ... ... ... ...)) (if org-agenda-include-diary (progn ... ... ...)) (if (or rtnall org-agenda-show-all-dates) (progn ... ... ... ... ... ...)))
  (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd) (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)) (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) (when (and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... ... ...)) (setq s (point)) (insert (if ... "Week-" "Day-") "agenda:\n") (add-text-properties s (1- ...) (list ... ... ... t)) (while (setq d ...) (setq date ... s ...) (if ... ... ...) (setq files thefiles rtnall nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (goto-char (point-min)) (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 c 67) (customize-variable ...)) ((equal c 97) (call-interactively ...)) ((equal c 116) (call-interactively ...)) ((equal c 84) (org-call-with-arg ... ...)) ((equal c 109) (call-interactively ...)) ((equal c 77) (org-call-with-arg ... ...)) ((equal c 101) (call-interactively ...)) ((equal c 76) (unless restrict-ok ...) (org-call-with-arg ... arg)) ((equal c 35) (call-interactively ...)) ((equal c 33) (customize-variable ...)) (t (error "Invalid key")))
  (let* ((buf ...) (bfn ...) (restrict-ok ...) (custom org-agenda-custom-commands) c entry key type match lprops) (put (quote org-agenda-files) (quote org-restrict) nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (save-window-excursion (delete-other-windows) (switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert ...) (while ... ... ...) (if restrict-ok ...) (goto-char ...) (if ... ...) (message "Press key for agenda command%s" ...) (setq c ...) (message "") (when ... ... ... ... ... ...)) (require (quote calendar)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (t ...)))
  (catch (quote exit) (let* (... ... ... ... c entry key type match lprops) (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil) (setq org-agenda-last-dispatch-buffer ...) (save-window-excursion ... ... ... ... ... ... ... ... ... ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...)))
  org-agenda(nil)
  call-interactively(org-agenda)

[-- Attachment #3: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode