[mhc:01607] Re: Todo リストを日付でソート

[MINABE Oki <minabe@xxxxxxxxxxxxx>]

こんにちは。美辺といいます。

  白井さん <shirai@xxxxxxxxxxxxx>
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
> というわけで、昨日のパッチは捨てていただいて、こちらで御願いしま
> す。(_ _)
> ## あとで commit しておきます。

僕の手元で X-SC-Day: が無いものがあってエラーが出てしまいました。
こんなパッチで動くようになりましたがどうでしょうか。

# 思いついたことを忘れないようにメモしておく、みたいな変な使い方もして
# いるものでして…

--
MINABE Oki <minabe@xxxxxxxxxxxxx>

--- mhc-db.el   2002/09/05 04:28:23     1.13
+++ mhc-db.el   2002/09/06 16:01:20
@@ -148,8 +148,12 @@
                           (mhc-db/get-sexp-list-for-month year month))
                         day 'todo))
                       (lambda (x y)
-                        (< (mhc-schedule-todo-deadline x)
-                           (mhc-schedule-todo-deadline y)))))
+                        (let ((x-deadline (mhc-schedule-todo-deadline x))
+                              (y-deadline (mhc-schedule-todo-deadline y)))
+                          (cond
+                           ((null x-deadline) t)
+                           ((null y-deadline) nil)
+                           (t (< x-deadline y-deadline)))))))
                (lambda (a b)
                  (if (and (null (car a)) (car b))
                      nil