From 924ea3ff9d8680f4136fe64fc2467460867dd2fe Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Sat, 18 Apr 2015 20:04:17 +0200 Subject: [PATCH] * lisp/emacs-lisp/map.el: Removes byte-compilation warnings. --- lisp/emacs-lisp/map.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.39.5