From 54c1ec72635b7a429c7e6ff330b646e019056396 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Sun, 2 Sep 2007 16:59:00 +0000 Subject: [PATCH] Qrtl is new. (parse_tool_bar_item): Handle :rtl keyword. (syms_of_keyboard): Intern :rtl keyword. --- src/keyboard.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index ea26e620892..99fd3419737 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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; -- 2.39.2