# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765831 0
# Node ID afc4adbe0af6a65e3197ba15badb3c94111a626c
# Parent  47928cf63c6c085402c33fab4d1d02b0d66fe09d
(viper-toggle-key, viper-ESC-key): Use `mapc' rather than `mapcar'.

diff -r 47928cf63c6c -r afc4adbe0af6 lisp/emulation/viper-keym.el
--- a/lisp/emulation/viper-keym.el	Wed Sep 26 00:16:39 2007 +0000
+++ b/lisp/emulation/viper-keym.el	Wed Sep 26 00:17:11 2007 +0000
@@ -170,7 +170,7 @@
 	 (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 @@
 	 (let ((old-value (if (boundp 'viper-ESC-key)
 			      viper-ESC-key
 			    [(escape)])))
-	   (mapcar
+	   (mapc
 	    (lambda (buf)
 	      (save-excursion
 		(set-buffer buf)