[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 68e6430959: Add some mouse-face bits to vtable,
Lars Ingebrigtsen <=