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

Back to archive index

null+****@clear***** null+****@clear*****
Thu Aug 9 17:38:07 JST 2012


Yuta Yamada	2012-08-09 17:38:07 +0900 (Thu, 09 Aug 2012)

  New Revision: cb87cb2fca0e4f1450c1d71a273ee21eefa30616
  https://github.com/logaling/logalimacs/commit/cb87cb2fca0e4f1450c1d71a273ee21eefa30616

  Log:
    Attach irregular-noun-alist

  Modified files:
    logalimacs.el

  Modified: logalimacs.el (+6 -1)
===================================================================
--- logalimacs.el    2012-08-09 16:30:38 +0900 (d857bba)
+++ logalimacs.el    2012-08-09 17:38:07 +0900 (3b3014e)
@@ -150,6 +150,9 @@ Example:
                                  ("ches$"        "ch")
                                  ("s$"           "")))
 
+(defvar loga-irregular-noun-alist
+  '(("stimuli" "stimulus")))
+
 (defvar loga-command-alist
   '((?a . :add)
     (?c . :config)
@@ -740,7 +743,9 @@ Otherwise passed character inside region."
 (defun loga-extract-prototype-from (source-word)
   (if (require 'stem nil t)
       (setq loga-prototype-word
-            (or (car (assoc-default source-word stem:irregular-verb-alist))
+            (or (car (assoc-default source-word
+                                    (append loga-irregular-noun-alist
+                                            stem:irregular-verb-alist)))
                 (stem:stripping-inflection source-word)))
     source-word))
 
-------------- next part --------------
An HTML attachment was scrubbed...
下載 



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