From 3941fe2c64d493076c590c17790f2f5d159ac6e7 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:22:21 +0000 Subject: [PATCH] (toggle-read-only, rename-uniquely): Use force-mode-line-update. --- lisp/files.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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. -- 2.39.5