Mercurial > emacs
changeset 11567:bcf841745ef2
(vi-switch-mode, vi-back-to-old-mode): Use force-mode-line-update.
(vi-mode, vi-goto-insert-state): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:24:14 +0000 |
| parents | 506881d20003 |
| children | 9b2265dc03a6 |
| files | lisp/emulation/vi.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/vi.el Tue Apr 25 22:23:48 1995 +0000 +++ b/lisp/emulation/vi.el Tue Apr 25 22:24:14 1995 +0000 @@ -49,7 +49,7 @@ (help-mode))) (setq prefix-arg arg) ; prefix arg will be passed down (command-execute mode-cmd nil) ; may need to save mode-line-format etc - (set-buffer-modified-p (buffer-modified-p))))) ; just in case + (force-mode-line-update)))) ; just in case (if (null (where-is-internal 'vi-switch-mode (current-local-map))) @@ -99,7 +99,7 @@ (use-local-map vi-mode-old-local-map) (setq major-mode vi-mode-old-major-mode) (setq case-fold-search vi-mode-old-case-fold) - (set-buffer-modified-p (buffer-modified-p))))) + (force-mode-line-update)))) (defun vi-readonly-mode () "Toggle current buffer's readonly flag." @@ -457,7 +457,7 @@ (use-local-map vi-com-map) (setq major-mode 'vi-mode) (setq mode-name "VI") - (set-buffer-modified-p (buffer-modified-p)) ; force mode line update + (force-mode-line-update) ; force mode line update (if vi-insert-state ; this is a return from insertion (vi-end-of-insert-state)))) @@ -522,7 +522,7 @@ (setq case-fold-search vi-mode-old-case-fold) (use-local-map vi-mode-old-local-map) (setq major-mode vi-mode-old-major-mode) - (set-buffer-modified-p (buffer-modified-p)) ; force mode line update + (force-mode-line-update) (setq vi-insert-state t)) (defun vi-end-of-insert-state ()