[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] map 924ea3f 1/2: * lisp/emacs-lisp/map.el: Removes byte-co
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] map 924ea3f 1/2: * lisp/emacs-lisp/map.el: Removes byte-compilation warnings. |
Date: |
Sat, 18 Apr 2015 18:07:55 +0000 |
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))