From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:22:21 +0000 (+0000)
Subject: (toggle-read-only, rename-uniquely): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3941fe2c64d493076c590c17790f2f5d159ac6e7;p=emacs.git

(toggle-read-only, rename-uniquely): Use force-mode-line-update.
---

diff --git a/lisp/files.el b/lisp/files.el
index 13412aa8b6e..2778fdd6042 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1836,8 +1836,7 @@ With arg, set read-only iff arg is positive."
 	(if (null arg)
             (not buffer-read-only)
             (> (prefix-numeric-value arg) 0)))
-  ;; Force mode-line redisplay
-  (set-buffer-modified-p (buffer-modified-p)))
+  (force-mode-line-update))
 
 (defun insert-file (filename)
   "Insert contents of file FILENAME into buffer after point.
@@ -1896,7 +1895,7 @@ or multiple mail buffers, etc."
 	   (name (buffer-name new-buf)))
       (kill-buffer new-buf)
       (rename-buffer name)
-      (set-buffer-modified-p (buffer-modified-p))))) ; force mode line update
+      (force-mode-line-update))))
 
 (defun make-directory (dir &optional parents)
   "Create the directory DIR and any nonexistent parent dirs.