From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:17:11 +0000 (+0000)
Subject: (viper-toggle-key, viper-ESC-key): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60e7e8966b5701a00b93a20d6e45cdf0c447d7e6;p=emacs.git

(viper-toggle-key, viper-ESC-key): Use `mapc' rather than `mapcar'.
---

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)