emacs/etc/images/tabs/new.xpm at f36ff9da170abeada75d7c3d29ba420ffe7c02f4 - mirrors/emacs - Remote Forge of Software

mirrors/emacs

mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 21:52:04 -08:00

Juri Linkov 6474abc363 Use images for new/close buttons in tab-bar and tab-line.

* etc/images/tabs/new.xpm:
* etc/images/tabs/close.xpm:
New files.

* lisp/tab-bar.el (tab-bar-separator): New face.
(tab-bar-separator, tab-bar-button-new, tab-bar-button-close):
Use display property with images in default values.

* lisp/tab-line.el (tab-line-button-new, tab-line-button-close):
Use display property with images in default values.

* src/xdisp.c (tab_bar_item_info): Add new arg close_p and set it
to the value of property `close' at charpos.
(get_tab_bar_item): Add new arg close_p.
(handle_tab_bar_click): Add ctrl_modifier when close_p is non-nil.
(Fdump_tab_bar_row): Fix crash for non-X builds.

2019-09-15 23:52:22 +03:00

16 lines

224 B

C

Raw Blame History

 /* XPM */
 static char * new_xpm[] = {
 "9 9 4 1",
 " 	c None",
 ".	c #BFBFBF",
 "+	c #808080",
 "@	c #000000",
 ".........",
 "....+....",
 "....@....",
 "....@....",
 ".+@@@@@+.",
 "....@....",
 "....@....",
 "....+....",
 "........."};