null+****@clear*****
null+****@clear*****
Fri Aug 3 12:51:24 JST 2012
Yuta Yamada 2012-08-03 12:51:24 +0900 (Fri, 03 Aug 2012) New Revision: 5cb6690746bb830ca1fa1f236cc4e84c252ac50d https://github.com/logaling/logalimacs/commit/5cb6690746bb830ca1fa1f236cc4e84c252ac50d Log: Rename: loga-to-singular-form -> loga-singularize Modified files: logalimacs.el Modified: logalimacs.el (+2 -2) =================================================================== --- logalimacs.el 2012-07-23 22:19:48 +0900 (0c47f4d) +++ logalimacs.el 2012-08-03 12:51:24 +0900 (11cc1a2) @@ -340,7 +340,7 @@ Example: (loga-return-marked-region) (if current-prefix-arg (loga-input) - (loga-to-singular-form (loga-return-word-on-cursor))))) + (loga-singularize (loga-return-word-on-cursor))))) (defun loga-return-marked-region () (let ((marked-region @@ -550,7 +550,7 @@ Otherwise passed character inside region." (if (popup-live-p menu) (popup-delete menu)))) -(defun loga-to-singular-form (word) +(defun loga-singularize (word) (if (and loga-use-singular-form (not (loga-irregular-word-p word))) (loop for (regexp replace) in loga-singular-regexp -------------- next part -------------- An HTML attachment was scrubbed...ダウンロード
