emacs-elpa-diffs
[Top][All Lists]
Advanced

[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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]