Yuta Yamada
null+****@clear*****
Sun Sep 2 01:35:16 JST 2012
Yuta Yamada 2012-09-02 01:35:16 +0900 (Sun, 02 Sep 2012) New Revision: 70a370f2df07f469b8a09e9ecbdeb46e8947e7bc https://github.com/logaling/logalimacs/commit/70a370f2df07f469b8a09e9ecbdeb46e8947e7bc Log: loga-japanese-p: Use separator for query string of loga-add/update Modified files: logalimacs.el Modified: logalimacs.el (+3 -2) =================================================================== --- logalimacs.el 2012-09-02 01:29:42 +0900 (56f28ca) +++ logalimacs.el 2012-09-02 01:35:16 +0900 (0d7c79f) @@ -590,7 +590,8 @@ Because it escape character" "en"))) (defun loga-japanese-p (word &optional choice) - (lexical-let* ((hiragana "\\p{hiragana}") + (lexical-let* ((sep loga-mark-region-separator) + (hiragana "\\p{hiragana}") (katakana "\\p{katakana}") (kanji "\\p{Han}") (japanese-regexp @@ -602,7 +603,7 @@ Because it escape character" (zerop (string-to-number (loga-do-ruby - (concat "puts %s/" word "/ =~ /" japanese-regexp "/ ? 0 : 1")))))) + (concat "puts %s" sep word sep " =~ /" japanese-regexp "/ ? 0 : 1")))))) (defun loga-character-at-point () (lexical-let* ((line (thing-at-point 'line)) -------------- next part -------------- An HTML attachment was scrubbed...Télécharger
