From 68e6430959892dc755a80e05da2fedc530b5a924 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 15 Apr 2022 13:58:41 +0200 Subject: [PATCH] Add some mouse-face bits to vtable * lisp/emacs-lisp/vtable.el (make-vtable) (vtable--insert-header-line): Put mouse-face on draggable bits. --- lisp/emacs-lisp/vtable.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el index d620f237266..525dc9359ff 100644 --- a/lisp/emacs-lisp/vtable.el +++ b/lisp/emacs-lisp/vtable.el @@ -158,6 +158,7 @@ See info node `(vtable)Top' for vtable documentation." " " 'display (list 'space :width (list (vtable--compute-width table divider-width))))) + 'mouse-face 'highlight 'keymap (define-keymap "" #'vtable--drag-resize-column @@ -629,6 +630,7 @@ This also updates the displayed table." (let* ((name (propertize (vtable-column-name column) 'face (list 'header-line (vtable-face table)) + 'mouse-face 'header-line-highlight 'keymap cmap)) (start (point)) (indicator (vtable--indicator table index)) -- 2.39.5