diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 03:35:54 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 03:35:54 +0000 |
| commit | 771bcf75deb0596331a539a57dcf37c278e34910 (patch) | |
| tree | 76cd29df0f7863bc1181658cc8f114aad0c18e12 | |
| parent | 4f18a249d23eeb08e1cd29bb1439293b3e7d6977 (diff) | |
Fix button-map
| -rw-r--r-- | sx-button.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sx-button.el b/sx-button.el index f009043..3f532bb 100644 --- a/sx-button.el +++ b/sx-button.el @@ -28,12 +28,12 @@ ;;; Command definitions -(defvar sx-button-keymap +;; This extends `button-map', which already defines RET and mouse-1. +(defvar sx-button-map (let ((map (copy-keymap button-map))) - (define-key map "w" #'sx-button-copy)) - "Keymap used on buttons. -This extends `button-map', which already defines RET and -mouse-1.") + (define-key map "w" #'sx-button-copy) + map) + "Keymap used on buttons.") (defun sx-button-copy () "Copy the content of thing at point. @@ -57,7 +57,7 @@ This is usually a link's URL, or the content of a code block." ;;; Type definitions (define-button-type 'sx-button 'follow-link t - 'keymap 'sx-button-map) + 'keymap sx-button-map) (define-button-type 'sx-question-mode-title 'face 'sx-question-mode-title |