diff options
| author | Karl Heuer | 1995-04-25 22:17:55 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-25 22:17:55 +0000 |
| commit | 3d93ac2871993cb2beeec804773549c0ea0913b8 (patch) | |
| tree | 5517f515695ff72770c63de8ddd3a6fc055fd645 | |
| parent | e47df26a39656377ccd502f721046259745f2a3b (diff) | |
| download | emacs-3d93ac2871993cb2beeec804773549c0ea0913b8.tar.gz emacs-3d93ac2871993cb2beeec804773549c0ea0913b8.zip | |
(f90-auto-fill-mode): Use force-mode-line-update.
| -rw-r--r-- | lisp/progmodes/f90.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index bfb544e3c89..693a16f9c40 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -1338,8 +1338,7 @@ automatically breaks the line at a previous space." | |||
| 1338 | (not auto-fill-function) | 1338 | (not auto-fill-function) |
| 1339 | (> (prefix-numeric-value arg) 0)) | 1339 | (> (prefix-numeric-value arg) 0)) |
| 1340 | 'f90-do-auto-fill)) | 1340 | 'f90-do-auto-fill)) |
| 1341 | ;; update mode-line | 1341 | (force-mode-line-update))) |
| 1342 | (set-buffer-modified-p (buffer-modified-p)))) | ||
| 1343 | 1342 | ||
| 1344 | (defun f90-do-auto-fill () | 1343 | (defun f90-do-auto-fill () |
| 1345 | "Break line if non-white characters beyond fill-column." | 1344 | "Break line if non-white characters beyond fill-column." |