From: Nicolas Petton <nicolas@petton.fr>
Date: Sat, 25 Apr 2015 14:53:09 +0000 (+0200)
Subject: * lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
X-Git-Tag: emacs-25.0.90~1873^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40a8a12a26763addb0422105330deb278ce87012;p=emacs.git

* lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
---

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index ebf1fe9589a..b64b2bff768 100644
--- a/lisp/emacs-lisp/map.el
+++ b/lisp/emacs-lisp/map.el
@@ -258,7 +258,7 @@ form.
 If KEY is not found, return DEFAULT which defaults to nil."
   (let ((pair (assoc key map)))
     (if pair
-        (cdr (assoc key map))
+        (cdr pair)
       default)))
 
 (defun map--elt-array (map key &optional default)