Add some mouse-face bits to vtable

* lisp/emacs-lisp/vtable.el (make-vtable)
(vtable--insert-header-line): Put mouse-face on draggable bits.

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index d620f237266b9a7b95cbf93a84dec56dbab4dc4a..525dc9359ff47f01bee6ae81b90f622b0bb37a53 100644 (file)
--- 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
                "<drag-mouse-1>" #'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))