emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-contacts 9fdcb5e968 1/2: Use older compatible API f


From: ELPA Syncer
Subject: [elpa] externals/org-contacts 9fdcb5e968 1/2: Use older compatible API function `org-entry-get` to replace egde new `org-entry-get-multivalued-property`
Date: Tue, 21 May 2024 03:58:27 -0400 (EDT)

branch: externals/org-contacts
commit 9fdcb5e968ad8118de02618967370f1cd40b0e14
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    Use older compatible API function `org-entry-get` to replace egde new 
`org-entry-get-multivalued-property`
---
 org-contacts.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index ce5bd7f859..666b1a19af 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -866,7 +866,7 @@ This can be property key checking."
          (properties (org-entry-properties headline 'standard))
          ;; extra headline properties
          (avatar-image-path
-          (when-let* ((avatar-value (car (org-entry-get-multivalued-property 
headline "AVATAR")))
+          (when-let* ((avatar-value (org-entry-get headline "AVATAR"))
                       (avatar-link-path (cond
                                          ;; [[file:contact_dir/avatar.png]]
                                          ((string-match org-link-plain-re 
avatar-value)
@@ -884,10 +884,10 @@ This can be property key checking."
             avatar-absolute-path))
          (info (concat "\n"
                        (concat org-contacts-ahead-space-padding "   ")
-                       (string-join (let ((org-property-separators (list (cons 
org-contacts-nickname-property "[,\ ]"))))
-                                      (org-entry-get-multivalued-property 
headline org-contacts-nickname-property)) ", ")
-                       (string-join (let ((org-property-separators (list (cons 
org-contacts-email-property "[,\ ]"))))
-                                      (org-entry-get-multivalued-property 
headline org-contacts-email-property)) ", ")
+                       (let ((org-property-separators (list (cons 
org-contacts-nickname-property "[,\ ]"))))
+                         (org-entry-get headline 
org-contacts-nickname-property))
+                       (let ((org-property-separators (list (cons 
org-contacts-email-property "[,\ ]"))))
+                         (org-entry-get headline org-contacts-email-property))
                        "\n"))
          (middle-line-length (when-let* ((length (- (- org-tags-column)
                                                     (length (string-join tags 
":"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]