(hanoi): Don't show line and column numbers.

[gnu-emacs] / lisp / play / hanoi.el

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 99e2acdd92ae85372d6e30422482ad9187bb8080..12a700d458effac90b572d4ba90d9900b41cf0c7 100644 (file)
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -76,7 +76,7 @@
          ;; If we have NRINGS rings, we label them with the numbers 0
          ;; through NRINGS-1.  The width of ring i is 2i+3; it pokes
          ;; out i spaces on either side of the pole.  Rather than
-         ;; checking if the window is wide enough to accomodate this,
+         ;; checking if the window is wide enough to accommodate this,
          ;; we make sure pole-spacing is large enough, since that
          ;; works even when we have decremented pole-spacing to make
          ;; it even.
@@ -149,14 +149,15 @@
          (setq i (1+ i))))
       (setq buffer-read-only t)
       (sit-for 0)
-      ;;
-      ;; do it!
-      ;;
-      (hanoi0 (1- nrings) pole-1 pole-2 pole-3)
+      ;; Disable display of line and column numbers, for speed.
+      (let ((line-number-mode nil)
+           (column-number-mode nil))
+       ;; do it!
+       (hanoi0 (1- nrings) pole-1 pole-2 pole-3))
       (goto-char (point-min))
       (message "Done")
       (setq buffer-read-only t)
-      (set-buffer-modified-p (buffer-modified-p))
+      (force-mode-line-update)
       (sit-for 0))))
 
 ;;;
@@ -240,4 +241,6 @@
            (backward-char (/ (+ len 1) 2))
            (delete-char 1) (insert ?\|))))))
 
-;;; hanoi.el
+(provide 'hanoi)
+
+;;; hanoi.el ends here