[emacs-wiki-discuss] Re: problem with planner-muse

[Marco Gidde]

Please forget the last patch, it was only the simpliest case. This one
should work better (hopefully):

* looking for address@hidden/planner-muse--mwolson--1.0--patch-74 to compare 
with
* comparing to address@hidden/planner-muse--mwolson--1.0--patch-74
M  planner-multi.el

* modified files

--- orig/planner-multi.el
+++ mod/planner-multi.el
@@ -270,17 +270,8 @@
     (planner-format-task info nil nil nil nil
                          (planner-make-link
                           (if (string-match planner-date-regexp page-name)
-                              (cadr links)
-                            (car links)))))
-   ;; If this is a standard singly-linked task (date, plan)
-   ((and (= (length new-pages) 2)
-         (string-match planner-date-regexp (car new-pages))
-         (not (string-match planner-date-regexp (cadr new-pages))))
-    (planner-format-task info nil nil nil nil
-                         (planner-make-link
-                          (if (string-match planner-date-regexp page-name)
-                              (cadr links)
-                            (car links)))))
+                              (cadr new-pages)
+                            (car new-pages)))))
    ;; If this is a standard singly-linked task (plan, date)
    ((and (= (length new-pages) 2)
          (not (string-match planner-date-regexp (car new-pages)))
@@ -288,11 +279,11 @@
     (planner-format-task info nil nil nil nil
                          (planner-make-link
                           (if (string-match planner-date-regexp page-name)
-                              (car links)
-                            (cadr links)))))
+                              (car new-pages)
+                            (cadr new-pages)))))
    ;; Multilink
    (t (planner-format-task info nil nil nil nil
-                           (planner-make-link links)))))
+                           (planner-make-link new-pages)))))
        
 (defun planner-multi-replan-task (pages)
   "Change or assign the plan page for the current task.




Cheers

-- 
Marco Gidde