Mercurial > emacs

diff lisp/emulation/vip.el @ 11566:506881d20003

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-change-mode): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:23:48 +0000
parents 67b7d1ea7b2e
children fe8779b08103
line wrap: on
line diff
--- a/lisp/emulation/vip.el	Tue Apr 25 22:23:31 1995 +0000
+++ b/lisp/emulation/vip.el	Tue Apr 25 22:23:48 1995 +0000
@@ -158,10 +158,6 @@
     (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 @@
 	       (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."