emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 68e6430959: Add some mouse-face bits to vtable


From: Lars Ingebrigtsen
Subject: master 68e6430959: Add some mouse-face bits to vtable
Date: Fri, 15 Apr 2022 07:58:55 -0400 (EDT)

branch: master
commit 68e6430959892dc755a80e05da2fedc530b5a924
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 d620f23726..525dc9359f 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]