From: Gerd Möllmann Date: Tue, 18 Feb 2025 14:41:07 +0000 (+0100) Subject: * src/menu.c (x_popup_menu_1): Use calln. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=728965d341a117931d35c7120dea6cd3167ace08;p=emacs.git * 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 f7a3f55b070..c0245b42a48 100644 --- 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;