null+****@clear*****
null+****@clear*****
Mon Mar 5 23:00:09 JST 2012
yuta yamada 2012-03-05 23:00:09 +0900 (Mon, 05 Mar 2012)
New Revision: a45ccd5a2acf5234cd8d9363fdc2a55b15052520
Log:
Fix calc of length
Modified files:
logalimacs.el
Modified: logalimacs.el (+3 -2)
===================================================================
--- logalimacs.el 2012-03-05 20:38:05 +0900 (417944d)
+++ logalimacs.el 2012-03-05 23:00:09 +0900 (7012fb6)
@@ -239,10 +239,11 @@
(loop for (source target) in words do
(setq source-length (loga-decide-length source)
target-length (loga-decide-length target))
- if (and (< max-source-length source-length)
+ if (and (or (< max-source-length source-length)
+ (< 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 source-length
+ collect (setq max-source-length (max max-source-length source-length)
max-target-length (max max-target-length target-length))
finally (setq loga-current-max-length (cons max-source-length max-target-length)))))