[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 76e4179774: EUDC: Use "Surname" instead of "Name" in prompts
From: |
Thomas Fitzsimmons |
Subject: |
master 76e4179774: EUDC: Use "Surname" instead of "Name" in prompts |
Date: |
Wed, 29 Jun 2022 21:55:00 -0400 (EDT) |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 76e4179774: EUDC: Use "Surname" instead of "Name" in prompts,
Thomas Fitzsimmons <=