Yuta Yamada
null+****@clear*****
Tue Aug 28 21:04:42 JST 2012
Yuta Yamada 2012-08-28 21:04:42 +0900 (Tue, 28 Aug 2012) New Revision: b721da58150ce8a1c84484a33ee512c61293f49d https://github.com/logaling/logalimacs/commit/b721da58150ce8a1c84484a33ee512c61293f49d Log: loga-character-of-point -> loga-character-at-point Modified files: logalimacs.el Modified: logalimacs.el (+2 -2) =================================================================== --- logalimacs.el 2012-08-28 21:03:40 +0900 (40857e3) +++ logalimacs.el 2012-08-28 21:04:42 +0900 (3d3fba4) @@ -601,7 +601,7 @@ Because it escape character" (loga-do-ruby (concat "puts %s/" word "/ =~ /" japanese-regexp "/ ? 0 : 1")))))) -(defun loga-character-of-point () +(defun loga-character-at-point () (lexical-let* ((line (thing-at-point 'line)) (address (- (point) (point-at-bol))) (limit (1- (- (point-at-eol) (point-at-bol)))) @@ -665,7 +665,7 @@ Otherwise passed character inside region." (defun loga-word-at-point () (interactive) (save-excursion - (let* ((character (loga-character-of-point)) + (let* ((character (loga-character-at-point)) (classification (loga-classify-language character)) kanji+hiragana) (when (string-match "[ \n]" character) -------------- next part -------------- An HTML attachment was scrubbed...다운로드
