procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Qrtl is new.

Browse source 
(parse_tool_bar_item): Handle :rtl keyword.
(syms_of_keyboard): Intern :rtl keyword.
This commit is contained in:
Jan Djärv 2007-08-28 10:14:02 +00:00
parent fface67742
commit cf0590c451
2 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/ChangeLog
View file

@ -1,3 +1,18 @@
2007-08-28 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* keyboard.c: Qrtl is new.
(parse_tool_bar_item): Handle :rtl keyword.
(syms_of_keyboard): Intern :rtl keyword.
* dispextern.h (enum tool_bar_item_idx): Add TOOL_BAR_ITEM_RTL_IMAGE.
* gtkutil.c (xg_tool_bar_expose_callback): Just do SET_FRAME_GARBAGED
so no Lisp code is executed.
(file_for_image, find_rtl_image): New functions.
(xg_get_image_for_pixmap): Use file_for_image
(update_frame_tool_bar): If direction is RTL, use RTL image if
defined. Use Gtk stock images if defined.
2007-08-27 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* macterm.c (x_draw_composite_glyph_string_foreground): Draw rectangle

9
src/keyboard.c
View file

@ -7907,10 +7907,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. */
@ -8196,6 +8197,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. */
@ -11223,6 +11227,9 @@ syms_of_keyboard ()
staticpro (&Qhelp_echo);
Qhelp_echo = intern ("help-echo");
staticpro (&Qrtl);
Qrtl = intern (":rtl");
staticpro (&item_properties);
item_properties = Qnil;