Mercurial > emacs

changeset 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 61cdc55737fb
children bcf841745ef2
files lisp/emulation/vip.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
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."