null+****@clear*****
null+****@clear*****
Thu Jun 7 21:51:21 JST 2012
yuta yamada 2012-06-07 21:51:21 +0900 (Thu, 07 Jun 2012)
New Revision: f1662f90d772069887cd3939d1fd6278fbbbe819
Log:
loga-format-for-string -> loga-format-to-string
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 21:49:49 +0900 (e30ea7b)
+++ logalimacs.el 2012-06-07 21:51:21 +0900 (77fa2c9)
@@ -253,7 +253,7 @@
converted-list (loga-format keywords loga-current-max-length))
(if loga-cascade-output
converted-list
- (loga-format-for-string converted-list))))
+ (loga-format-to-string converted-list))))
(defun loga-extract-keywords-from (json)
(let* (keywords source target note)
@@ -266,7 +266,7 @@
(push (list source target note) keywords)
finally return keywords)))
-(defun loga-format-for-string (content-of-list)
+(defun loga-format-to-string (content-of-list)
(let* ((striped-list (loop for (word) in content-of-list
collect word)))
(mapconcat 'identity striped-list "\n")))