Mercurial > emacs

changeset 82933:7c8832009d31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 Tue, 28 Aug 2007 10:13:20 +0000
parents 7db330affbcb
children 54f31349f3b9
files src/keyboard.c
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Tue Aug 28 10:11:50 2007 +0000
+++ b/src/keyboard.c	Tue Aug 28 10:13:20 2007 +0000
@@ -7907,10 +7907,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.  */
 
@@ -8196,6 +8197,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.  */
@@ -11223,6 +11227,9 @@
   staticpro (&Qhelp_echo);
   Qhelp_echo = intern ("help-echo");
 
+  staticpro (&Qrtl);
+  Qrtl = intern (":rtl");
+
   staticpro (&item_properties);
   item_properties = Qnil;