From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 18 Dec 2014 20:59:23 +0000 (-0200)
Subject: lisp/let-alist.el (let-alist): Fix wrong parenthesis.
X-Git-Tag: emacs-25.0.90~2635^2~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22e37afd18bd35d5ecd41189232aa2281d1d1bf5;p=emacs.git

lisp/let-alist.el (let-alist): Fix wrong parenthesis.
---

diff --git a/lisp/let-alist.el b/lisp/let-alist.el
index 8f02404cbdf..813b8417aaa 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)