Yuta Yamada
null+****@clear*****
Tue Oct 15 10:14:55 JST 2013
Yuta Yamada 2013-10-15 10:14:55 +0900 (Tue, 15 Oct 2013) New Revision: 27afa322616b10edbd94a925a2e6e76583923976 https://github.com/logaling/logalimacs/commit/27afa322616b10edbd94a925a2e6e76583923976 Message: loga-japanese-p: get back old form(I'm sorry, I misunderstood) Modified files: logalimacs.el Modified: logalimacs.el (+5 -6) =================================================================== --- logalimacs.el 2013-09-18 02:48:26 +0900 (cfdad55) +++ logalimacs.el 2013-10-15 10:14:55 +0900 (d69a13c) @@ -634,16 +634,15 @@ Because it escape character" (defun loga-japanese-p (word &optional choice) (lexical-let* ((striped-word (replace-regexp-in-string "'" "" word)) (sep loga-mark-region-separator) - (hiragana "\p{hiragana}") - (katakana "\p{katakana}") - (kanji "\p{Han}") + (hiragana "\\p{hiragana}") + (katakana "\\p{katakana}") + (kanji "\\p{Han}") (japanese-regexp - (shell-quote-argument - (case choice + (case choice (:hiragana hiragana) (:katakana katakana) (:kanji kanji) - (t (concat hiragana "|" katakana "|" kanji)))))) + (t (concat hiragana "|" katakana "|" kanji))))) (zerop (string-to-number (loga-do-ruby -------------- next part -------------- An HTML attachment was scrubbed...下載
