# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 760215362 0
# Node ID 9ad79a0fb0aa0387afb3f8cb7074d3149f1d381f
# Parent  84cdd74ddbb051ea7e5d462c00040038c6babd77
(vc-mode-line): use force-mode-line-update instead of the Emacs 18
kluge.

diff -r 84cdd74ddbb0 -r 9ad79a0fb0aa lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Feb 02 18:46:29 1994 +0000
+++ b/lisp/vc-hooks.el	Wed Feb 02 18:56:02 1994 +0000
@@ -154,8 +154,8 @@
 	 (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)