[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 91acd009ea 1/4: rename function `org-conta
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 91acd009ea 1/4: rename function `org-contacts-get-icon` to `org-contacts-get-avatar-icon`. |
Date: |
Tue, 3 Dec 2024 15:59:02 -0500 (EST) |
branch: externals/org-contacts
commit 91acd009eaacacecbbd2890c8dc1ecd879cfce20
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
rename function `org-contacts-get-icon` to `org-contacts-get-avatar-icon`.
---
org-contacts.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 69450467fc..14d22f5add 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -844,7 +844,7 @@ This function should be called from
`gnus-article-prepare-hook'."
(defun org-contacts-icon-as-string ()
"Return the contact icon as a string."
- (let ((image (org-contacts-get-icon)))
+ (let ((image (org-contacts-get-avatar-icon)))
(concat
(propertize "-" 'display
(append
@@ -1126,8 +1126,8 @@ address."
(error (format "This contact has no mail address set (no %s
property)"
org-contacts-email-property)))))))
-(defun org-contacts-get-icon (&optional pom)
- "Get icon for contact at POM."
+(defun org-contacts-get-avatar-icon (&optional pom)
+ "Get icon for contact at POM and return the avatar icon image object."
(setq pom (or pom (point)))
(catch 'icon
;; Use `org-contacts-icon-property'