[emacs-wiki-discuss] Planner Appt frozes Emacs?

[drkm]

  Hi

  I just added Planner Appt to be loaded when I load
Planner.  But since, when I 'M-x plan', Emacs frozes ...
Here is what I have in my ~/.emacs.el (related to Planner
Appt):

    (eval-after-load 'planner
      '(progn
         (require 'planner-appt)))

    (eval-after-load 'planner-appt
      '(progn
         (planner-appt-use-tasks)
         (planner-appt-insinuate)))

  Here is the complete backtrace of the stack state at the
moment when I press 'C-g' (when Emacs is frozen):

Debugger entered--Lisp error: (quit)
  (backquote-list* (quote unwind-protect) (backquote-list* (quote
progn) (quote ...) (quote ...) body) (quote (... ...)))
  (\` (unwind-protect (progn ... ... ...)
(planner-appt-enable-all-advice) (planner-appt-debug-message "all
advice enabled")))
  (lambda (&rest body) "Evaluate BODY forms with all advice matching
\"planner-appt-task\" disabled." (\` (unwind-protect ... ... ...)))((if
(planner-appt-task-nagging-p (planner-task-description info)) (progn
(planner-edit-task-description ...) (setq ad-return-value ...)) (unless
(and info time) (setq ad-return-value ...))))
  (with-planner-appt-task-advice-disabled (if
(planner-appt-task-nagging-p ...) (progn ... ...) (unless ... ...)))
  (let* ((info ...) (appt ...) (time ...))
(with-planner-appt-task-advice-disabled (if ... ... ...)))
  (cond ((not --planner-appt-planning) (let ... ...)) (t (let* ...
...)))
  (progn (planner-appt-debug-message "*** called advice on
planner-copy-or-move-task; " (if --planner-appt-planning "in plan" "not
in plan")) (cond (... ...) (t ...)))
  (let (ad-return-value) (progn (planner-appt-debug-message "*** called
advice on planner-copy-or-move-task; " ...) (cond ... ...))
ad-return-value)
  planner-copy-or-move-task("2005.11.25")
  (if (planner-copy-or-move-task date) (progn (setq count ...)))
  (when (planner-copy-or-move-task date) (setq count (1+ count)))
  (condition-case err (when (planner-copy-or-move-task date) (setq
count ...)) (error (unless ... ... ...) (forward-line -1) nil))
  (if (looking-at
"^#?\\([A-C]\\)\\([0-9]*\\)\\s-+\\([^XC]\\)\\s-+\\(.+\\)")
(condition-case err (when ... ...) (error ... ... nil)) (forward-line
-1))
  (while (not (bobp)) (goto-char (planner-line-beginning-position)) (if
(looking-at "^#?\\([A-C]\\)\\([0-9]*\\)\\s-+\\([^XC]\\)\\s-+\\(.+\\)")
(condition-case err ... ...) (forward-line -1)))
  (save-restriction (narrow-to-region (and ... ...) (and ... ...))
(when planner-add-task-at-end-flag (reverse-region ... ...)) (goto-char
(point-max)) (while (not ...) (goto-char ...) (if ... ... ...)) (when
planner-add-task-at-end-flag (reverse-region ... ...)) (when (and ...
... ... ...) (message ... error-count)))
  (save-excursion (save-restriction (narrow-to-region ... ...) (when
planner-add-task-at-end-flag ...) (goto-char ...) (while ... ... ...)
(when planner-add-task-at-end-flag ...) (when ... ...)))
  (let ((planner-tasks-file-behavior nil)) (save-excursion
(save-restriction ... ... ... ... ... ...)))
  (let ((start ...) (finish ...) (buffer ...) (error-count 0) (count 0)
(live-buffers ...)) (let (...) (save-excursion ...)) (when
planner-tasks-file-behavior (planner-save-buffers live-buffers))
(set-buffer buffer) count)
  planner-copy-or-move-region(1 292 "2005.11.25" t)
  (let ((planner-tasks-file-behavior nil)) (planner-copy-or-move-region
(point-min) (point-max) (planner-today) t))
  (progn (let (...) (planner-copy-or-move-region ... ... ... t))
(unless (buffer-modified-p) (kill-buffer ...)))
  (if (not (equal today ...)) (progn (let ... ...) (unless ... ...)))
  (when (not (equal today ...)) (let (...) (planner-copy-or-move-region
... ... ... t)) (unless (buffer-modified-p) (kill-buffer ...)))
  (while names (planner-find-file (car names)) (when (not ...) (let ...
...) (unless ... ...)) (setq names (cdr names)))
  (progn (while names (planner-find-file ...) (when ... ... ...) (setq
names ...)))
  (if force-days (progn (while names ... ... ...)))
  (when force-days (while names (planner-find-file ...) (when ... ...
...) (setq names ...)))
  (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)))
  (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 ...)))
  (if planner-use-day-pages (progn (unless force-days ...) (when ...
...) (planner-goto-today) (let* ... ... ... ... ...))
(planner-find-file (or planner-default-page planner-initial-page)))
  ad-Orig-plan(nil)
  (setq ad-return-value (ad-Orig-plan force-days))
  (let ((--planner-appt-planning t)) (setq ad-return-value
(ad-Orig-plan force-days)))
  (progn (planner-appt-debug-message "*** called advice on plan") (let
(...) (setq ad-return-value ...)))
  (let (ad-return-value) (progn (planner-appt-debug-message "*** called
advice on plan") (let ... ...)) ad-return-value)
  plan(nil)
  call-interactively(plan)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


  Thanks, regards,

--drkm























        

        
                
___________________________________________________________________________ 
Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger 
Téléchargez cette version sur http://fr.messenger.yahoo.com