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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/osm a1df32a268 2/9: Do not use osm-bookmark-click for s


From: ELPA Syncer
Subject: [elpa] externals/osm a1df32a268 2/9: Do not use osm-bookmark-click for selection
Date: Fri, 22 Dec 2023 12:58:26 -0500 (EST)

branch: externals/osm
commit a1df32a268941626426593c5d408d63efca5cefa
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Do not use osm-bookmark-click for selection
---
 osm.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/osm.el b/osm.el
index 43babcb384..121428b56e 100644
--- a/osm.el
+++ b/osm.el
@@ -267,9 +267,9 @@ Should be at least 7 days according to the server usage 
policies."
   "<osm-selected-bookmark>" #'ignore
   "<osm-selected-poi>" #'ignore
   "<osm-selected-home>" #'ignore
-  "<osm-bookmark> <mouse-1>" #'osm-bookmark-click
-  "<osm-bookmark> <mouse-2>" #'osm-bookmark-click
-  "<osm-bookmark> <mouse-3>" #'osm-bookmark-click
+  "<osm-bookmark> <mouse-1>" #'osm-pin-click
+  "<osm-bookmark> <mouse-2>" #'osm-pin-click
+  "<osm-bookmark> <mouse-3>" #'osm-pin-click
   "<osm-home> <mouse-1>" #'osm-pin-click
   "<osm-home> <mouse-2>" #'osm-pin-click
   "<osm-home> <mouse-3>" #'osm-pin-click
@@ -711,14 +711,10 @@ Should be at least 7 days according to the server usage 
policies."
                          (length osm--track)))))))
 
 (defun osm-bookmark-click (event)
-  "Create or select bookmark at position of click EVENT."
+  "Create bookmark at position of click EVENT."
   (interactive "@e")
-  (if-let (pin (osm--pin-at event 'osm-bookmark))
-      (progn
-        (osm--select-pin 'osm-selected-bookmark (car pin) (cadr pin) (cdddr 
pin))
-        (osm--update))
-    (osm--select-pin-event event 'osm-selected-bookmark "New Bookmark")
-    (osm-bookmark-set)))
+  (osm--select-pin-event event 'osm-selected-bookmark "New Bookmark")
+  (osm-bookmark-set))
 
 (defun osm-org-link-click (event)
   "Store link at position of click EVENT."



reply via email to

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