[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:01598] Re: Todo リストを日付でソート
From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx> 曰く
Subject: [mhc:01597] Re: Todo リストを日付でソート
Message-ID: <20020905.111626.76200606.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 05 Sep 2002 11:16:26 +0900 (JST)
白井> mhc-db-scan-todo() を見ていて思い出したのですが、X-SC-Priority:
白井> の存在をすっかり忘れていました。考え直します。^^;;;
というわけで、昨日のパッチは捨てていただいて、こちらで御願いしま
す。(_ _)
## あとで commit しておきます。
--
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)
--- mhc-db.el 16 Oct 2000 09:04:36 -0000 1.25
+++ mhc-db.el 5 Sep 2002 02:55:10 -0000
@@ -142,11 +142,14 @@
(lambda (schedule)
(cons (mhc-schedule-priority schedule)
schedule))
- (mhc-day-schedules
- (mhc-logic-eval-for-date
- (mhc-day-let day
- (mhc-db/get-sexp-list-for-month year month))
- day 'todo)))
+ (sort (mhc-day-schedules
+ (mhc-logic-eval-for-date
+ (mhc-day-let day
+ (mhc-db/get-sexp-list-for-month year month))
+ day 'todo))
+ (lambda (x y)
+ (< (mhc-schedule-todo-deadline x)
+ (mhc-schedule-todo-deadline y)))))
(lambda (a b)
(if (and (null (car a)) (car b))
nil