mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Add some mouse-face bits to vtable

Browse source 
* lisp/emacs-lisp/vtable.el (make-vtable)
(vtable--insert-header-line): Put mouse-face on draggable bits.
This commit is contained in:
Lars Ingebrigtsen 2022-04-15 13:58:41 +02:00
parent 4bc36f09b9
commit 68e6430959
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/vtable.el
View file

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