diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-11 15:08:32 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-11 15:08:32 +0100 |
| commit | fe5ba924027b46462a7f528b10dfa9890093d477 (patch) | |
| tree | 8acaa1e3ca83b3ffc742ca16c83d31b4f41bea0c /lisp | |
| parent | ece5691fe63e2c522ba4e956c5908ac65ea27abe (diff) | |
| download | emacs-fe5ba924027b46462a7f528b10dfa9890093d477.tar.gz | |
* lisp/let-alist.el (let-alist--deep-dot-search): Fix cons
* test/automated/let-alist.el (let-alist-cons): Test it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/let-alist.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/let-alist.el b/lisp/let-alist.el index 80b72d37ac9..ca7a904a087 100644 --- a/lisp/let-alist.el +++ b/lisp/let-alist.el @@ -4,7 +4,7 @@ ;; Author: Artur Malabarba <bruce.connor.am@gmail.com> ;; Maintainer: Artur Malabarba <bruce.connor.am@gmail.com> -;; Version: 1.0.3 +;; Version: 1.0.4 ;; Keywords: extensions lisp ;; Prefix: let-alist ;; Separator: - @@ -72,9 +72,9 @@ symbol, and each cdr is the same symbol without the `.'." ;; Return the cons cell inside a list, so it can be appended ;; with other results in the clause below. (list (cons data (intern (replace-match "" nil nil name))))))) - ((not (listp data)) nil) - (t (apply #'append - (mapcar #'let-alist--deep-dot-search data))))) + ((not (consp data)) nil) + (t (append (let-alist--deep-dot-search (car data)) + (let-alist--deep-dot-search (cdr data)))))) (defun let-alist--access-sexp (symbol variable) "Return a sexp used to access SYMBOL inside VARIABLE." |