[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/osm 2edf483edf: Button highlighting
From: |
ELPA Syncer |
Subject: |
[elpa] externals/osm 2edf483edf: Button highlighting |
Date: |
Thu, 17 Mar 2022 17:57:39 -0400 (EDT) |
branch: externals/osm
commit 2edf483edfc0e1e131e61733419ff349c991f960
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Button highlighting
---
osm.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/osm.el b/osm.el
index aeb88349dc..4477c09ab6 100644
--- a/osm.el
+++ b/osm.el
@@ -1037,13 +1037,11 @@ xmlns='http://www.w3.org/2000/svg'
xmlns:xlink='http://www.w3.org/1999/xlink'>
(defun osm--format-link (text url)
"Format link with TEXT to URL."
- (propertize text 'face 'button
- 'keymap (let ((map (make-sparse-keymap)))
- (define-key map [mouse-1]
- (lambda ()
- (interactive "@")
- (browse-url url)))
- map)))
+ (propertize text
+ 'face 'button
+ 'button t
+ 'category 'default-button
+ 'action (lambda (_) (browse-url url))))
(defun osm--display-copyright ()
"Display copyright info."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/osm 2edf483edf: Button highlighting,
ELPA Syncer <=