]> git.eshelyaron.com Git - emacs.git/commit
Text-mode display of the tab-bar and emulation of clicking on a tty.
authorJuri Linkov <juri@linkov.net>
Tue, 3 Sep 2019 19:55:13 +0000 (22:55 +0300)
committerJuri Linkov <juri@linkov.net>
Tue, 3 Sep 2019 19:55:13 +0000 (22:55 +0300)
commita365251d01f553a329b6ade5b8a9dd93099caf41
tree7bfad7f767f2871726df1a80122f467da159186d
parentc2ab5e8cf3654e3e13083fb2203502d5d5f49dc6
Text-mode display of the tab-bar and emulation of clicking on a tty.

* lisp/tab-bar.el (tab-bar-mouse): New command bound to mouse-1 on [tab-bar].

* lisp/xt-mouse.el (xterm-mouse-event): Use `tab-bar' when clicking
on the tab-bar that is on the second row below menu-bar.

* src/frame.c (set_tab_bar_lines): New function.
(frame_windows_min_size): Add FRAME_TAB_BAR_LINES.
(make_initial_frame): Call set_tab_bar_lines.
(store_frame_param): Call set_tab_bar_lines for Qtab_bar_lines prop.
(Fframe_parameters): Call store_in_alist for Qtab_bar_lines.

* src/xdisp.c (display_tab_bar): New function.
(redisplay_window): Call display_tab_bar when `FRAME_WINDOW_P (f)'
is NULL on a tty.
lisp/tab-bar.el
lisp/xt-mouse.el
src/frame.c
src/xdisp.c