Mercurial > emacs
comparison src/xmenu.c @ 7832:44cfbd972edd
(menu_item_equiv_key): Check whether def1 matches
un-aliased command name as well as given command name.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 07 Jun 1994 18:31:56 +0000 |
parents | 41dda174ca7c |
children | 280cc1ac9f4a |
comparison
equal
deleted
inserted
replaced
7831:343a21c51172 | 7832:44cfbd972edd |
---|---|
322 def1 = Qnil; | 322 def1 = Qnil; |
323 if (!NILP (savedkey)) | 323 if (!NILP (savedkey)) |
324 def1 = Fkey_binding (savedkey, Qnil); | 324 def1 = Fkey_binding (savedkey, Qnil); |
325 /* If not, update it. */ | 325 /* If not, update it. */ |
326 if (! EQ (def1, def) | 326 if (! EQ (def1, def) |
327 /* If the command is an alias for another | |
328 (such as easymenu.el and lmenu.el set it up), | |
329 check if the original command matches the cached command. */ | |
330 && !(SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function) | |
331 && EQ (def1, XSYMBOL (def)->function)) | |
327 /* If something had no key binding before, don't recheck it-- | 332 /* If something had no key binding before, don't recheck it-- |
328 doing that takes too much time and makes menus too slow. */ | 333 doing that takes too much time and makes menus too slow. */ |
329 && !(!NILP (cachelist) && NILP (savedkey))) | 334 && !(!NILP (cachelist) && NILP (savedkey))) |
330 { | 335 { |
331 changed = 1; | 336 changed = 1; |