branch: externals/beardbolt
commit 495d481a94829badbecef755891fc66531b30117
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@gmail.com>
Move rmsbolt-command initialization to end
---
rmsbolt.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index 2cbb53f38d..e5b399fa8d 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1034,18 +1034,18 @@ Argument OVERRIDE-BUFFER use this buffer instead of
reading from the output file
(cmd rmsbolt-command)
(force-disass (not (rmsbolt-l-supports-asm lang)))
(force-asm (not (rmsbolt-l-supports-disass lang))))
- (when (not cmd)
- (setq-local rmsbolt-command
- (let ((new-cmd (rmsbolt-l-compile-cmd lang)))
- (pcase new-cmd
- ((pred functionp) (funcall new-cmd src-buffer))
- (_ new-cmd)))))
(when (and force-disass force-asm)
(error "No disassemble method found for this langauge, please double
check spec"))
(when force-disass
(setq-local rmsbolt-disassemble t))
(when force-asm
(setq-local rmsbolt-disassemble nil))
+ (when (not cmd)
+ (setq-local rmsbolt-command
+ (let ((new-cmd (rmsbolt-l-compile-cmd lang)))
+ (pcase new-cmd
+ ((pred functionp) (funcall new-cmd src-buffer))
+ (_ new-cmd)))))
src-buffer))
(defun rmsbolt--demangle-command (existing-cmd lang src-buffer)
