From d4353b205536795cc4f316dafabd87eb7441a514 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@snark.thyrsus.com>
Date: Wed, 2 Feb 1994 18:56:02 +0000
Subject: [PATCH] (vc-mode-line): use force-mode-line-update instead of the
 Emacs 18 kluge.

---
 lisp/vc-hooks.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 8f407d5b9d8..7160558d9db 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -154,8 +154,8 @@ visiting FILE."
 	 (require 'vc)
 	 (not (string-equal (user-login-name) (vc-locking-user file)))
 	 (setq buffer-read-only t))
-    ;; force update of mode line
-    (set-buffer-modified-p (buffer-modified-p))
+    (force-mode-line-update)
+    ;;(set-buffer-modified-p (buffer-modified-p))  ;;use this if Emacs 18
     vc-type))
 
 (defun vc-rcs-status (file)
-- 
2.39.5