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

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

[elpa] externals/beardbolt af37266681 227/323: Rename rmsbolt--cleanup-o


From: ELPA Syncer
Subject: [elpa] externals/beardbolt af37266681 227/323: Rename rmsbolt--cleanup-overlays -> rmsbolt--remove-overlays
Date: Thu, 9 Mar 2023 10:58:33 -0500 (EST)

branch: externals/beardbolt
commit af372666814a5c1711592bc7e82d98f641c87ca5
Author: Erik Arvstedt <erik.arvstedt@gmail.com>
Commit: Erik Arvstedt <erik.arvstedt@gmail.com>

    Rename rmsbolt--cleanup-overlays -> rmsbolt--remove-overlays
    
    This makes it clear that all overlays are removed.
---
 rmsbolt.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 6247f342ae..1224c74862 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1396,7 +1396,7 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
              ;; TODO find a cleaner way to disable overlays.
              (with-current-buffer src-buffer
                (setq rmsbolt-line-mapping nil))
-             (rmsbolt--cleanup-overlays)))
+             (rmsbolt--remove-overlays)))
       ;; Reset automated recompile
       (setq rmsbolt--automated-compile nil))
     ;; Clear out default-set variables
@@ -1666,7 +1666,7 @@ Are you running two compilations at the same time?"))
                                  (with-current-buffer src-buffer
                                    (rmsbolt--point-visible (cl-first 
src-pts)))))))
           ;; Remove existing overlays
-          (rmsbolt--cleanup-overlays)
+          (rmsbolt--remove-overlays)
           (push (rmsbolt--setup-overlay (cl-first src-pts) (cl-second src-pts) 
src-buffer)
                 rmsbolt-overlays)
           (with-current-buffer output-buffer
@@ -1703,11 +1703,11 @@ Are you running two compilations at the same time?"))
                   (rmsbolt--goto-line line-scroll)
                   ;; If we scrolled, recenter
                   (recenter))))))
-      (rmsbolt--cleanup-overlays))
+      (rmsbolt--remove-overlays))
     ;; If not in rmsbolt-mode, don't do anything
     ))
 
-(defun rmsbolt--cleanup-overlays ()
+(defun rmsbolt--remove-overlays ()
   "Clean up overlays, assuming they are no longer needed."
   (mapc #'delete-overlay rmsbolt-overlays)
   (setq rmsbolt-overlays nil))
@@ -1715,7 +1715,7 @@ Are you running two compilations at the same time?"))
 (defun rmsbolt--kill-buffer-cleanup ()
   "A simple hook to listen for the output buffer close so we can clean up 
overlays."
   (when (eq (current-buffer) (get-buffer rmsbolt-output-buffer))
-    (rmsbolt--cleanup-overlays)))
+    (rmsbolt--remove-overlays)))
 
 (defun rmsbolt-hot-recompile ()
   "Recompile source buffer if we need to."
@@ -1772,7 +1772,7 @@ This mode is enabled in both src and assembly output 
buffers."
                                          #'rmsbolt-hot-recompile)))
     (rmsbolt--gen-temp))
    (t ;; Cleanup
-    (rmsbolt--cleanup-overlays))))
+    (rmsbolt--remove-overlays))))
 
 ;;;###autoload
 (defun rmsbolt ()



reply via email to

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