1 files changed, 3 insertions, 3 deletions

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))
   )