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

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

[elpa] externals/osm 87b5fdb8eb 4/7: Recreate overlay


From: ELPA Syncer
Subject: [elpa] externals/osm 87b5fdb8eb 4/7: Recreate overlay
Date: Mon, 14 Mar 2022 11:57:46 -0400 (EDT)

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

    Recreate overlay
---
 osm.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/osm.el b/osm.el
index 8c8b463556..110f3bb42f 100644
--- a/osm.el
+++ b/osm.el
@@ -975,6 +975,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
 
 (defun osm--display-copyright ()
   "Display copyright info."
+  (when osm--copyright-overlay (delete-overlay osm--copyright-overlay))
   (when-let (copyright (and osm-copyright (osm--server-property :copyright)))
     (setq copyright (replace-regexp-in-string
                      "{\\(.*?\\)|\\(.*?\\)}"
@@ -983,9 +984,7 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
                         (match-string 1 str)
                         (match-string 2 str)))
                      (concat (string-join copyright " | ") "\n")))
-    (if osm--copyright-overlay
-        (move-overlay osm--copyright-overlay (point-min) (point-min))
-      (setq osm--copyright-overlay (make-overlay (point-min) (point-min))))
+    (setq osm--copyright-overlay (make-overlay (point-min) (point-min)))
     (add-face-text-property
      0 (length copyright)
      '(:inherit variable-pitch :height 0.75)



reply via email to

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