null+****@clear*****
null+****@clear*****
Fri Apr 13 00:39:46 JST 2012
yuta yamada 2012-04-13 00:39:46 +0900 (Fri, 13 Apr 2012)
New Revision: fec5a487a8c8fb45ce59e74002468acbf20765fe
Log:
move "(loga-convert-from-json-to-list content)" to loga-make-popup function
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -4)
===================================================================
--- logalimacs.el 2012-04-13 00:06:10 +0900 (559d4c8)
+++ logalimacs.el 2012-04-13 00:39:46 +0900 (6655903)
@@ -195,8 +195,6 @@
(message (concat "'" (caar loga-word-cache) content "' is not found"))
(case endpoint
(:popup
- (cond (loga-possible-json-p
- (setq content (loga-convert-from-json-to-list content))))
(loga-make-popup content))
(t (loga-make-buffer content))))))
@@ -363,8 +361,8 @@
(cond
((not (require 'popup nil t))
(message "Can't lookup, it requires popup.el."))
- ((and (listp content) (not (null content)))
- (popup-cascade-menu content
+ ((and loga-possible-json-p (not (null content)))
+ (popup-cascade-menu (loga-convert-from-json-to-list content)
:point (loga-decide-point)
:width (loga-popup-width)
:keymap loga-popup-menu-keymap))