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

mirrors/emacs

mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00

Juri Linkov 095908aec4 Tab-line horizontal scrolling with UI buttons and commands (bug#37667)

* etc/images/tabs/left-arrow.xpm:
* etc/images/tabs/right-arrow.xpm: New images.

* lisp/tab-line.el (tab-line-left-map, tab-line-right-map): New keymaps.
(tab-line-left-button, tab-line-right-button): New variables.
(tab-line-tab-name-function): Turn defvar into defcustom.
(tab-line-tab-name-buffer): New function.
(tab-line-tab-name-truncated-buffer): Rename from tab-line-tab-name.
(tab-line-tabs-limit): Default to nil.
(tab-line-tabs): Behavior depends on tab-line-tabs-limit.
(tab-line-format): Use window-parameter tab-line-hscroll.
Add left/right buttons.
(tab-line-hscroll): New function.
(tab-line-hscroll-right, tab-line-hscroll-left): New commands
bound to mouse-wheel.  Rebind tab-switching commands to	mouse-wheel
with Ctrl-modifier.

2019-10-23 00:17:27 +03:00

16 lines

231 B

C

Raw Blame History

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