null+****@clear*****
null+****@clear*****
Thu Jun 7 21:49:49 JST 2012
yuta yamada 2012-06-07 21:49:49 +0900 (Thu, 07 Jun 2012)
New Revision: 3324911badb3e9b2d746fad047085782dd7dce87
Log:
json -> mixed-list
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 21:47:30 +0900 (b4543ff)
+++ logalimacs.el 2012-06-07 21:49:49 +0900 (e30ea7b)
@@ -246,9 +246,9 @@
(return (concat word " -S=en -T=ja")))))
(defun loga-convert-from-json (raw-json-data)
- (let* ((json (json-read-from-string raw-json-data))
+ (let* ((mixed-list (json-read-from-string raw-json-data))
keywords converted-list)
- (setq keywords (loga-extract-keywords-from json)
+ (setq keywords (loga-extract-keywords-from mixed-list)
loga-current-max-length (loga-compute-max-length keywords)
converted-list (loga-format keywords loga-current-max-length))
(if loga-cascade-output