[Emacs-diffs] map 924ea3f 1/2: * lisp/emacs-lisp/map.el: Removes byte-compilation warnings.

[Nicolas Petton]

branch: map
commit 924ea3ff9d8680f4136fe64fc2467460867dd2fe
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    * lisp/emacs-lisp/map.el: Removes byte-compilation warnings.
---
 lisp/emacs-lisp/map.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index 7d839f8..9d2b4f7 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))