(f90-auto-fill-mode): Use force-mode-line-update.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index bfb544e3c895e9a1b044d83d9a628244e76e88c3..693a16f9c400bcfda869e0d8cc83cd4683d54ae4 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1338,8 +1338,7 @@ automatically breaks the line at a previous space."
                       (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."