[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/beardbolt 26fc524912 083/323: Fix usage of if-let*
From: |
ELPA Syncer |
Subject: |
[elpa] externals/beardbolt 26fc524912 083/323: Fix usage of if-let* |
Date: |
Thu, 9 Mar 2023 10:58:20 -0500 (EST) |
branch: externals/beardbolt
commit 26fc52491246f6c18f702b8a9780efa4eabe2cc1
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@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
- [elpa] externals/beardbolt db87a0a6a4 080/323: Refactor rmsbolt-temp-dir to be more clear it's a private variable, (continued)
- [elpa] externals/beardbolt db87a0a6a4 080/323: Refactor rmsbolt-temp-dir to be more clear it's a private variable, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 526ed37d71 088/323: Don't add overlays to non-rmsbolt-mode buffers, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 9967391c74 105/323: Clean up pony support, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 910509ce5d 104/323: Document buffer-local tweakables in readme, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 5cecc2fb67 096/323: Fix typo in README, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 7e25ed58f2 099/323: Merge branch 'patch-1' into 'master', ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 439c7cb213 082/323: Satisfy checkdoc, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 04dd896bd5 114/323: Update README, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 6c53494f52 089/323: Add note for contributors, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 171a23628c 090/323: Reorder and clarify readme usage, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 26fc524912 083/323: Fix usage of if-let*,
ELPA Syncer <=
- [elpa] externals/beardbolt 060f170a61 085/323: Clear overlays upon exiting rmsbolt mode, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 47e9fa1f59 112/323: Update README, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt c6831044c6 092/323: Update README, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 5c5e0e35db 115/323: Add prototype support for emacs lisp bytecode, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 032b3d8eef 107/323: Add melpa badge, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt d1b0f7c2ba 118/323: Fix compilation warnings, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 0ed6a01cd1 119/323: Fix initial run of emacs-lisp disassembler, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt 77842a5f78 126/323: Add elisp support to docs, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt c00d09a850 122/323: Use hashtables instead of lists as sets for labels used, ELPA Syncer, 2023/03/09
- [elpa] externals/beardbolt c009c2df44 130/323: Trim left side of strings to activate 'starting with period' opt, ELPA Syncer, 2023/03/09