Merge pull request #8 from jcs-PR/oc

Fixed #7, Right click regenerate the menu at the new location.

Author: zonuexe

right-click-context.el

@@ -207,15 +207,24 @@ You probably want to just add follows code to your .emacs file (init.el).
     (call-interactively #'mouse-set-point))
   (right-click-context-menu))
 
+(defun right-click-context--click-menu-popup ()
+  "Open a new right click context menu at the new mouse position."
+  (interactive)
+  (when (memq this-command '(right-click-context-click-menu))
+    (popup-delete (nth (1- (length popup-instances)) popup-instances))
+    (call-interactively #'right-click-context-click-menu)))
+
 ;;;###autoload
 (defun right-click-context-menu ()
   "Open Right Click Context menu."
   (interactive)
-  (let ((value (popup-cascade-menu (right-click-context--build-menu-for-popup-el (right-click-context--menu-tree) nil))))
-    (when value
-      (if (symbolp value)
-          (call-interactively value t)
-        (eval value)))))
+  (let ((popup-menu-keymap (copy-sequence popup-menu-keymap)))
+    (define-key popup-menu-keymap [mouse-3] #'right-click-context--click-menu-popup)
+    (let ((value (popup-cascade-menu (right-click-context--build-menu-for-popup-el (right-click-context--menu-tree) nil))))
+      (when value
+        (if (symbolp value)
+            (call-interactively value t)
+          (eval value))))))
 
 (provide 'right-click-context)
 ;;; right-click-context.el ends here