Mercurial > hg > xemacs-beta
diff src/gui.c @ 371:cc15677e0335 r21-2b1
Import from CVS: tag r21-2b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:03:08 +0200 |
parents | 3b3709405255 |
children | d883f39b8495 |
line wrap: on
line diff
--- a/src/gui.c Mon Aug 13 11:01:58 2007 +0200 +++ b/src/gui.c Mon Aug 13 11:03:08 2007 +0200 @@ -29,8 +29,8 @@ #include "bytecode.h" /* for struct Lisp_Compiled_Function */ Lisp_Object Q_active, Q_suffix, Q_keys, Q_style, Q_selected; -Lisp_Object Q_filter, Q_config, Q_included, Q_key_sequence; -Lisp_Object Q_accelerator, Q_label; +Lisp_Object Q_filter, Q_config, Q_included; +Lisp_Object Q_accelerator; Lisp_Object Qtoggle, Qradio; #ifdef HAVE_POPUPS @@ -134,8 +134,6 @@ else if (EQ (key, Q_style)) pgui_item->style = val; else if (EQ (key, Q_selected)) pgui_item->selected = val; else if (EQ (key, Q_keys)) pgui_item->keys = val; - else if (EQ (key, Q_key_sequence)) ; /* ignored for FSF compatability */ - else if (EQ (key, Q_label)) ; /* ignored for 21.0 implement in 21.2 */ else signal_simple_error_2 ("Unknown keyword in gui item", key, pgui_item->name); } @@ -299,11 +297,9 @@ { *buf = 0; -#ifdef HAVE_MENUBARS /* Have keys? */ if (!menubar_show_keybindings) return 0; -#endif /* Try :keys first */ if (!NILP (pgui_item->keys)) @@ -341,14 +337,12 @@ defkeyword (&Q_active, ":active"); defkeyword (&Q_suffix, ":suffix"); defkeyword (&Q_keys, ":keys"); - defkeyword (&Q_key_sequence,":key-sequence"); defkeyword (&Q_style, ":style"); defkeyword (&Q_selected, ":selected"); defkeyword (&Q_filter, ":filter"); defkeyword (&Q_config, ":config"); defkeyword (&Q_included, ":included"); defkeyword (&Q_accelerator, ":accelerator"); - defkeyword (&Q_label, ":label"); defsymbol (&Qtoggle, "toggle"); defsymbol (&Qradio, "radio");