# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848654 0
# Node ID bcf841745ef26f48b967e14dcf650dbe0b7e9002
# Parent  506881d20003d3d2037a11c55c7dd1bede1b55f6
(vi-switch-mode, vi-back-to-old-mode): Use force-mode-line-update.
(vi-mode, vi-goto-insert-state): Use force-mode-line-update.

diff -r 506881d20003 -r bcf841745ef2 lisp/emulation/vi.el
--- a/lisp/emulation/vi.el	Tue Apr 25 22:23:48 1995 +0000
+++ b/lisp/emulation/vi.el	Tue Apr 25 22:24:14 1995 +0000
@@ -49,7 +49,7 @@
 	    (help-mode)))
       (setq prefix-arg arg)		; prefix arg will be passed down
       (command-execute mode-cmd nil)	; may need to save mode-line-format etc
-      (set-buffer-modified-p (buffer-modified-p))))) ; just in case
+      (force-mode-line-update))))	; just in case
 
 
 (if (null (where-is-internal 'vi-switch-mode (current-local-map)))
@@ -99,7 +99,7 @@
 	(use-local-map vi-mode-old-local-map)
 	(setq major-mode vi-mode-old-major-mode)
 	(setq case-fold-search vi-mode-old-case-fold)
-	(set-buffer-modified-p (buffer-modified-p)))))
+	(force-mode-line-update))))
 
 (defun vi-readonly-mode ()
   "Toggle current buffer's readonly flag."
@@ -457,7 +457,7 @@
      (use-local-map vi-com-map)
      (setq major-mode 'vi-mode)
      (setq mode-name "VI")
-     (set-buffer-modified-p (buffer-modified-p))  ; force mode line update
+     (force-mode-line-update)		; force mode line update
      (if vi-insert-state	        ; this is a return from insertion
          (vi-end-of-insert-state))))
 
@@ -522,7 +522,7 @@
   (setq case-fold-search vi-mode-old-case-fold)
   (use-local-map vi-mode-old-local-map)
   (setq major-mode vi-mode-old-major-mode)
-  (set-buffer-modified-p (buffer-modified-p))  ; force mode line update
+  (force-mode-line-update)
   (setq vi-insert-state t))
 
 (defun vi-end-of-insert-state ()