>>>>> Jim Ottaway <[EMAIL PROTECTED]> writes:

>>>>> Hsiu-Khuern Tang <[EMAIL PROTECTED]> writes:
>> I just did that, grabbing the Arch revision
>> [EMAIL PROTECTED]/planner-el--devel--0--patch-141

>> I get the same errors.  If I also do

>> (setq max-lisp-eval-depth '40000)
>> (setq max-specpdl-size '100000)

>> emacs segfaults after a few seconds when I add an appointment ("@17:00
>> ...") to a task with a deadline.

> Hmm. I'll have another look over the weekend. 

I've found the source of the problem, and I think this patch is enough
to fix it. Could you give it a go?

--- orig/planner-appt.el
+++ mod/planner-appt.el
@@ -488,15 +488,17 @@
       (planner-appt-schedule-sort))))
 
 (defun planner-appt-update-appt-section-maybe ()
-    (when (and
-	   ;; The appointment section is only relevant if the task
-	   ;; method is used
-	   (memq 'tasks planner-appt-methods)
-	   planner-appt-task-use-appointments-section-flag)
-      (with-planner-update-setup
-       (save-excursion
-	 (planner-goto-today)
-	 (planner-appt-update-appt-section)))))
+
+      (when (and
+	        ;; The appointment section is only relevant if the task
+	        ;; method is used
+	        (memq 'tasks planner-appt-methods)
+		planner-appt-task-use-appointments-section-flag)
+	(with-planner-update-setup
+	 (save-excursion
+	   (with-planner-appt-task-advice-disabled
+	     (planner-goto-today))
+	   (planner-appt-update-appt-section)))))
 
 (defmacro with-planner-appt-update-section-disabled (&rest body)
  `(let ((planner-appt-task-use-appointments-section-flag nil))
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

Reply via email to