From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:18:24 +0000 (+0000)
Subject: (viper-setup-master-buffer): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fee0f87b61e02644ea46db6cc75a5f5c8b49b07;p=emacs.git

(viper-setup-master-buffer): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index eebf09aed22..7073cd019dd 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1260,9 +1260,9 @@ Arguments become related buffers.  This function should normally be used in
 the `Local variables' section of a file."
   (setq viper-related-files-and-buffers-ring
 	(make-ring (1+ (length other-files-or-buffers))))
-  (mapcar '(lambda (elt)
-	     (viper-ring-insert viper-related-files-and-buffers-ring elt))
-	  other-files-or-buffers)
+  (mapc '(lambda (elt)
+	  (viper-ring-insert viper-related-files-and-buffers-ring elt))
+	other-files-or-buffers)
   (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))
   )