From 07d58d289423a4b024504a85b25695f627b04eb9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Mar 1996 00:32:05 +0000 Subject: (imenu--mouse-menu): Pass proper arg to x-popup-menu. --- lisp/imenu.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/imenu.el') diff --git a/lisp/imenu.el b/lisp/imenu.el index a8d9d1567d8..633c65afaf8 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -713,6 +713,9 @@ Returns t for rescan and otherwise a position number." (if (< 1 (length (cdr menu))) (cdr menu) (cdr (cadr menu)))))) + + (or imenu-use-keymap-menu + (setq menu (list "Imenu" (delq nil menu)))) (setq position (x-popup-menu event menu)) (if imenu-use-keymap-menu (progn -- cgit v1.2.1