branch: externals/dicom
commit fba2a134805d1e4ad805e5e13cc5c6c56f33d569
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve buttons
---
dicom.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/dicom.el b/dicom.el
index cc327f3546..aadb668918 100644
--- a/dicom.el
+++ b/dicom.el
@@ -217,11 +217,12 @@ progress:${percent-pos}%'"
'keymap (define-keymap
"RET" action
"<down-mouse-1>" #'ignore
- "<mouse-1>" action)
+ "<mouse-1>" (lambda (_event)
+ (interactive "@e")
+ (call-interactively action)))
'face '( :box (:line-width -2 :style released-button)
- :background "lightgray" :inherit variable-pitch :height 0.8)
- 'mouse-face '(:box (:line-width -2 :style pressed-button)
- :background "gray"))
+ :inherit variable-pitch :height 0.8)
+ 'mouse-face '(:box (:line-width -2 :style pressed-button)))
" "))
(defun dicom--insert-large ()
