From 40a8a12a26763addb0422105330deb278ce87012 Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Sat, 25 Apr 2015 16:53:09 +0200 Subject: [PATCH] * lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring. --- lisp/emacs-lisp/map.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5