diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-06 20:53:41 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 15:48:31 -0200 |
| commit | 17d41cf40e36d0f0a7c48c60a7bf8880b659c438 (patch) | |
| tree | fd472dc4223ac459528cab152b9d5fc0c26a2169 | |
| parent | 706a445f831a7864256bbc375ee0d60be5ce2f6e (diff) | |
Define user button
| -rw-r--r-- | sx-button.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/sx-button.el b/sx-button.el index 2dd20d0..8309543 100644 --- a/sx-button.el +++ b/sx-button.el @@ -151,6 +151,13 @@ usually part of a code-block." 'action #'sx-button-follow-link :supertype 'sx-button) +(define-button-type 'sx-button-user + 'action #'sx-button-follow-link + 'help-echo sx-button--user-help-echo + ;; We use different faces on diferent parts of the user button. + 'face nil + :supertype 'sx-button) + (define-button-type 'sx-button-comment 'help-echo (concat "mouse-1, RET" (propertize ": write a comment" |