* src/menu.c (x_popup_menu_1): Use calln.

(cherry picked from commit bf067daf0df9441ef94ffe6ba2b2d1add3a4ee39)

diff --git a/src/menu.c b/src/menu.c
index f7a3f55b070bb3c65648b4c029cbb1effcf4f08e..c0245b42a481bed3934abd57162deae0fe7cd401 100644 (file)
--- a/src/menu.c
+++ b/src/menu.c
@@ -1112,10 +1112,7 @@ Lisp_Object
 x_popup_menu_1 (Lisp_Object position, Lisp_Object menu)
 {
   if (!NILP (Vx_popup_menu_function))
-    {
-      Lisp_Object args[] = { Qx_popup_menu_function, position, menu, };
-      return run_hook_with_args (3, args, Ffuncall);
-    }
+    return calln (Qx_popup_menu_function, position, menu);
 
   Lisp_Object keymap, tem, tem2 = Qnil;
   int xpos = 0, ypos = 0;