null+****@clear*****
null+****@clear*****
Sat Jul 21 14:59:12 JST 2012
Yuta Yamada 2012-07-21 14:59:12 +0900 (Sat, 21 Jul 2012) New Revision: d978cc2329004809b98cdf74416835a07160adbc https://github.com/logaling/logalimacs/commit/d978cc2329004809b98cdf74416835a07160adbc Log: Create variable for stemming word Modified files: logalimacs.el Modified: logalimacs.el (+4 -1) =================================================================== --- logalimacs.el 2012-07-21 14:46:21 +0900 (b6a12ca) +++ logalimacs.el 2012-07-21 14:59:12 +0900 (508188b) @@ -133,6 +133,8 @@ Example: (defvar loga-buffer-string "") +(defvar loga-prototype-word "") + (defvar loga-command-alist '((?a . :add) (?c . :config) @@ -692,7 +694,8 @@ Otherwise passed character inside region." ;; TODO: pull request stem.el to MELPA (defun loga-extract-prototype-from (source-word) - (stem:stripping-inflection source-word)) + (let* ((loga-prototype-word (stem:stripping-inflection source-word))) + loga-prototype-word)) (provide 'logalimacs) -------------- next part -------------- An HTML attachment was scrubbed...Descargar
