null+****@clear*****
null+****@clear*****
Sun Jul 22 22:07:19 JST 2012
Yuta Yamada 2012-07-22 22:07:19 +0900 (Sun, 22 Jul 2012) New Revision: 01da2536d5b61f199b095ca2c3973502d70afa43 https://github.com/logaling/logalimacs/commit/01da2536d5b61f199b095ca2c3973502d70afa43 Log: Fix regexp for singular-form Modified files: logalimacs.el Modified: logalimacs.el (+7 -2) =================================================================== --- logalimacs.el 2012-07-22 15:37:35 +0900 (f5638ca) +++ logalimacs.el 2012-07-22 22:07:19 +0900 (de7227f) @@ -542,8 +542,13 @@ Otherwise passed character inside region." (defun loga-to-singular-form (word) (if loga-use-singular-form (loop for (regexp replace) in '(("ies$" "y") - ("ves$" "fe") - ("es$" "") + ("[^t][^i]ves$" "f") ; fe + ("ses$" "s") + ("oes$" "o") + ("xes$" "x") + ("sses$" "ss") + ("shes$" "sh") + ("ches$" "ch") ("s$" "")) for singular-word = word then singular-word do (setq singular-word -------------- next part -------------- An HTML attachment was scrubbed...下载
