* lmc.el: Remove redundant declarationsexternals/lmc

(lmc--pc): Remove, unused.
(lmc-acc): Remove redundant declaration.

1 files changed, 4 insertions, 10 deletions

diff --git a/lmc.el b/lmc.el
index f6b2962..67deba8 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)))