null+****@clear*****
null+****@clear*****
Thu Aug 9 18:10:56 JST 2012
Yuta Yamada 2012-08-09 18:10:56 +0900 (Thu, 09 Aug 2012) New Revision: ffdef931ca8b5fe3ce01a9ee01614a80012f0ee2 https://github.com/logaling/logalimacs/commit/ffdef931ca8b5fe3ce01a9ee01614a80012f0ee2 Log: Attach irregular-word for singular (crisis) Modified files: logalimacs.el Modified: logalimacs.el (+1 -1) =================================================================== --- logalimacs.el 2012-08-09 17:38:07 +0900 (3b3014e) +++ logalimacs.el 2012-08-09 18:10:56 +0900 (f643212) @@ -563,7 +563,7 @@ Otherwise passed character inside region." word)) (defun loga-irregular-word-p (sample-word) - (loop for irregular-word in '("^basis$" "ious$" "^news$" "ss$" "^stimulus$") + (loop for irregular-word in '("^basis$" "^crisis$" "ious$" "^news$" "ss$" "^stimulus$") if (string-match irregular-word sample-word) do (return t))) -------------- next part -------------- An HTML attachment was scrubbed...下載
