[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/osm 42052c4be1 2/2: Use selected bookmark color for new
From: |
ELPA Syncer |
Subject: |
[elpa] externals/osm 42052c4be1 2/2: Use selected bookmark color for new bookmarks |
Date: |
Tue, 8 Mar 2022 07:57:39 -0500 (EST) |
branch: externals/osm
commit 42052c4be1554a0145a364a59c69a6637f8cf0fe
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Use selected bookmark color for new bookmarks
---
osm.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/osm.el b/osm.el
index b929617a97..a1209b8533 100644
--- a/osm.el
+++ b/osm.el
@@ -411,7 +411,7 @@ Should be at least 7 days according to the server usage
policies."
"Create bookmark at position of click EVENT."
(interactive "@e")
(pcase-let ((`(,x . ,y) (posn-x-y (event-start event))))
- (osm--put-transient-pin 'bookmark
+ (osm--put-transient-pin 'selected-bookmark
(+ osm--x (- x osm--wx))
(+ osm--y (- y osm--wy))
"New bookmark")
@@ -931,7 +931,7 @@ xmlns='http://www.w3.org/2000/svg'
xmlns:xlink='http://www.w3.org/1999/xlink'>
(unless (eq major-mode #'osm-mode)
(error "Not an osm-mode buffer"))
(unwind-protect
- (pcase-let* ((`(,lat ,lon ,desc) (osm--location-data 'bookmark
"Bookmark"))
+ (pcase-let* ((`(,lat ,lon ,desc) (osm--location-data 'selected-bookmark
"Bookmark"))
(def (osm--bookmark-name desc))
(name (read-from-minibuffer "Bookmark name: " def nil nil
nil def))
(bookmark-make-record-function