diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-15 13:58:41 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-15 13:58:41 +0200 |
| commit | 68e6430959892dc755a80e05da2fedc530b5a924 (patch) | |
| tree | 0a3ac3cf794487add9fa2b8612d8582b4951d316 /lisp/emacs-lisp | |
| parent | 4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b (diff) | |
| download | emacs-68e6430959892dc755a80e05da2fedc530b5a924.tar.gz emacs-68e6430959892dc755a80e05da2fedc530b5a924.tar.bz2 emacs-68e6430959892dc755a80e05da2fedc530b5a924.zip | |
Add some mouse-face bits to vtable
* lisp/emacs-lisp/vtable.el (make-vtable)
(vtable--insert-header-line): Put mouse-face on draggable bits.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/vtable.el | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |