1 |
/* X Communication module for terminals which understand the X protocol. |
/* X Communication module for terminals which understand the X protocol. |
2 |
Copyright (C) 1986, 88, 93, 94, 96, 99, 2000, 2001 |
Copyright (C) 1986, 88, 93, 94, 96, 99, 2000, 2001, 2003 |
3 |
Free Software Foundation, Inc. |
Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
417 |
}; |
}; |
418 |
|
|
419 |
static void single_menu_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, |
static void single_menu_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, |
420 |
struct skp*)); |
void *)); |
421 |
|
|
422 |
/* This is a recursive subroutine of keymap_panes. |
/* This is a recursive subroutine of keymap_panes. |
423 |
It handles one keymap, KEYMAP. |
It handles one keymap, KEYMAP. |
489 |
not. */ |
not. */ |
490 |
|
|
491 |
static void |
static void |
492 |
single_menu_item (key, item, dummy, skp) |
single_menu_item (key, item, dummy, skp_v) |
493 |
Lisp_Object key, item, dummy; |
Lisp_Object key, item, dummy; |
494 |
struct skp *skp; |
void *skp_v; |
495 |
{ |
{ |
496 |
Lisp_Object map, item_string, enabled; |
Lisp_Object map, item_string, enabled; |
497 |
struct gcpro gcpro1, gcpro2; |
struct gcpro gcpro1, gcpro2; |
498 |
int res; |
int res; |
499 |
|
struct skp *skp = skp_v; |
500 |
|
|
501 |
/* Parse the menu item and leave the result in item_properties. */ |
/* Parse the menu item and leave the result in item_properties. */ |
502 |
GCPRO2 (key, item); |
GCPRO2 (key, item); |