Yuta Yamada
null+****@clear*****
Sat Aug 11 22:01:42 JST 2012
Yuta Yamada 2012-08-11 22:01:42 +0900 (Sat, 11 Aug 2012) New Revision: 1613150dca1f9ba9938dc80f017b417dea126c86 https://github.com/logaling/logalimacs/commit/1613150dca1f9ba9938dc80f017b417dea126c86 Log: Attach former English to irregular-noun-alist Modified files: logalimacs.el Modified: logalimacs.el (+10 -3) =================================================================== --- logalimacs.el 2012-08-11 21:21:07 +0900 (4a4c778) +++ logalimacs.el 2012-08-11 22:01:42 +0900 (5c42632) @@ -141,7 +141,6 @@ Example: (defvar loga-prototype-word "") (defconst loga-singular-regexp '(("ies$" "y") - ("[^t][^i]ves$" "f") ; fe ("ses$" "s") ("oes$" "o") ("xes$" "x") @@ -151,10 +150,18 @@ Example: ("s$" ""))) (defvar loga-ignoring-regexp-words - '("^basis$" "^crisis$" "ious$" "^news$" "shoes" "ss$" "^stimulus$")) + '("^basis$" "^crisis$" "ious$" "^news$" "shoes" "ss$" "^stimulus$" + ;; former English (~fe or ~f -> ~ves) + "knives" "lives" "leaves" "halves" "wives" "thieves")) (defvar loga-irregular-noun-alist - '(("stimuli" "stimulus"))) + '(("stimuli" "stimulus") + ("knives" "knife") + ("lives" "life") + ("leaves" "leaf") + ("halves" "half") + ("wives" "wife") + ("thieves" "thief"))) (defvar loga-command-alist '((?a . :add) -------------- next part -------------- An HTML attachment was scrubbed... Download