[Emacs-diffs] Changes to emacs/src/keyboard.c,v [EMACS_22_BASE]

[Jan Djärv]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Jan Djärv <jhd>        07/09/02 16:59:00

Index: keyboard.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v
retrieving revision 1.899.2.4
retrieving revision 1.899.2.5
diff -u -b -r1.899.2.4 -r1.899.2.5
--- keyboard.c  29 Aug 2007 09:00:42 -0000      1.899.2.4
+++ keyboard.c  2 Sep 2007 16:59:00 -0000       1.899.2.5
@@ -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;