From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:29:35 +0000 (+0000)
Subject: (hanoi): Use force-mode-line-update.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/433c31eb5f92a18870a068d3f21e3193e9d3db69

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

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))))
 
 ;;;