master 76e4179774: EUDC: Use "Surname" instead of "Name" in prompts

[Thomas Fitzsimmons]

branch: master
commit 76e4179774fc32dae878b135ca58a53b1a294e78
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    EUDC: Use "Surname" instead of "Name" in prompts
    
    * lisp/net/eudc-vars.el (eudc-user-attribute-names-alist): Add
    name/"Surname" association.
    * lisp/net/eudc.el (eudc-get-email): Prompt for surname.
    * lisp/net/eudc.el (eudc-get-phone): Likewise.
---
 lisp/net/eudc-vars.el | 1 +
 lisp/net/eudc.el      | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 90d89e87fb..59347ccc89 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -283,6 +283,7 @@ If nil, query all servers available from 
`eudc-inline-expansion-servers'."
                                             (firstname . "First Name")
                                             (cn . "Full Name")
                                             (sn . "Surname")
+                                            (name . "Surname")
                                             (givenname . "First Name")
                                             (ou . "Unit")
                                             (labeledurl . "URL")
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index fc35d6a084..ca4e4c9f37 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -721,7 +721,7 @@ server for future sessions."
 (defun eudc-get-email (name &optional error)
   "Get the email field of NAME from the directory server.
 If ERROR is non-nil, report an error if there is none."
-  (interactive "sName: \np")
+  (interactive "sSurname: \np")
   (or eudc-server
       (call-interactively 'eudc-set-server))
   (let ((result (eudc-query (list (cons 'name name)) '(email)))
@@ -739,7 +739,7 @@ If ERROR is non-nil, report an error if there is none."
 (defun eudc-get-phone (name &optional error)
   "Get the phone field of NAME from the directory server.
 If ERROR is non-nil, report an error if there is none."
-  (interactive "sName: \np")
+  (interactive "sSurname: \np")
   (or eudc-server
       (call-interactively 'eudc-set-server))
   (let ((result (eudc-query (list (cons 'name name)) '(phone)))