[emacs-wiki-discuss] Re: planner crashing emacs problem

[Karen Cooke]

The traceback is large and is preventing the message reaching the
list.  I've cut the middle bit out....



On 5/19/05, Karen Cooke <address@hidden> wrote:
> Hi,
> 
> Planner appears to be completely broken.  It had been working fine up
> until this morning.
> 
> I've edited all my files so that no tasks are due today and I've
> removed my diary file, but it still seems to go into an infinite loop
> on start up.
> 
> I'm on Windows XP SP2 with the latest emacs distribution (21.3).
> 
> I've done a fresh re-install of both emacs and planner.
> 
> The stable version gives the traceback below (with --debug-init), the
> dev version just crashes emacs whilst flashing "No diary entries for
> Thursday, 19 May 2005." in the mini buffer.
> 
> Any help would be much appreciated - I think something must have got
> corrupted somewhere but I have no idea what.
> 
> Thanks
> 
> Karen
> 
> Traceback:
> 
> Debugger entered--Lisp error: (error "Lisp nesting exceeds 
> max-lisp-eval-depth")
>   ad-substitute-tree(#[(form) "Á=† ¢Â>… A¢¨‡" [form
> ad-arg-bindings (ad-get-arg ad-get-args ad-set-arg ad-set-args)] 2]
> #[(form) "Å=ƒ\n Æ      address@hidden@ÇA      \"address@hidden& É  \"‚L 
> \fÊ=ƒ4 Ë   \n#‚L
> \fÌ=ƒA Í        \"‚L \fÎ=…L Ï   \n#+‡" [form arglist val index accessor
> ad-arg-bindings ad-retrieve-args-form ad-insert-argument-access-forms
> ad-get-arg ad-get-argument ad-set-arg ad-set-argument ad-get-args
> ad-get-arguments ad-set-args ad-set-arguments] 6] (old-info))
>   ad-substitute-tree(#[(form) "Á=† ¢Â>… A¢¨‡" [form
> ad-arg-bindings (ad-get-arg ad-get-args ad-set-arg ad-set-args)] 2]
> #[(form) "Å=ƒ\n Æ      address@hidden@ÇA      \"address@hidden& É  \"‚L 
> \fÊ=ƒ4 Ë   \n#‚L
> \fÌ=ƒA Í        \"‚L \fÎ=…L Ï   \n#+‡" [form arglist val index accessor
> ad-arg-bindings ad-retrieve-args-form ad-insert-argument-access-forms
> ad-get-arg ad-get-argument ad-set-arg ad-set-argument ad-get-args
> ad-get-arguments ad-set-args ad-set-arguments] 6] (5 old-info))
>   ad-substitute-tree(#[(form) "Á=† ¢Â>… A¢¨‡" [form
> ad-arg-bindings (ad-get-arg ad-get-args ad-set-arg ad-set-args)] 2]
> #[(form) "Å=ƒ\n Æ      address@hidden@ÇA      \"address@hidden& É  \"‚L 
> \fÊ=ƒ4 Ë   \n#‚L
> \fÌ=ƒA Í        \"‚L \fÎ=…L Ï   \n#+‡" [form arglist val index accessor
> ad-arg-bindings ad-retrieve-args-form ad-insert-argument-access-forms
> ad-get-arg ad-get-argument ad-set-arg ad-set-argument ad-get-args
> ad-get-arguments ad-set-args ad-set-arguments] 6] (nth 5 old-info))

.............


> (planner-renumber-tasks-automatically ...)
> (planner-align-tasks-automatically ...)
> (planner-renumber-notes-automatically ...)
> (planner-tasks-save-behavior nil) (planner-id-update-automatically
> ...)) (when (buffer-modified-p) (save-buffer)))
>   (progn (let (... ... ... ... ... ...) (when ... ...)))
>   (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn
> (let ... ...)))
>   (when (and (planner-derived-mode-p ...) (planner-page-name)) (let
> (... ... ... ... ... ...) (when ... ...)))
>   (save-current-buffer (set-buffer buffer) (when (and ... ...) (let
> ... ...)) (when (and buffer-list ...) (kill-buffer nil)))
>   (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when
> (and buffer-list ...) (kill-buffer nil)))
>   (lambda (buffer) (with-current-buffer buffer (when ... ...) (when
> ... ...)))(#<buffer 2005.05.19>)
>   mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...)
> (when ... ...))) (#<buffer 2005.05.19> #<buffer *scratch*> #<buffer
> *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> #<buffer
> *Echo Area 1*> #<buffer  *load*> #<buffer *Compile-Log*> #<buffer
> *Group*> #<buffer .diary.cyclic-tasks> #<buffer diary>))
>   planner-save-buffers(nil)
>   (progn (planner-save-buffers live-buffers))
>   (if planner-tasks-file-behavior (progn (planner-save-buffers live-buffers)))
>   (when planner-tasks-file-behavior (planner-save-buffers live-buffers))
>   (let* ((today ...) (names ...) (today-buffer ...)
> (planner-tasks-file-behavior ...) (planner-use-other-window nil)
> (live-buffers ...)) (when (and ... ...) (setcdr ... nil)) (when
> force-days (while names ... ... ...)) (if (or
> planner-carry-tasks-forward ... ...) (planner-goto-today)
> (planner-goto ...)) (when planner-tasks-file-behavior
> (planner-save-buffers live-buffers)) (with-planner
> (emacs-wiki-refresh-file-alist)))
>   (progn (unless force-days (setq force-days ...)) (when (and ... ...)
> (setq force-days t)) (planner-goto-today) (let* (... ... ... ... ...
> ...) (when ... ...) (when force-days ...) (if ... ... ...) (when
> planner-tasks-file-behavior ...) (with-planner ...)))
>   (if planner-use-day-pages (progn (unless force-days ...) (when ...
> ...) (planner-goto-today) (let* ... ... ... ... ... ...))
> (planner-find-file "WelcomePage"))
>   plan()
>   (let ((planner-use-other-window nil)) (plan))
>   eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
>   load-with-code-conversion("c:/.emacs" "~/.emacs" t t)
>   load("~/.emacs" t t)
>   #[nil "…—    Æ=ƒ ÇÈQ‚5     É=ƒ' ÊÇËÌ#ƒ# Í‚5 ΂5    Ï=ƒ1 Ђ5
> ÇÑQÒÓ\nÒ‰#ˆÒ=ƒF ˃ˆ Ô!Õšƒˆ Ö!‰×PØ
> !ƒd
> ‚o Ø\f!ƒn \f‚o ˉƒ‡ Ù\f\"ƒ… ÚÛ\f#ˆÜÝ!ˆ\f*†– Ë ÓÞÒ‰#))‡"
> [init-file-user system-type user-init-file-1 user-init-file source alt
> ms-dos "~" "/_emacs" windows-nt directory-files nil
> "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "~/_emacs" vax-vms
> "sys$login:.emacs" "/.emacs" t load file-name-extension "elc"
> file-name-sans-extension ".el" file-exists-p file-newer-than-file-p
> message "Warning: %s is newer than %s" sit-for 1 "default"
> inhibit-default-init inhibit-startup-message] 5]()
>   command-line()
>   normal-top-level()
>