From 433c31eb5f92a18870a068d3f21e3193e9d3db69 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:29:35 +0000
Subject: [PATCH] (hanoi): Use force-mode-line-update.

---
 lisp/play/hanoi.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index a68fea7c5a..17184afeeb 100644
--- 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))))
 
 ;;;
-- 
2.20.1