null+****@clear*****
null+****@clear*****
Mon Mar 5 20:38:05 JST 2012
yuta yamada 2012-03-05 20:38:05 +0900 (Mon, 05 Mar 2012)
New Revision: 495485cea1f92118f92186a2bc99c980e15c4e22
Log:
Fix useless condition
Modified files:
logalimacs.el
Modified: logalimacs.el (+4 -5)
===================================================================
--- logalimacs.el 2012-02-28 02:33:46 +0900 (34bc62f)
+++ logalimacs.el 2012-03-05 20:38:05 +0900 (417944d)
@@ -375,11 +375,10 @@
(let* ((half (/ (window-width) 2))
(quarter (/ half 2))
(cursor (- (point) (point-at-bol))))
- (cond ((< half (loga-popup-width))
- (point-at-bol))
- ((< half cursor)
- (+ (point-at-bol) quarter))
- (t (point)))))
+ (cond
+ ((< half cursor)
+ (+ (point-at-bol) quarter))
+ (t (point)))))
(defun loga-popup-width ()
(loop for (src-len . tgt-len) in (list loga-current-max-length)