diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2011-10-31 11:53:16 +0100 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2011-10-31 11:53:16 +0100 |
| commit | 08e1d82c8818959ce2885519fe138172e2db5bf3 (patch) | |
| tree | ff0ddb12a906fa7f24fd002968c579fa115c5e6b /lisp/subr.el | |
| parent | c5248a7e98f8b57d8b1fc42ece44f16b58415b0f (diff) | |
| download | emacs-08e1d82c8818959ce2885519fe138172e2db5bf3.tar.gz | |
* lisp/subr.el (keymap--menu-item-with-binding): Ignore item if not a
menu-item.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 1 |
1 files changed, 1 insertions, 0 deletions
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))) |