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

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

[elpa] externals/osm 809b371219 04/77: Add customizable osm-buffer-name


From: ELPA Syncer
Subject: [elpa] externals/osm 809b371219 04/77: Add customizable osm-buffer-name
Date: Mon, 7 Mar 2022 08:58:03 -0500 (EST)

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

    Add customizable osm-buffer-name
---
 osm.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/osm.el b/osm.el
index 19f4141c89..d2fcbe2feb 100644
--- a/osm.el
+++ b/osm.el
@@ -57,6 +57,10 @@
   "List of tile servers."
   :type '(alist :key-type symbol :value-type plist))
 
+(defcustom osm-buffer-name "*osm*"
+  "Default buffer name."
+  :type 'string)
+
 (defcustom osm-large-step 256
   "Movement step in pixel."
   :type 'integer)
@@ -444,8 +448,8 @@ The buffer is optionally assigned a UNIQUE name."
   (with-current-buffer
       (cond
        ((and (not name) (not unique) (derived-mode-p #'osm-mode)) 
(current-buffer))
-       (unique (generate-new-buffer (or name "*osm*")))
-       (t (get-buffer-create (or name "*osm*"))))
+       (unique (generate-new-buffer (or name osm-buffer-name)))
+       (t (get-buffer-create (or name osm-buffer-name))))
     (unless (derived-mode-p #'osm-mode)
       (osm-mode))
     (setq osm--zoom zoom)



reply via email to

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