diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-23 14:57:17 -0300 |
| commit | 4f91a8160fe71295b7ad4d6e3f90f004caa3546c (patch) | |
| tree | c0f3f767b785559ee0387e7cfb54a2a1aa06bcd5 /lisp/net/eudc-export.el | |
| parent | 782fc81943849d699d74c3039be80d4068bb3422 (diff) | |
| download | emacs-4f91a8160fe71295b7ad4d6e3f90f004caa3546c.tar.gz | |
Don't quote lambda expressions with `quote'.
Diffstat (limited to 'lisp/net/eudc-export.el')
| -rw-r--r-- | lisp/net/eudc-export.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index df3a2e04118..87ff0b4060f 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el @@ -44,7 +44,7 @@ If SILENT is non-nil then the created BBDB record is not displayed." ;; This function runs in a special context where lisp symbols corresponding ;; to field names in record are bound to the corresponding values (eval - `(let* (,@(mapcar '(lambda (c) + `(let* (,@(mapcar (lambda (c) (list (car c) (if (listp (cdr c)) (list 'quote (cdr c)) (cdr c)))) @@ -108,7 +108,7 @@ If RECURSE is non-nil then SPEC may be a list of atomic specs." (void-variable nil))) ((and recurse (listp spec)) - (mapcar '(lambda (spec-elem) + (mapcar (lambda (spec-elem) (eudc-parse-spec spec-elem record nil)) spec)) (t |