# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848275 0
# Node ID 33f97b477bad035efb28ab76c6b3d54e1b98e093
# Parent  03792bb111ab9fa6017e5fef3259cd40e55e2779
(f90-auto-fill-mode): Use force-mode-line-update.

diff -r 03792bb111ab -r 33f97b477bad lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Tue Apr 25 22:17:14 1995 +0000
+++ b/lisp/progmodes/f90.el	Tue Apr 25 22:17:55 1995 +0000
@@ -1338,8 +1338,7 @@
 		       (not auto-fill-function)
 		     (> (prefix-numeric-value arg) 0))
 		   'f90-do-auto-fill))
-    ;; update mode-line
-    (set-buffer-modified-p (buffer-modified-p))))
+    (force-mode-line-update)))
 
 (defun f90-do-auto-fill ()
   "Break line if non-white characters beyond fill-column."