[Emacs-diffs] master 22e37af: lisp/let-alist.el (let-alist): Fix wrong parenthesis.

[Artur Malabarba]

branch: master
commit 22e37afd18bd35d5ecd41189232aa2281d1d1bf5
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    lisp/let-alist.el (let-alist): Fix wrong parenthesis.
---
 lisp/let-alist.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/let-alist.el b/lisp/let-alist.el
index 8f02404..813b841 100644
--- a/lisp/let-alist.el
+++ b/lisp/let-alist.el
@@ -70,7 +70,7 @@ symbol, and each cdr is the same symbol without the `.'."
         (list (cons data (intern (replace-match "" nil nil name)))))))
    ((not (listp data)) nil)
    (t (apply #'append
-        (remove nil (mapcar #'let-alist--deep-dot-search data))))))
+        (mapcar #'let-alist--deep-dot-search data)))))
 
 ;;;###autoload
 (defmacro let-alist (alist &rest body)
@@ -95,10 +95,10 @@ expands to
       .site))"
   (declare (indent 1) (debug t))
   (let ((var (gensym "let-alist")))
-    `(let ((,var ,alist)
-           (let ,(mapcar (lambda (x) `(,(car x) (cdr (assq ',(cdr x) ,var))))
-                   (delete-dups (let-alist--deep-dot-search body)))
-             ,@body)))))
+    `(let ((,var ,alist))
+       (let ,(mapcar (lambda (x) `(,(car x) (cdr (assq ',(cdr x) ,var))))
+               (delete-dups (let-alist--deep-dot-search body)))
+         ,@body))))
 
 (provide 'let-alist)