null+****@clear*****
null+****@clear*****
Thu Aug 9 16:30:38 JST 2012
Yuta Yamada 2012-08-09 16:30:38 +0900 (Thu, 09 Aug 2012) New Revision: e0ed4c1479d654f29bf766f38fd447808024599e https://github.com/logaling/logalimacs/commit/e0ed4c1479d654f29bf766f38fd447808024599e Log: Attach irregular-word for singular (stimulus) Modified files: logalimacs.el Modified: logalimacs.el (+1 -1) =================================================================== --- logalimacs.el 2012-08-05 16:32:32 +0900 (0a96252) +++ logalimacs.el 2012-08-09 16:30:38 +0900 (d857bba) @@ -560,7 +560,7 @@ Otherwise passed character inside region." word)) (defun loga-irregular-word-p (sample-word) - (loop for irregular-word in '("^basis$" "ious$" "^news$" "ss$") + (loop for irregular-word in '("^basis$" "ious$" "^news$" "ss$" "^stimulus$") if (string-match irregular-word sample-word) do (return t))) -------------- next part -------------- An HTML attachment was scrubbed...Download