[logaling-commit] logaling/logalimacs [master] Attach former English to irregular-noun-alist

Back to archive index

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 



More information about the logaling-commit mailing list
Back to archive index