null+****@clear*****
null+****@clear*****
Mon Jun 25 19:29:00 JST 2012
yuta yamada 2012-06-25 19:29:00 +0900 (Mon, 25 Jun 2012) New Revision: 0f68a9a98e7545fea45cefc8479579bafc90dd8b https://github.com/logaling/logalimacs/commit/0f68a9a98e7545fea45cefc8479579bafc90dd8b Log: Use arguments instead of &rest statement (for lexical binding) Modified files: logalimacs.el Modified: logalimacs.el (+5 -2) =================================================================== --- logalimacs.el 2012-06-25 19:25:09 +0900 (d9c48c4) +++ logalimacs.el 2012-06-25 19:29:00 +0900 (4668e83) @@ -319,7 +319,10 @@ max-target-length (max max-target-length target-length)) finally return (cons max-source-length max-target-length))) -(defun loga-clear-condition-p (&rest assigned-lengths) +(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 @@ -327,7 +330,7 @@ (below-limit-p (< source-length loga-width-limit-source))) (and more-than-max-p less-than-window-half-p below-limit-p))) -(defun loga-less-than-window-half-p (&rest assigned-lengths) +(defun loga-less-than-window-half-p (source-length target-length) (let* ((half (- (/ (window-width) 2) 2))) (> half (max source-length target-length)))) -------------- next part -------------- An HTML attachment was scrubbed...下载
