[elpa] externals/beardbolt 26fc524912 083/323: Fix usage of if-let*

[ELPA Syncer]

branch: externals/beardbolt
commit 26fc52491246f6c18f702b8a9780efa4eabe2cc1
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@gmail.com>

    Fix usage of if-let*
---
 rmsbolt.el | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index ce9997eb9c..59d92e8fd5 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1015,25 +1015,25 @@ Argument BUFFER compilation buffer."
 (defun rmsbolt-move-overlays ()
   "Function for moving overlays for rmsbolt."
   (when rmsbolt-mode
-    (if-let* ((should-run rmsbolt-use-overlays)
-              (src-buffer
-               (buffer-local-value 'rmsbolt-src-buffer (current-buffer)))
-              ;; Don't run on unsaved buffers
-              (should-run (not (buffer-modified-p src-buffer)))
-              (output-buffer (get-buffer-create rmsbolt-output-buffer))
-              (current-line (line-number-at-pos))
-              (src-current-line
-               (if (eq (current-buffer) src-buffer)
-                   current-line
-                 (get-text-property (point) 'rmsbolt-src-line)))
-              (hash-table (buffer-local-value 'rmsbolt-line-mapping 
src-buffer))
-              (asm-lines (gethash src-current-line hash-table))
-              ;; TODO also consider asm
-              (src-pts
-               (with-current-buffer src-buffer
-                 (save-excursion
-                   (rmsbolt--goto-line src-current-line)
-                   (cl-values (c-point 'bol) (c-point 'bonl))))))
+    (if-let ((should-run rmsbolt-use-overlays)
+             (src-buffer
+              (buffer-local-value 'rmsbolt-src-buffer (current-buffer)))
+             ;; Don't run on unsaved buffers
+             (should-run (not (buffer-modified-p src-buffer)))
+             (output-buffer (get-buffer-create rmsbolt-output-buffer))
+             (current-line (line-number-at-pos))
+             (src-current-line
+              (if (eq (current-buffer) src-buffer)
+                  current-line
+                (get-text-property (point) 'rmsbolt-src-line)))
+             (hash-table (buffer-local-value 'rmsbolt-line-mapping src-buffer))
+             (asm-lines (gethash src-current-line hash-table))
+             ;; TODO also consider asm
+             (src-pts
+              (with-current-buffer src-buffer
+                (save-excursion
+                  (rmsbolt--goto-line src-current-line)
+                  (cl-values (c-point 'bol) (c-point 'bonl))))))
         (let ((line-visible (not rmsbolt-goto-match))
               (src-buffer-selected (eq (current-buffer) src-buffer)))
           ;; Clear out overlays in case they are used