diff options
| author | Artur Malabarba | 2014-12-18 18:59:23 -0200 |
|---|---|---|
| committer | Artur Malabarba | 2014-12-18 19:02:36 -0200 |
| commit | 22e37afd18bd35d5ecd41189232aa2281d1d1bf5 (patch) | |
| tree | bc06fe44e34d242350a50856a73d032a470541fc | |
| parent | 777c8235f118fa9aec2465b61cca0bdc220fd419 (diff) | |
| download | emacs-22e37afd18bd35d5ecd41189232aa2281d1d1bf5.tar.gz emacs-22e37afd18bd35d5ecd41189232aa2281d1d1bf5.zip | |
lisp/let-alist.el (let-alist): Fix wrong parenthesis.
| -rw-r--r-- | 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 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 `.'." | |||
| 70 | (list (cons data (intern (replace-match "" nil nil name))))))) | 70 | (list (cons data (intern (replace-match "" nil nil name))))))) |
| 71 | ((not (listp data)) nil) | 71 | ((not (listp data)) nil) |
| 72 | (t (apply #'append | 72 | (t (apply #'append |
| 73 | (remove nil (mapcar #'let-alist--deep-dot-search data)))))) | 73 | (mapcar #'let-alist--deep-dot-search data))))) |
| 74 | 74 | ||
| 75 | ;;;###autoload | 75 | ;;;###autoload |
| 76 | (defmacro let-alist (alist &rest body) | 76 | (defmacro let-alist (alist &rest body) |
| @@ -95,10 +95,10 @@ expands to | |||
| 95 | .site))" | 95 | .site))" |
| 96 | (declare (indent 1) (debug t)) | 96 | (declare (indent 1) (debug t)) |
| 97 | (let ((var (gensym "let-alist"))) | 97 | (let ((var (gensym "let-alist"))) |
| 98 | `(let ((,var ,alist) | 98 | `(let ((,var ,alist)) |
| 99 | (let ,(mapcar (lambda (x) `(,(car x) (cdr (assq ',(cdr x) ,var)))) | 99 | (let ,(mapcar (lambda (x) `(,(car x) (cdr (assq ',(cdr x) ,var)))) |
| 100 | (delete-dups (let-alist--deep-dot-search body))) | 100 | (delete-dups (let-alist--deep-dot-search body))) |
| 101 | ,@body))))) | 101 | ,@body)))) |
| 102 | 102 | ||
| 103 | (provide 'let-alist) | 103 | (provide 'let-alist) |
| 104 | 104 | ||