null+****@clear*****
null+****@clear*****
Thu Jun 7 22:19:05 JST 2012
yuta yamada 2012-06-07 22:19:05 +0900 (Thu, 07 Jun 2012)
New Revision: 3aedaa36ae082e49a8f55cde380511f83e02a61a
Log:
collect -> do
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 22:11:39 +0900 (46b6270)
+++ logalimacs.el 2012-06-07 22:19:05 +0900 (c1301f4)
@@ -292,8 +292,8 @@
(< max-target-length target-length))
(< source-length loga-width-limit-source)
(loga-less-than-half-p source-length target-length))
- collect (setq max-source-length (max max-source-length source-length)
- max-target-length (max max-target-length target-length))
+ do (setq max-source-length (max max-source-length source-length)
+ max-target-length (max max-target-length target-length))
finally return (cons max-source-length max-target-length))))
(defun loga-less-than-half-p (source-length target-length)