geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

fix tp 'pointer 'hander

Browse Source
This commit is contained in:
Kinneyzhang 2026-01-08 10:43:21 +08:00
parent 9d97430d62
commit 041f53025e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tp.el
View File

@ -4864,8 +4864,7 @@ e.g.3 (tp-parse-color '(:light \"red\" :dark \"green\"))"
(define-tp tp-button (type) (define-tp tp-button (type)
(let ((palette (intern (let ((palette (intern
(format "%s%s%s" "button-" (symbol-name type) "-fbg")))) (format "%s%s%s" "button-" (symbol-name type) "-fbg"))))
`( tp-palette ,palette `( tp-palette ,palette pointer hand
mouse-face highlight cursor hand
face (:box ( :line-width -1 face (:box ( :line-width -1
:style released-button))))) :style released-button)))))
@ -4880,7 +4879,7 @@ e.g.3 (tp-parse-color '(:light \"red\" :dark \"green\"))"
`( tp-underline ,color `( tp-underline ,color
tp-palette info-fg tp-palette info-fg
mouse-face highlight mouse-face highlight
cursor hand))) pointer hand)))
(define-tp tp-space (width) (define-tp tp-space (width)
`(display (space :width ,width))) `(display (space :width ,width)))