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

[gnu-emacs] / lisp / let-alist.el

diff --git a/lisp/let-alist.el b/lisp/let-alist.el
index 8f02404cbdfd7513b119c421f8504893e2ce148a..813b8417aaac4c339e95cd856da62151314baabe 100644 (file)
--- 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)