null+****@clear*****
null+****@clear*****
Thu Jun 7 21:03:41 JST 2012
yuta yamada 2012-06-07 21:03:41 +0900 (Thu, 07 Jun 2012)
New Revision: 78e9c6bc7d0a8d159ef08b458d3ad18bb9f8956c
Log:
loga-max-length -> loga-compute-max-length
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 20:06:40 +0900 (375d53d)
+++ logalimacs.el 2012-06-07 21:03:41 +0900 (8988278)
@@ -249,7 +249,7 @@
(let* ((json (json-read-from-string content))
words-list content-of-list)
(setq words-list (loga-extract-words-list-from json)
- loga-current-max-length (loga-max-length words-list)
+ loga-current-max-length (loga-compute-max-length words-list)
content-of-list (loga-compute-format words-list loga-current-max-length))
(if loga-cascade-output
content-of-list
@@ -281,7 +281,7 @@
(push (loga-append-margin source target note size) record)))
record))
-(defun loga-max-length (words)
+(defun loga-compute-max-length (words)
(let* ((max-source-length 0)
(max-target-length 0)
source-length target-length)