# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798849072 0
# Node ID fba74d0549799df5ad53eb6321dd7d6dbf3792ef
# Parent  e28ae3856c1d327d8f351d2b5c69173e7fcbc585
(edt-advance, edt-backup): Use force-mode-line-update.

diff -r e28ae3856c1d -r fba74d054979 lisp/emulation/edt.el
--- a/lisp/emulation/edt.el	Tue Apr 25 22:30:38 1995 +0000
+++ b/lisp/emulation/edt.el	Tue Apr 25 22:31:12 1995 +0000
@@ -656,7 +656,7 @@
 Also, execute command specified if in Minibuffer."
   (interactive)
   (setq edt-direction-string edt-forward-string)
-  (edt-update-mode-line)
+  (force-mode-line-update)
   (if (string-equal " *Minibuf" 
                     (substring (buffer-name) 0 (min (length (buffer-name)) 9)))
       (exit-minibuffer)))
@@ -670,7 +670,7 @@
 Also, execute command specified if in Minibuffer."
   (interactive)
   (setq edt-direction-string edt-backward-string)
-  (edt-update-mode-line)
+  (force-mode-line-update)
   (if (string-equal " *Minibuf" 
                     (substring (buffer-name) 0 (min (length (buffer-name)) 9)))
       (exit-minibuffer)))
@@ -1253,15 +1253,6 @@
   (other-window 1))
 
 ;;;
-;;; UPDATE MODE LINE
-;;;
-
-(defun edt-update-mode-line ()
-  "Make sure mode-line in the current buffer reflects all changes."
-  (set-buffer-modified-p (buffer-modified-p))
-  (sit-for 0))
-
-;;;
 ;;; COPY RECTANGLE
 ;;;