From: Nicolas Petton <nicolas@petton.fr>
Date: Sat, 18 Apr 2015 18:04:17 +0000 (+0200)
Subject: * lisp/emacs-lisp/map.el: Removes byte-compilation warnings.
X-Git-Tag: emacs-25.0.90~1873^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=924ea3ff9d8680f4136fe64fc2467460867dd2fe;p=emacs.git

* lisp/emacs-lisp/map.el: Removes byte-compilation warnings.
---

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index 7d839f822d2..9d2b4f718b5 100644
--- a/lisp/emacs-lisp/map.el
+++ b/lisp/emacs-lisp/map.el
@@ -86,11 +86,11 @@ Map can be a nested map composed of alists, hash-tables and arrays."
 
 (defun map-keys (map)
   "Return the list of keys in MAP."
-  (map-apply (lambda (key value) key) map))
+  (map-apply (lambda (key _) key) map))
 
 (defun map-values (map)
   "Return the list of values in MAP."
-  (map-apply (lambda (key value) value) map))
+  (map-apply (lambda (_ value) value) map))
 
 (defun map-pairs (map)
   "Return the elements of MAP as key/value association lists."
@@ -121,13 +121,13 @@ FUNCTION is called with two arguments, the key and the value."
 
 (defun map-keys-apply (function map)
   "Return the result of applying FUNCTION to each key of MAP."
-  (map-apply (lambda (key val)
+  (map-apply (lambda (key _)
                (funcall function key))
              map))
 
 (defun map-values-apply (function map)
   "Return the result of applying FUNCTION to each value of MAP."
-  (map-apply (lambda (key val)
+  (map-apply (lambda (_ val)
                (funcall function val))
              map))