Mercurial > emacs

comparison src/keymap.c @ 21429:3552d6fbbddc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fix_submap_inheritance): Fix parens.
author Karl Heuer <kwzh@gnu.org>
date Wed, 08 Apr 1998 08:24:33 +0000
parents 8d9370825e85
children fa9ff387d260
comparison
equal deleted inserted replaced
21428:28157e58238a 21429:3552d6fbbddc
366 Lisp_Object map_parent, parent_entry; 366 Lisp_Object map_parent, parent_entry;
367 367
368 /* SUBMAP is a cons that we found as a key binding. 368 /* SUBMAP is a cons that we found as a key binding.
369 Discard the other things found in a menu key binding. */ 369 Discard the other things found in a menu key binding. */
370 370
371 if CONSP (submap) 371 if (CONSP (submap))
372 { 372 {
373 /* May be an old format menu item */ 373 /* May be an old format menu item */
374 if STRINGP (XCONS (submap)->car) 374 if (STRINGP (XCONS (submap)->car))
375 { 375 {
376 submap = XCONS (submap)->cdr; 376 submap = XCONS (submap)->cdr;
377 /* Also remove a menu help string, if any, 377 /* Also remove a menu help string, if any,
378 following the menu item name. */ 378 following the menu item name. */
379 if (CONSP (submap) && STRINGP (XCONS (submap)->car)) 379 if (CONSP (submap) && STRINGP (XCONS (submap)->car))