diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:17:11 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:17:11 +0000 |
| commit | 60e7e8966b5701a00b93a20d6e45cdf0c447d7e6 (patch) | |
| tree | 92c6a1ec59fc8775be2f6c4ee95ed060e7dbb732 /lisp/emulation/viper-keym.el | |
| parent | 026056a4c8f6d41b4bfc9842443940693a4eb831 (diff) | |
| download | emacs-60e7e8966b5701a00b93a20d6e45cdf0c447d7e6.tar.gz | |
(viper-toggle-key, viper-ESC-key): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/emulation/viper-keym.el')
| -rw-r--r-- | lisp/emulation/viper-keym.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el index ac7231a3cac..0e502720f5e 100644 --- a/lisp/emulation/viper-keym.el +++ b/lisp/emulation/viper-keym.el @@ -170,7 +170,7 @@ Enter as a sexp. Examples: \"\\C-z\", [(control ?z)]." (let ((old-value (if (boundp 'viper-toggle-key) viper-toggle-key [(control ?z)]))) - (mapcar + (mapc (lambda (buf) (save-excursion (set-buffer buf) @@ -210,7 +210,7 @@ If running in a terminal, [(escape)] is not understood, so must use \"\\e\"." (let ((old-value (if (boundp 'viper-ESC-key) viper-ESC-key [(escape)]))) - (mapcar + (mapc (lambda (buf) (save-excursion (set-buffer buf) |