# HG changeset patch # User Stefan Monnier # Date 1051735808 0 # Node ID e09e4b2fb94d6d7b67ccad832445b4e704709549 # Parent 5f08de7d192f977e7c971057d5db5b27d83517ce (easy-menu-get-map): Correctly handle non-submap bindings. diff -r 5f08de7d192f -r e09e4b2fb94d lisp/emacs-lisp/easymenu.el --- a/lisp/emacs-lisp/easymenu.el Wed Apr 30 13:10:37 2003 +0000 +++ b/lisp/emacs-lisp/easymenu.el Wed Apr 30 20:50:08 2003 +0000 @@ -600,12 +600,12 @@ ;; Prefer a map that already contains the to-be-modified entry. (when to-modify (dolist (map maps) - (when (and map (not (integerp map)) + (when (and (keymapp map) (easy-menu-get-map-look-for-name to-modify map)) (throw 'found map)))) ;; Use the first valid map. (dolist (map maps) - (when (and map (not (integerp map))) + (when (keymapp map) (throw 'found map))) ;; Otherwise, make one up. ;; Hardcoding current-local-map is lame, but it's difficult