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

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

[elpa] externals/osm ec97b1d1c0 23/77: Add separate hook function


From: ELPA Syncer
Subject: [elpa] externals/osm ec97b1d1c0 23/77: Add separate hook function
Date: Mon, 7 Mar 2022 08:58:05 -0500 (EST)

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

    Add separate hook function
---
 osm.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/osm.el b/osm.el
index 1dd77fa9c3..8494b6f8af 100644
--- a/osm.el
+++ b/osm.el
@@ -420,10 +420,10 @@ We need two distinct images which are not `eq' for the 
display properties.")
               show-trailing-whitespace nil
               display-line-numbers nil
               buffer-read-only t
-              revert-buffer-function #'osm--update
+              revert-buffer-function #'osm--revert
               bookmark-make-record-function #'osm--make-bookmark
               fringe-indicator-alist '((truncation . nil)))
-  (add-hook 'window-size-change-functions #'osm--update nil 'local))
+  (add-hook 'window-size-change-functions #'osm--revert nil 'local))
 
 (defun osm--display-tile (x y)
   "Display tile at X/Y."
@@ -467,7 +467,12 @@ We need two distinct images which are not `eq' for the 
display properties.")
     (when (> n 0)
       (format "(%s/%s)" (length osm--active) n))))
 
-(defun osm--update (&rest _)
+(defun osm--revert (&rest _)
+  "Revert buffer."
+  (when (derived-mode-p #'osm-mode)
+    (osm--update)))
+
+(defun osm--update ()
   "Update map display."
   (unless (derived-mode-p #'osm-mode)
     (error "Not an osm-mode buffer"))



reply via email to

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