From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Apr 2022 11:58:41 +0000 (+0200)
Subject: Add some mouse-face bits to vtable
X-Git-Tag: emacs-29.0.90~1931^2~545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68e6430959892dc755a80e05da2fedc530b5a924;p=emacs.git

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 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
                "<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))