Commit 54c1ec72 authored by Jan Djärv's avatar Jan Djärv
Browse files

Qrtl is new.

(parse_tool_bar_item): Handle :rtl keyword.
(syms_of_keyboard): Intern :rtl keyword.
parent 8337e951
......@@ -7828,10 +7828,11 @@ static Lisp_Object tool_bar_item_properties;
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 @@ parse_tool_bar_item (key, item)
/* 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 @@ syms_of_keyboard ()
staticpro (&Qhelp_echo);
Qhelp_echo = intern ("help-echo");
staticpro (&Qrtl);
Qrtl = intern (":rtl");
staticpro (&item_properties);
item_properties = Qnil;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment