null+****@clear*****
null+****@clear*****
Fri Jun 8 00:01:09 JST 2012
yuta yamada 2012-06-08 00:01:09 +0900 (Fri, 08 Jun 2012)
New Revision: b7b1afcfc905bf7f1585e11d124e2d080e5ab5de
Log:
Delete unnecessary the if statement
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -7)
===================================================================
--- logalimacs.el 2012-06-07 23:58:50 +0900 (05a9d6a)
+++ logalimacs.el 2012-06-08 00:01:09 +0900 (5b09c20)
@@ -303,9 +303,7 @@
(defun loga-less-than-window-half-p (source-length target-length)
(let* ((half (- (/ (window-width) 2) 2)))
- (if (> half (max source-length target-length))
- t
- nil)))
+ (> half (max source-length target-length))))
(defun loga-compute-length (sentence)
(loop with sum = 0
@@ -320,10 +318,7 @@
(defun loga-correct-character-p (token)
"If mixed Japanese language, wrong count at specific character. because it escape character"
- (if (not (string-match
- "[\\ -/:->{-~\\?^]\\|\\[\\|\\]" token))
- t
- nil))
+ (not (string-match "[\\ -/:->{-~\\?^]\\|\\[\\|\\]" token)))
(defun loga-append-margin (source target note max-length)
(let* ((margin (- (car max-length) (loga-compute-length source)))