monnier pushed a commit to branch master
in repository elpa.

commit 0bae71283de2e9ad161fa786ad011ece50e99c40
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Date:   Tue Jan 28 07:45:52 2014 -0500

    * lmc.el (lmc-asm-indentation): Indent to tab-width by default.
    (lmc-step): Fix prompt for IN.
---
 packages/lmc/lmc.el |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/packages/lmc/lmc.el b/packages/lmc/lmc.el
index 6eae564..482e14a 100644
--- a/packages/lmc/lmc.el
+++ b/packages/lmc/lmc.el
@@ -1,9 +1,9 @@
 ;;; lmc.el --- Little Man Computer in Elisp
 
-;; Copyright (C) 2011, 2013  Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2013, 2014  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monn...@iro.umontreal.ca>
-;; Version: 1.2
+;; Version: 1.3
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -576,7 +576,7 @@ Also, when nil, evaluation is interrupted when the user 
hits a key.")
              (setq lmc--stopped (lmc--state))
              (force-mode-line-update)
              (message "Done.")))
-      (IN (setq lmc-acc (mod (read-number "Enter a number") 1000))
+      (IN (setq lmc-acc (mod (read-number "Enter a number: ") 1000))
           (incf lmc-pc))
       (OUT (message "Output: %03d" lmc-acc)
            (push (format "%03d" lmc-acc) lmc-output)
@@ -711,7 +711,8 @@ The machine will also stop if the user presses a key."
     (cond
      ((> (nth 0 (syntax-ppss)) 0) nil)
      ((looking-at "(") tab-width)
-     ((not (looking-at comment-start-skip)) 0)
+     ((not (looking-at comment-start-skip))
+      (if (looking-at "[ \t]*$") tab-width 0))
      ((not (looking-at "\\s<\\s<")) nil)
      ((save-excursion (forward-comment (- (point))) (bobp)) 0)
      (t (forward-comment (point-max)) (lmc-asm-indentation)))))

Reply via email to