(hanoi): Use force-mode-line-update.

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index a68fea7..17184af 100644 (file)
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -156,7 +156,7 @@
       (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))))
 
 ;;;