null+****@clear*****
null+****@clear*****
Sun Jul 22 15:37:35 JST 2012
Yuta Yamada 2012-07-22 15:37:35 +0900 (Sun, 22 Jul 2012) New Revision: 77104156cfa5950276e238f45356c57098af15ae https://github.com/logaling/logalimacs/commit/77104156cfa5950276e238f45356c57098af15ae Log: loga-extract-prototype-from: Attach statement for irregular-verb Modified files: logalimacs.el Modified: logalimacs.el (+3 -1) =================================================================== --- logalimacs.el 2012-07-22 14:16:19 +0900 (a38f519) +++ logalimacs.el 2012-07-22 15:37:35 +0900 (f5638ca) @@ -726,7 +726,9 @@ Otherwise passed character inside region." ;; TODO: pull request stem.el to MELPA (defun loga-extract-prototype-from (source-word) (if (require 'stem nil t) - (setq loga-prototype-word (stem:stripping-inflection source-word)) + (setq loga-prototype-word + (or (car (assoc-default source-word stem:irregular-verb-alist)) + (stem:stripping-inflection source-word))) source-word)) (provide 'logalimacs) -------------- next part -------------- An HTML attachment was scrubbed...Download
