null+****@clear*****
null+****@clear*****
Sat Jul 21 16:11:30 JST 2012
Yuta Yamada 2012-07-21 16:11:30 +0900 (Sat, 21 Jul 2012) New Revision: e819505ae7bfc4021e2d5292014033f073b81955 https://github.com/logaling/logalimacs/commit/e819505ae7bfc4021e2d5292014033f073b81955 Log: Move condition for stemming Modified files: logalimacs.el Modified: logalimacs.el (+4 -4) =================================================================== --- logalimacs.el 2012-07-21 15:25:34 +0900 (6fb1364) +++ logalimacs.el 2012-07-21 16:11:30 +0900 (5d33541) @@ -432,8 +432,7 @@ Example: (and loga-use-stemming (not prototype-of-search-word) (not (equal source-word prototype-word)) - (loga-one-word-p source-word) - (ignore-errors (require 'stem nil t))))) + (loga-one-word-p source-word)))) (defun loga-less-than-window-half-p (source-length) (let* ((half (- (/ (window-width) 2) 2))) @@ -696,8 +695,9 @@ Otherwise passed character inside region." ;; TODO: pull request stem.el to MELPA (defun loga-extract-prototype-from (source-word) - (let* ((loga-prototype-word (stem:stripping-inflection source-word))) - loga-prototype-word)) + (if (require 'stem nil t) + (setq loga-prototype-word (stem:stripping-inflection source-word)) + source-word)) (provide 'logalimacs) -------------- next part -------------- An HTML attachment was scrubbed...Download
