# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848975 0
# Node ID ba3fe06d55eb5862f6c19bbdea011e58ebb40e87
# Parent  e21661a78292ed70cdfe99a6a35e88f551de321c
(hanoi): Use force-mode-line-update.

diff -r e21661a78292 -r ba3fe06d55eb lisp/play/hanoi.el
--- a/lisp/play/hanoi.el	Tue Apr 25 22:29:17 1995 +0000
+++ b/lisp/play/hanoi.el	Tue Apr 25 22:29:35 1995 +0000
@@ -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))))
 
 ;;;