* net/ange-ftp.el (ange-ftp-get-passwd): Bind

[gnu-emacs] / lisp / net / eudc-export.el

diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index df3a2e0411835a3d685adfac3f4f7ea326a99a81..beaceedd7888b6375a3fe47a49d868bb96cccbd3 100644 (file)
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -1,6 +1,6 @@
 ;;; eudc-export.el --- functions to export EUDC query results
 
-;; Copyright (C) 1998-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <oscar@cpe.fr>
 ;; Maintainer: Pavel Janík <Pavel@Janik.cz>
@@ -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
@@ -128,7 +128,7 @@ LOCATION is used as the address location for bbdb."
         zip city state)
     (setq addr-components (nreverse addr-components))
     ;; If not containing the zip code the last line is supposed to contain a
-    ;; country name and the addres is supposed to be in european style
+    ;; country name and the address is supposed to be in european style
     (if (not (string-match "[0-9][0-9][0-9]" last1))
        (progn
          (setq state last1)