野口です。
乃村さん、白井さん、コメントありがとうございます。
From: Yoshinari Nomura <nom@xxxxxxxxxxxxx>
Date: Mon, 03 Oct 2005 23:50:54 +0900
> ありがとうございます．コミットする前に，
> パッチ中の，↓の行の意図がよく分からないのですが．
>
> ((string-match (concat "^" mhc-parse/time-regexp " " mhc-parse/time-regexp "$") time)
>
> "12:00 15:00" も素通しで OK ってことだと思うのですが，いいんでしょうか．
From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>
Date: Tue, 04 Oct 2005 07:51:16 +0900 (JST)
> もう一つ質問というか確認ですけど、
> ! (defconst mhc-parse/time-regexp "\\([012]*[0-9]\\):\\([0-5][0-9]\\)")
> は
> "\\([012]?[0-9]\\):\\([0-5][0-9]\\)"
> でしょうか？
先のメールで、ご説明をするのを忘れていました(_O_)。
上記2個所は、
こうしておかないと、C-c . (.|p|n) で Parse ERROR!!!(at X-SC-Time:)
にひっかかってしまうため、対処療法として入れた
ものです。
(私の環境では)上記2対処が無い状態で「Emacs 起動後の、最初の C-c . .」で
100% 再現します。
ただ、あのpatchだと「Parse check」という本来の目的から外れているような
気もしますので、外の個所で別の対策をすべきなのかもしれません。
ご参考までに、
・私の +schedule/2005/10 (schedule_2005_10.txt)
・C-c . . 中で (error "Parse ERROR!!!(at X-SC-Time:)") 場合の
Backtrace (backtrace_mhc-parse-time.txt)
・↓とした状態で C-c . . を実行した場合の *Message* への出力結果
(message_mhc-parse-time.txt)
---
(setq mhc-parse/time-regexp "\\([012]*[0-9]\\):\\([0-5][0-9]\\)")
(defun mhc-parse/time (record schedule)
(let ((time (mhc-parse/continuous-lines)))
(message "a_%s_b" time)
(let (begin end)
(cond
[snip]
; ((string-match (concat "^" mhc-parse/time-regexp " " mhc-parse/time-regexp "$") time)
; )
[snip]
---
を添付いたします。
--
NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>
Attachment:
sample.tar.gz
Description: Binary data