diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:23:48 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:23:48 +0000 |
| commit | 17f9373a9cf566c05686660d031ffa9e8c82b990 (patch) | |
| tree | a136f914e422accc2f4de3b4c55559f4d29acc31 /lisp | |
| parent | 390d1087a16fd7a51f8f951c764695cefb832b60 (diff) | |
| download | emacs-17f9373a9cf566c05686660d031ffa9e8c82b990.tar.gz | |
(vip-change-mode): Use force-mode-line-update.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/vip.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index e343bf71cbb..50a254dfc09 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -158,10 +158,6 @@ No message." (forward-char (1- val)) (if com (vip-execute-com 'vip-goto-col val com)))) -(defun vip-refresh-mode-line () - "Redraw mode line." - (set-buffer-modified-p (buffer-modified-p))) - (defun vip-copy-keymap (map) (if (null map) (make-sparse-keymap) (copy-keymap map))) @@ -207,7 +203,7 @@ No message." (vip-change-mode-line "Emacs:") (use-local-map vip-emacs-local-map))) (setq vip-current-mode new-mode) - (vip-refresh-mode-line)))) + (force-mode-line-update)))) (defun vip-copy-region-as-kill (beg end) "If BEG and END do not belong to the same buffer, it copies empty region." |