null+****@clear*****
null+****@clear*****
Thu Jan 12 01:17:21 JST 2012
yuta yamada 2012-01-12 01:17:21 +0900 (Thu, 12 Jan 2012)
New Revision: fddc12cd1ecdfb81f8676cac8c105d045f5344a5
Log:
fix loga-add-word to quate to TERM
Modified files:
logalimacs.el
Modified: logalimacs.el (+4 -2)
===================================================================
--- logalimacs.el 2012-01-12 00:18:48 +0900 (70e76a2)
+++ logalimacs.el 2012-01-12 01:17:21 +0900 (fe09052)
@@ -85,8 +85,10 @@
(let*
((source (loga-point-or-read-string "adding word here: "))
(target (read-string "translated word here: "))
- (note (read-string "annotation here(optional): ")))
- (loga-prompt-command "add" (concat source " " target " " note))))
+ (note (read-string "annotation here(optional): "))
+ (sep "\" \""))
+ (loga-prompt-command "add"
+ (concat "\"" source sep target sep note "\""))))
(defun loga-lookup-in-hand-or-region (&optional word-for-fly-mode)
"search word from logaling. if not mark region, search word type on manual. otherwise passed character inside region."