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
