null+****@clear*****
null+****@clear*****
Mon Jun 11 21:13:43 JST 2012
yuta yamada 2012-06-11 21:13:43 +0900 (Mon, 11 Jun 2012)
New Revision: 5af48e4314e10a8ea58892e5c32943b613185c9c
Log:
loga-correct-charecter-p -> loga-ignore-charecter-p
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-11 21:13:12 +0900 (d7bcc79)
+++ logalimacs.el 2012-06-11 21:13:43 +0900 (ee9a012)
@@ -321,12 +321,12 @@
for token in tokens
if (and (null (equal "" token))
(multibyte-string-p token)
- (loga-correct-character-p token))
+ (loga-ignore-character-p token))
do (setq sum (+ sum 2))
else do (setq sum (+ sum 1))
finally return sum))
-(defun loga-correct-character-p (token)
+(defun loga-ignore-character-p (token)
"If mixed Japanese language, wrong count at specific character. because it escape character"
(not (string-match "[\\ -/:->{-~\\?^]\\|\\[\\|\\]" token)))