null+****@clear*****
null+****@clear*****
Tue Jun 5 17:21:18 JST 2012
yuta yamada 2012-06-05 17:21:18 +0900 (Tue, 05 Jun 2012) New Revision: ac9ab6d76dcf753f2784eb1168c5b2386cca125f Log: loga-popup-width -> loga-decide-width Modified files: logalimacs.el Modified: logalimacs.el (+2 -2) =================================================================== --- logalimacs.el 2012-06-05 17:15:42 +0900 (55efe93) +++ logalimacs.el 2012-06-05 17:21:18 +0900 (0a02117) @@ -432,12 +432,12 @@ (defun loga-setup-point-and-width () (case loga-popup-output-type - (:default (setq loga-popup-width (loga-popup-width) + (:default (setq loga-popup-width (loga-decide-width) loga-popup-point (loga-decide-point))) (:width (setq loga-popup-width (window-width) loga-popup-point (point-at-bol))))) -(defun loga-popup-width () +(defun loga-decide-width () (loop for (src-len . tgt-len) in (list loga-current-max-length) with sum = 0 collect (+ src-len tgt-len) into sum