[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:01877] Re: guess location.



At Mon, 13 Oct 2003 15:55:40 +0900,
Yoshinari Nomura <nom@xxxxxxxxxxxxx> wrote:

>   (3) import の際,Alarm を訊くかどうか制御できるようにした.
>       (mhc-default-alarm, mhc-ask-alarm)

import の時だけでなく、edit の時にも Alarm を訊けるようにする patch を
作ってみました。

-=-=- cut here -=-=- cut here -=-=- cut here -=-=- cut here -=-=-
Index: mhc.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc.el,v
retrieving revision 1.79
diff -u -r1.79 mhc.el
--- mhc.el	2003/11/05 01:12:43	1.79
+++ mhc.el	2003/12/17 17:56:21
@@ -619,11 +619,14 @@
 		(setq succeed nil)
 		(kill-buffer draft-buffer)))
 	  ;; No import (it succeeds).
-	  (setq date (mhc-input-day "Date: " current-date)
+	  (progn
+	    (setq date (mhc-input-day "Date: " current-date)
 		time (mhc-input-time "Time: ")
 		subject (mhc-input-subject "Subject: ")
 		location (mhc-input-location "Location: ")
-		category (mhc-input-category "Category: ")))
+		category (mhc-input-category "Category: "))
+	    (if mhc-ask-alarm
+		(setq alarm (mhc-input-alarm "Alarm: " mhc-default-alarm)))))
       ;; Quit.
       (quit
        (and (interactive-p)

-=-=- cut here -=-=- cut here -=-=- cut here -=-=- cut here -=-=-
--
しもかわとしひこ