null+****@clear*****
null+****@clear*****
Sun Jul 22 23:04:40 JST 2012
Yuta Yamada 2012-07-22 23:04:40 +0900 (Sun, 22 Jul 2012) New Revision: 48855d086db6278b20f0534f2de9391e1d5c72bc https://github.com/logaling/logalimacs/commit/48855d086db6278b20f0534f2de9391e1d5c72bc Log: Delete needless variable and Refactor Modified files: logalimacs.el Modified: logalimacs.el (+3 -4) =================================================================== --- logalimacs.el 2012-07-22 22:56:14 +0900 (61cdcc9) +++ logalimacs.el 2012-07-22 23:04:40 +0900 (d6879e8) @@ -553,10 +553,9 @@ Otherwise passed character inside region." (if (and loga-use-singular-form (not (loga-irregular-word-p word))) (loop for (regexp replace) in loga-singular-regexp - for singular-word = word then singular-word - do (setq singular-word - (replace-regexp-in-string regexp replace singular-word)) - finally return singular-word) + if (string-match regexp word) + do (return (replace-regexp-in-string regexp replace word)) + finally return word) word)) (defun loga-irregular-word-p (sample-word) -------------- next part -------------- An HTML attachment was scrubbed...Download
