[mhc:01995] patch (mhc-guess.el)

[NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx>]

野口と申します。

location guess のパッチです。mhc-current-snap20041120へのパッチとなっ
ております。

--------------------------------------
会場　ほげほげ
会場: ほげほげ
会場：ほげほげ
--------------------------------------
等を引っ掛けてもらいためのものです。

あと、時節柄:-)以下もあるとうれしかったりします...(パッチには含めてい
ません)

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    (,(concat "店[ 　]*名[ 　]*[：:]*[\n 　]*\\([^\n 　]+\\)")
     mhc-guess/make-location-from-string 1)
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

以上、ご検討いただければ幸いです。
-- 
noguchi

*** mhc-guess.el.org	Mon Nov 22 19:28:46 2004
--- mhc-guess.el	Mon Nov 22 19:30:08 2004
***************
*** 180,186 ****
  
  (defvar mhc-guess-location-regexp-list
    `(
!     (,(concat "場[ 　]*所[ 　]*[：:]*[\n 　]*\\([^\n 　]+\\)")
       mhc-guess/make-location-from-string 1)
      (,(concat "於[ 　]*\\([^\n 　]+\\)")
       mhc-guess/make-location-from-string 1)
--- 180,186 ----
  
  (defvar mhc-guess-location-regexp-list
    `(
!     (,(concat "[会 　]*場[ 　]*[所 　]*[：:]*[\n 　]*\\([^\n 　]+\\)")
       mhc-guess/make-location-from-string 1)
      (,(concat "於[ 　]*\\([^\n 　]+\\)")
       mhc-guess/make-location-from-string 1)