null+****@clear*****
null+****@clear*****
Fri Apr 13 00:06:10 JST 2012
yuta yamada 2012-04-13 00:06:10 +0900 (Fri, 13 Apr 2012)
New Revision: b8a5d822d237fe7cc3fe4e7da92fda338c4e8ed5
Log:
move "setq loga-current-max-length ~~~"
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-04-12 23:53:53 +0900 (b597e82)
+++ logalimacs.el 2012-04-13 00:06:10 +0900 (559d4c8)
@@ -217,7 +217,7 @@
('target (setq target var))
('note (setq note var))))
(push (list source target note) words-list))
- (loga-max-length words-list)
+ (setq loga-current-max-length (loga-max-length words-list))
(loga-decide-format words-list loga-current-max-length)))
(defun loga-decide-format (words size)
@@ -243,7 +243,7 @@
(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))
- finally (setq loga-current-max-length (cons max-source-length max-target-length)))))
+ finally return (cons max-source-length max-target-length))))
(defun loga-less-than-half-p (source-length target-length)
(let* ((half (- (/ (window-width) 2) 2)))