diff options
| author | Nicolas Petton | 2015-04-25 16:53:09 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-04-25 16:53:09 +0200 |
| commit | 40a8a12a26763addb0422105330deb278ce87012 (patch) | |
| tree | 221d7dc9f3181640f6ad97b850f18c5a54b38d52 | |
| parent | 62879799ea0272f2ed3067252f20afb910bce352 (diff) | |
| download | emacs-40a8a12a26763addb0422105330deb278ce87012.tar.gz emacs-40a8a12a26763addb0422105330deb278ce87012.zip | |
* lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
| -rw-r--r-- | 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 ebf1fe9589a..b64b2bff768 100644 --- a/lisp/emacs-lisp/map.el +++ b/lisp/emacs-lisp/map.el | |||
| @@ -258,7 +258,7 @@ form. | |||
| 258 | If KEY is not found, return DEFAULT which defaults to nil." | 258 | If KEY is not found, return DEFAULT which defaults to nil." |
| 259 | (let ((pair (assoc key map))) | 259 | (let ((pair (assoc key map))) |
| 260 | (if pair | 260 | (if pair |
| 261 | (cdr (assoc key map)) | 261 | (cdr pair) |
| 262 | default))) | 262 | default))) |
| 263 | 263 | ||
| 264 | (defun map--elt-array (map key &optional default) | 264 | (defun map--elt-array (map key &optional default) |