From 08e1d82c8818959ce2885519fe138172e2db5bf3 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 31 Oct 2011 11:53:16 +0100 Subject: [PATCH] * lisp/subr.el (keymap--menu-item-with-binding): Ignore item if not a menu-item. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74d578abf56..97ae0232d55 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-10-31 Andreas Schwab + + * subr.el (keymap--menu-item-with-binding): Ignore item if not a + menu-item. + 2011-10-30 Vinicius Jose Latorre * whitespace.el: New version 13.2.2. diff --git a/lisp/subr.el b/lisp/subr.el index 50ea49bd8c9..d5120826812 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -624,6 +624,7 @@ Don't call this function; it is for internal use only." (defun keymap--menu-item-with-binding (item binding) "Build a menu-item like ITEM but with its binding changed to BINDING." (cond + ((not (consp item)) binding) ;Not a menu-item. ((eq 'menu-item (car item)) (setq item (copy-sequence item)) (let ((tail (nthcdr 2 item))) -- 2.39.2