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

* lisp/tab-bar.el (tab-bar-handle-mouse): Handle close button.

Browse source
This commit is contained in:
Juri Linkov 2019-12-16 01:08:45 +02:00
parent b73c21fa97
commit 468c871994
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/tab-bar.el
View file

@ -174,11 +174,14 @@ on a console which has no window system but does have a mouse."
(when x-position
(unless (catch 'done
(map-keymap
(lambda (_key binding)
(lambda (key binding)
(when (eq (car-safe binding) 'menu-item)
(when (> (+ column (length (nth 1 binding))) x-position)
;; TODO: handle close
(unless (get-text-property (- x-position column) 'close-tab (nth 1 binding))
(if (get-text-property (- x-position column) 'close-tab (nth 1 binding))
(let* ((close-key (vector (intern (format "C-%s" key))))
(close-def (lookup-key keymap close-key)))
(when close-def
(call-interactively close-def)))
(call-interactively (nth 2 binding)))
(throw 'done t))
(setq column (+ column (length (nth 1 binding))))))