From: Jim Blandy <jimb@redhat.com>
Date: Thu, 15 Jul 1993 04:58:59 +0000 (+0000)
Subject: * keyboard.c (menu_bar_one_keymap): If the key's binding is the
X-Git-Tag: emacs-19.34~11754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae450a9555f2736335934a7eb6246284dd2e2752;p=emacs.git

* keyboard.c (menu_bar_one_keymap): If the key's binding is the
symbol `undefined', don't try to take that symbol's cdr before
passing it to menu_bar_item; pass the `undefined' binding itself,
so menu_bar_item can remove bindings for the same key from result.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 21bdb6c16bd..c840979c88f 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3235,7 +3235,7 @@ menu_bar_one_keymap (keymap, result)
 	    }
 	  else if (EQ (binding, Qundefined))
 	    result = menu_bar_item (key, item_string,
-				    Fcdr (binding), result);
+				    binding, result);
 	}
       else if (XTYPE (item) == Lisp_Vector)
 	{
@@ -3256,7 +3256,7 @@ menu_bar_one_keymap (keymap, result)
 		}
 	      else if (EQ (binding, Qundefined))
 		result = menu_bar_item (key, item_string,
-					Fcdr (binding), result);
+					binding, result);
 	    }
 	}
     }