null+****@clear*****
null+****@clear*****
Thu Jun 28 21:58:30 JST 2012
yuta yamada 2012-06-28 21:58:30 +0900 (Thu, 28 Jun 2012) New Revision: b0439b9a3036c1bc4052a0983ab8f72139e61656 https://github.com/logaling/logalimacs/commit/b0439b9a3036c1bc4052a0983ab8f72139e61656 Log: Justify to line Modified files: logalimacs.el Modified: logalimacs.el (+4 -6) =================================================================== --- logalimacs.el 2012-06-28 21:29:45 +0900 (b620ecd) +++ logalimacs.el 2012-06-28 21:58:30 +0900 (4961006) @@ -337,10 +337,8 @@ max-target-length (max max-target-length target-length)) finally return (cons max-source-length max-target-length))) -(defun loga-clear-condition-p (max-source-length - max-target-length - source-length - target-length) +(defun loga-clear-condition-p (max-source-length max-target-length + source-length target-length) (let ((more-than-max-p (or (< max-source-length source-length) (< max-target-length target-length))) (less-than-window-half-p @@ -487,8 +485,8 @@ (case (loga-popup-output-type) (:auto (setq loga-popup-width (loga-compute-width) loga-popup-point (loga-compute-point))) - (:max (setq loga-popup-width (window-width) - loga-popup-point (point-at-bol))))) + (:max (setq loga-popup-width (window-width) + loga-popup-point (point-at-bol))))) (defun loga-compute-width () (loop for (source-length . target-length) in (list loga-current-max-length) -------------- next part -------------- An HTML attachment was scrubbed...Download