Yuta Yamada
null+****@clear*****
Sun Aug 26 21:12:57 JST 2012
Yuta Yamada 2012-08-26 21:12:57 +0900 (Sun, 26 Aug 2012) New Revision: f2a390e1ef9557f8afa3cc9a60c2bbcecd35fb1c https://github.com/logaling/logalimacs/commit/f2a390e1ef9557f8afa3cc9a60c2bbcecd35fb1c Log: loga-japanese-p: allow argument for distinction of Japanese Modified files: logalimacs.el Modified: logalimacs.el (+15 -6) =================================================================== --- logalimacs.el 2012-08-26 16:35:11 +0900 (170a80d) +++ logalimacs.el 2012-08-26 21:12:57 +0900 (b1f6ded) @@ -583,12 +583,21 @@ Because it escape character" ((string-match "[a-zA-Z]" word) "en"))) -(defun loga-japanese-p (word) - (zerop - (string-to-number - (loga-do-ruby - (concat "puts %s/" word "/ =~ /\\p{hiragana}|\\p{katakana}|\\p{Han}/ " - "? 0 : 1"))))) +(defun loga-japanese-p (word &optional choice) + (let* ((hiragana "\\p{hiragana}") + (katakana "\\p{katakana}") + (kanji "\\p{Han}") + (japanese-regexp + (case choice + (:hiragana hiragana) + (:katakana katakana) + (:kanji kanji) + (t (concat hiragana "|" katakana "|" kanji))))) + (zerop + (string-to-number + (loga-do-ruby + (concat "puts %s/" word "/ =~ /" japanese-regexp "/ ? 0 : 1")))))) + ;;;###autoload (defun loga-lookup-at-manually () -------------- next part -------------- An HTML attachment was scrubbed...Download
