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-Tag: emacs-19.34~4276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=433c31eb5f92a18870a068d3f21e3193e9d3db69;p=emacs.git

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

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index a68fea7c5a7..17184afeebd 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))))
 
 ;;;