[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] map 40a8a12 1/2: * lisp/emacs-lisp/map.el (map--elt-list):
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] map 40a8a12 1/2: * lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring. |
Date: |
Sat, 25 Apr 2015 14:56:39 +0000 |
branch: map
commit 40a8a12a26763addb0422105330deb278ce87012
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>
* lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
---
lisp/emacs-lisp/map.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index ebf1fe9..b64b2bf 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)