]> code.delx.au - gnu-emacs/blobdiff - lisp/url/url-ldap.el
Update copyright year to 2016
[gnu-emacs] / lisp / url / url-ldap.el
index efe301c8b36bec20a496415935fd80df38d65840..4ae638dbaee98efb6c2bab2c2e9ed8572e3d7f82 100644 (file)
@@ -1,6 +1,6 @@
 ;;; url-ldap.el --- LDAP Uniform Resource Locator retrieval code
 
-;; Copyright (C) 1998, 1999, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1998-1999, 2004-2016 Free Software Foundation, Inc.
 
 ;; Keywords: comm, data, processes
 
@@ -64,7 +64,7 @@
     ("facsimiletelephonenumber" . "Fax")
     ("postaladdress"            . "Mailing Address")
     ("description"              . "Notes"))
-  "*An assoc list mapping LDAP attribute names to pretty descriptions of them.")
+  "An assoc list mapping LDAP attribute names to pretty descriptions of them.")
 
 (defvar url-ldap-attribute-formatters
   '(("mail"       . (lambda (x) (format "<a href='mailto:%s'>%s</a>" x x)))
@@ -76,7 +76,7 @@
     ("namingcontexts" . url-ldap-dn-formatter)
     ("defaultnamingcontext" . url-ldap-dn-formatter)
     ("member"     . url-ldap-dn-formatter))
-  "*An assoc list mapping LDAP attribute names to pretty formatters for them.")
+  "An assoc list mapping LDAP attribute names to pretty formatters for them.")
 
 (defsubst url-ldap-attribute-pretty-name (n)
   (or (cdr-safe (assoc (downcase n) url-ldap-pretty-names)) n))
@@ -173,7 +173,7 @@ URL can be a URL string, or a URL vector of the type returned by
        (if attributes
            (setq attributes (mapcar 'url-unhex-string (split-string attributes ","))))
 
-       ;; Parse out the exentions
+       ;; Parse out the extensions.
        (if extensions
            (setq extensions (mapcar (lambda (ext)
                                       (if (string-match "\\([^=]*\\)=\\(.*\\)" ext)