From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Wed, 2 Feb 1994 18:56:02 +0000 (+0000)
Subject: (vc-mode-line): use force-mode-line-update instead of the Emacs 18
X-Git-Tag: emacs-19.34~10108
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4353b205536795cc4f316dafabd87eb7441a514;p=emacs.git

(vc-mode-line): use force-mode-line-update instead of the Emacs 18
kluge.
---

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)