null+****@clear*****
null+****@clear*****
Wed Jun 6 11:35:04 JST 2012
yuta yamada 2012-06-06 11:35:04 +0900 (Wed, 06 Jun 2012)
New Revision: dd0a1606c1be113da801214ab13141edc1140cac
Log:
move loga-setup-point-and-width to change the location to be executed
Modified files:
logalimacs.el
Modified: logalimacs.el (+1 -1)
===================================================================
--- logalimacs.el 2012-06-05 17:23:56 +0900 (890c54f)
+++ logalimacs.el 2012-06-06 11:35:04 +0900 (a162334)
@@ -233,7 +233,6 @@
(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))))))
@@ -409,6 +408,7 @@
(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