From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:31:12 +0000 (+0000)
Subject: (edt-advance, edt-backup): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4272
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca341104aec48ca95949e25a5f477463008cc66c;p=emacs.git

(edt-advance, edt-backup): Use force-mode-line-update.
---

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 1178bd2ea1c..c482506739f 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -656,7 +656,7 @@ Accepts a positive prefix argument for the number of characters to delete."
 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."
 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)))
@@ -1252,15 +1252,6 @@ Accepts a positive prefix argument for the number times to duplicate the line."
   (split-window)
   (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
 ;;;