From 22e37afd18bd35d5ecd41189232aa2281d1d1bf5 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 18 Dec 2014 18:59:23 -0200 Subject: [PATCH] lisp/let-alist.el (let-alist): Fix wrong parenthesis. --- lisp/let-alist.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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) -- 2.39.2