branch: externals/lmc
commit cff4a32cd5c08b3624b9848b91493860cd36b07f
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* lmc.el: Remove redundant declarations
(lmc--pc): Remove, unused.
(lmc-acc): Remove redundant declaration.
---
lmc.el | 14 ++++----------
1 file changed, 4 insertions(+), 10 deletions(-)
diff --git a/lmc.el b/lmc.el
index f6b2962556..67deba843e 100644
--- a/lmc.el
+++ b/lmc.el
@@ -76,16 +76,10 @@
;;; The LMC-Simulator
-(defvar lmc--pc 0 "Program counter for LMC.")
-(make-variable-buffer-local 'lmc--pc)
-
-(defvar lmc-acc 0 "Accumulator for LMC.")
-(make-variable-buffer-local 'lmc--acc)
-
(defvar lmc-turbo nil
"When non-nil, evaluate the code without extra delays.
-When nil, evaluation flashes the cursor at to help you see what's going on,
-which slows it down significantly.
+When nil, evaluation flashes the cursor at every instruction executed
+to help you see what's going on, which slows it down significantly.
Also, when nil, evaluation is interrupted when the user hits a key.")
;; (defun lmc-check (cmds)
@@ -494,13 +488,13 @@ Also, when nil, evaluation is interrupted when the user
hits a key.")
)
(defun lmc-set-pc (pc)
- "Set the Program Counter."
+ "Set the Program Counter to PC."
(interactive (list (read-number "New PC: " lmc-pc)))
(setq lmc-pc pc)
(lmc-update-pc))
(defun lmc-set-acc (acc)
- "Set the Accumulator."
+ "Set the Accumulator to ACC."
(interactive (list (read-number "New Accumulator: " lmc-acc)))
(setq lmc-acc (mod acc 1000)))
