[elpa] externals/beardbolt 840d7f7a1e 195/323: Add :force t argument to rmsbolt-move-overlays

[ELPA Syncer]

branch: externals/beardbolt
commit 840d7f7a1e0ad10fde53ca437cdd8415b42d31f2
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Add :force t argument to rmsbolt-move-overlays
    
    This forces movement to recenter the first line of the match.
    
    I'm not fully exposing this because I don't want to hard-support it,
    this is best-of-effort for now.
---
 rmsbolt.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 65cc861243..931cc0b655 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1588,8 +1588,11 @@ Are you running two compilations at the same time?"))
                     (get-buffer-window-list))
     t))
 
-(defun rmsbolt-move-overlays ()
-  "Function for moving overlays for rmsbolt."
+(cl-defun rmsbolt-move-overlays (&key (force nil))
+  "Function for moving overlays for rmsbolt.
+  If FORCE, always scroll overlay, even when one is visible.
+  FORCE also scrolls to the first line, instead of the first line
+  of the last block."
   (when rmsbolt-mode
     (if-let ((should-run rmsbolt-use-overlays)
              (src-buffer
@@ -1641,14 +1644,17 @@ Are you running two compilations at the same time?"))
                       (setq line-visible visible))
                     (push (rmsbolt--setup-overlay start-pt end-pt 
output-buffer)
                           rmsbolt-overlays)))))
-            (unless line-visible
+            (when (or (not line-visible) force)
               ;; Scroll buffer to first line
               (when-let ((scroll-buffer (if src-buffer-selected
                                             output-buffer
                                           src-buffer))
                          (line-scroll (if src-buffer-selected
                                           (car-safe
-                                           (cl-first asm-lines))
+                                           ;; If forcing, pick the min line 
instead
+                                           (if force
+                                               (car-safe (last asm-lines))
+                                             (cl-first asm-lines)))
                                         src-current-line))
                          (window (get-buffer-window scroll-buffer)))
                 (with-selected-window window