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... 下載