From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:23:48 +0000 (+0000)
Subject: (vip-change-mode): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17f9373a9cf566c05686660d031ffa9e8c82b990;p=emacs.git

(vip-change-mode): Use force-mode-line-update.
---

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index e343bf71cbb..50a254dfc09 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -158,10 +158,6 @@ No message."
     (forward-char (1- val))
     (if com (vip-execute-com 'vip-goto-col val com))))
 
-(defun vip-refresh-mode-line ()
-  "Redraw mode line."
-  (set-buffer-modified-p (buffer-modified-p)))
-
 (defun vip-copy-keymap (map)
   (if (null map) (make-sparse-keymap) (copy-keymap map)))
 
@@ -207,7 +203,7 @@ No message."
 	       (vip-change-mode-line "Emacs:")
 	       (use-local-map vip-emacs-local-map)))
 	(setq vip-current-mode new-mode)
-	(vip-refresh-mode-line))))
+	(force-mode-line-update))))
 
 (defun vip-copy-region-as-kill (beg end)
   "If BEG and END do not belong to the same buffer, it copies empty region."