Mercurial > emacs
comparison lisp/emulation/viper.el @ 84909:696d13905618
(set-viper-state-in-major-mode): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:18:58 +0000 |
| parents | ff85cbd27ee2 |
| children | 51aa47312c4b bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 84908:862e65546389 | 84909:696d13905618 |
|---|---|
| 797 ;; used in a hack that triggers vi command mode whenever needed | 797 ;; used in a hack that triggers vi command mode whenever needed |
| 798 (defvar viper-new-major-mode-buffer-list nil) | 798 (defvar viper-new-major-mode-buffer-list nil) |
| 799 | 799 |
| 800 ;; set appropriate Viper state in buffers that changed major mode | 800 ;; set appropriate Viper state in buffers that changed major mode |
| 801 (defun set-viper-state-in-major-mode () | 801 (defun set-viper-state-in-major-mode () |
| 802 (mapcar | 802 (mapc |
| 803 (lambda (buf) | 803 (lambda (buf) |
| 804 (if (viper-buffer-live-p buf) | 804 (if (viper-buffer-live-p buf) |
| 805 (with-current-buffer buf | 805 (with-current-buffer buf |
| 806 (cond ((and (this-major-mode-requires-vi-state major-mode) | 806 (cond ((and (this-major-mode-requires-vi-state major-mode) |
| 807 (eq viper-current-state 'emacs-state)) | 807 (eq viper-current-state 'emacs-state)) |