X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6e9ddbb313cf7db66550f93a74cbba12e39e93c0..499dac5497f0f2b90914a7954c969cbac182a92c:/lisp/url/url-ldap.el diff --git a/lisp/url/url-ldap.el b/lisp/url/url-ldap.el index 7c988f9b11..5c5ee76073 100644 --- a/lisp/url/url-ldap.el +++ b/lisp/url/url-ldap.el @@ -1,6 +1,6 @@ ;;; url-ldap.el --- LDAP Uniform Resource Locator retrieval code -;; Copyright (C) 1998-1999, 2004-2012 Free Software Foundation, Inc. +;; Copyright (C) 1998-1999, 2004-2015 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 "%s" 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))