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 | 829c9a0077342e14f5e79b6ecd53959d3e1617bc (patch) | |
| tree | 304427a4203aae612d6ed54efa17ec0ee7a2dc8b /lisp/emulation | |
| parent | d0b6caae204ec60c8b0f99f131765b4a28356b42 (diff) | |
| download | emacs-829c9a0077342e14f5e79b6ecd53959d3e1617bc.tar.gz | |
(vip-change-mode): Use force-mode-line-update.
Diffstat (limited to 'lisp/emulation')
| -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." |