# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 844837008 0
# Node ID 939831bf210328ee3584c15600c305e9ab09607e
# Parent  454a13718b1ffa87f1a473b2a4cbc9b25d2a875e
(Fx_popup_menu): Give the menu a title when the menu is a single keymap.

diff -r 454a13718b1f -r 939831bf2103 src/xmenu.c
--- a/src/xmenu.c	Tue Oct 08 23:13:39 1996 +0000
+++ b/src/xmenu.c	Wed Oct 09 04:56:48 1996 +0000
@@ -880,6 +880,8 @@
       /* Search for a string appearing directly as an element of the keymap.
 	 That string is the title of the menu.  */
       prompt = map_prompt (keymap);
+      if (NILP (title) && !NILP (prompt))
+	title = prompt;
 
       /* Make that be the pane title of the first pane.  */
       if (!NILP (prompt) && menu_items_n_panes >= 0)