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 | ca341104aec48ca95949e25a5f477463008cc66c (patch) | |
| tree | a15652c45e34cb9b475844f5a86d461608991ab2 /lisp/emulation/edt.el | |
| parent | 74def44fd90a0a45cbe8067d5c8a72ab257362e9 (diff) | |
| download | emacs-ca341104aec48ca95949e25a5f477463008cc66c.tar.gz | |
(edt-advance, edt-backup): Use force-mode-line-update.
Diffstat (limited to 'lisp/emulation/edt.el')
| -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 ;;; |