Mercurial > emacs
diff src/keyboard.c @ 78720:2894950842e6
Qrtl is new.
(parse_tool_bar_item): Handle :rtl keyword.
(syms_of_keyboard): Intern :rtl keyword.
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Sun, 02 Sep 2007 16:59:00 +0000 |
parents | c9c7e7b146ec |
children | ef577a55cb2a |
line wrap: on
line diff
--- a/src/keyboard.c Sun Sep 02 16:58:49 2007 +0000 +++ b/src/keyboard.c Sun Sep 02 16:59:00 2007 +0000 @@ -7828,10 +7828,11 @@ static int ntool_bar_items; -/* The symbols `tool-bar', and `:image'. */ +/* The symbols `tool-bar', `:image' and `:rtl'. */ extern Lisp_Object Qtool_bar; Lisp_Object QCimage; +Lisp_Object Qrtl; /* Function prototypes. */ @@ -8117,6 +8118,9 @@ /* Value is either a single image specification or a vector of 4 such specifications for the different button states. */ PROP (TOOL_BAR_ITEM_IMAGES) = value; + else if (EQ (key, Qrtl)) + /* ':rtl STRING' */ + PROP (TOOL_BAR_ITEM_RTL_IMAGE) = value; } /* If got a filter apply it on binding. */ @@ -11145,6 +11149,9 @@ staticpro (&Qhelp_echo); Qhelp_echo = intern ("help-echo"); + staticpro (&Qrtl); + Qrtl = intern (":rtl"); + staticpro (&item_properties); item_properties = Qnil;