[ELPA-diffs] /srv/bzr/emacs/elpa r149: * lmc.el: Make it work on Emacs-22.

[Stefan Monnier]

------------------------------------------------------------
revno: 149
committer: Stefan Monnier <address@hidden>
branch nick: elpa
timestamp: Wed 2011-10-12 00:18:07 -0400
message:
  * lmc.el: Make it work on Emacs-22.
  (lmc--with-silent-modifications): Compatibility macro.
  (lmc-store-word): Use it.
  (lmc): New group.
  (lmc-store-flash): Make into a defcustom.
modified:
  packages/lmc/lmc.el

=== modified file 'packages/lmc/lmc.el'
--- a/packages/lmc/lmc.el       2011-09-29 13:49:29 +0000
+++ b/packages/lmc/lmc.el       2011-10-12 04:18:07 +0000
@@ -64,6 +64,10 @@
 (eval-when-compile (require 'cl))
 (require 'hexl)
 
+(defgroup lmc ()
+  "Customization group for the Little Man Computer simulator."
+  :group 'languages)
+
 ;;; The LMC-Simulator
 
 (defvar lmc--pc 0 "Program counter for LMC.")
@@ -72,6 +76,27 @@
 (defvar lmc-acc 0 "Accumulator for LMC.")
 (make-variable-buffer-local 'lmc--acc)
 
+;; Emacs-22 backward compatibility.
+(defmacro lmc--with-silent-modifications (&rest body)
+  (declare (debug t) (indent 0))
+  (if (fboundp 'with-silent-modifications)
+      `(with-silent-modifications ,@body)
+    (let ((modified (make-symbol "modified")))
+      `(let* ((,modified (buffer-modified-p))
+             (buffer-undo-list t)
+             (inhibit-read-only t)
+             (inhibit-modification-hooks t)
+             deactivate-mark
+             ;; Avoid setting and removing file locks and checking
+             ;; buffer's uptodate-ness w.r.t the underlying file.
+             buffer-file-name
+             buffer-file-truename)
+        (unwind-protect
+            (progn
+              ,@body)
+          (unless ,modified
+            (restore-buffer-modified-p nil)))))))
+
 ;; (defun lmc-check (cmds)
 ;;   (dolist (cmd cmds)
 ;;     (pcase cmd
@@ -506,7 +531,9 @@
       (setq addr (1+ addr))))
   (lmc-update-pc))
 
-(defvar lmc-store-flash t)
+(defcustom lmc-store-flash t
+  "If non-nil, memory words blink when modified."
+  :type 'boolean)
 
 (defun lmc-store-word (addr word)
   (save-excursion
@@ -514,18 +541,18 @@
     (if (not (re-search-forward "\t.*\t\\(.*\\)$" (line-end-position) t))
         (error "Missing memory cell %S" addr)
       (when lmc-store-flash
-        (with-silent-modifications
+        (lmc--with-silent-modifications
           (put-text-property (match-beginning 1) (point)
                              'face 'region))
         (sit-for 0.2))
       (replace-match (format "  %03d" word) t t nil 1)
       (when lmc-store-flash
         (sit-for 0.1)
-        (with-silent-modifications
+        (lmc--with-silent-modifications
           (put-text-property (match-beginning 1) (point)
                              'face 'region))
         (sit-for 0.1)
-        (with-silent-modifications
+        (lmc--with-silent-modifications
           (put-text-property (match-beginning 1) (point)
                              'face nil))
         (sit-for 0.1)))))