>>>>> Hsiu-Khuern Tang <[EMAIL PROTECTED]> writes:
> I have the following lines in .emacs:
> (require 'planner)
> (require 'planner-deadline)
> (require 'planner-appt)
> (planner-appt-use-tasks)
> (planner-appt-insinuate)
> (planner-appt-calendar-insinuate)
> (setq planner-appt-task-use-appointments-section-flag t)
> I'm trying to use task-based appointments. I noticed the following
> error when adding a task that has both an appointment and a deadline,
> e.g., #B _ @16:00 do this {{Deadline: 2007.11.23 - 9 days}} (TaskPool)
> Under Emacs22:
> Wrote /home/htang/.planner/TaskPool.muse
> abbreviate-file-name: Lisp nesting exceeds `max-lisp-eval-depth'
> Under Emacs23:
> Wrote /home/htang/.planner/TaskPool.muse
> file-truename: Variable binding depth exceeds max-specpdl-size
> The appointment does not show up under the Schedule section (or anywhere
> else).
This patch might fix it:
--- orig/planner-appt.el
+++ mod/planner-appt.el
@@ -788,14 +788,10 @@
"Extract appointment time and text from the DESCRIPTION.
Return a list (text time). If the task is not an
appointment, time defaults to nil."
- (or (gethash description --planner-appt-task-cache)
- (puthash
- description
- (if (string-match planner-appt-task-regexp description)
- (list (substring description (match-end 0))
- (substring description (match-beginning 1) (match-end 1)))
- (list description nil))
- --planner-appt-task-cache)))
+ (if (string-match planner-appt-task-regexp description)
+ (list (substring description (match-end 0))
+ (substring description (match-beginning 1) (match-end 1)))
+ (list description nil)))
(defun planner-appt-task-nagging-p (description)
"Return non-nil if task DESCRIPTION is a nagging appointment."
Regards,
--
Dr Jim Ottaway
Research Officer: Translating Neurobiological Research
BIOS Centre
London School of Economics and Political Science
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
