diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:31:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:31:12 +0000 |
| commit | 9d343883226f70819e625da724ccff4046dfe972 (patch) | |
| tree | 9dc11583975ff069177b0e557eac23bcb4f6b81f /lisp/emulation | |
| parent | 6bb195f6d718543141b9f5e5627d9f2e32475b1b (diff) | |
| download | emacs-9d343883226f70819e625da724ccff4046dfe972.tar.gz | |
(edt-advance, edt-backup): Use force-mode-line-update.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 13 |
1 files changed, 2 insertions, 11 deletions
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))) @@ -1253,15 +1253,6 @@ Accepts a positive prefix argument for the number times to duplicate the line." (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 ;;; |