null+****@clear*****
null+****@clear*****
Tue Jun 5 17:12:56 JST 2012
yuta yamada 2012-06-05 17:12:56 +0900 (Tue, 05 Jun 2012)
New Revision: f4bf53f83419024688048e9c35fc57877914cbb1
Log:
move setup function into loga-lookup function
Modified files:
logalimacs.el
Modified: logalimacs.el (+1 -1)
===================================================================
--- logalimacs.el 2012-06-05 16:56:21 +0900 (5aeb82f)
+++ logalimacs.el 2012-06-05 17:12:56 +0900 (4218175)
@@ -233,6 +233,7 @@
(message (concat "'" (caar loga-word-cache) content "' is not found"))
(case endpoint
(:popup
+ (loga-setup-point-and-width)
(loga-make-popup content))
(t (loga-make-buffer content))))))
@@ -408,7 +409,6 @@
(defun loga-make-popup (content)
(let* ((converted-content (loga-convert-from-json content)))
(setq loga-current-endpoint :popup)
- (loga-setup-point-and-width)
(typecase converted-content
(list
(popup-cascade-menu converted-content