From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Thu, 30 Jun 2022 01:53:39 +0000 (-0400)
Subject: EUDC: Use "Surname" instead of "Name" in prompts
X-Git-Tag: emacs-29.0.90~1447^2~1368
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76e4179774fc32dae878b135ca58a53b1a294e78;p=emacs.git

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.
---

diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 90d89e87fba..59347ccc89a 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 fc35d6a0844..ca4e4c9f377 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)))