[Top][All Lists]

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

[elpa] scratch/org-contacts-rebased 68918fc 034/118: org-contacts: Fix A

From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased 68918fc 034/118: org-contacts: Fix Agenda format.
Date: Fri, 12 Nov 2021 15:36:58 -0500 (EST)

branch: scratch/org-contacts-rebased
commit 68918fc1e2a4822392f5c7a5e9ff364bc4e351a2
Author: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>

    org-contacts: Fix Agenda format.
    * contrib/lisp/org-contacts.el: Use `org-agenda-prefix-format' to
      format entry instead of unused org-agenda-format.
    Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
 org-contacts.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index e3ec7c7..3ad581d 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -573,9 +573,9 @@ This function should be called from 
   (let ((org-agenda-files (org-contacts-files))
          (lambda () (org-agenda-skip-if nil `(notregexp ,name))))
-        (org-agenda-format (propertize
-                            "%(org-contacts-icon-as-string)% p% 
-                            'keymap org-contacts-keymap))
+        (org-agenda-prefix-format (propertize
+                                  "%(org-contacts-icon-as-string)% 
s%(org-contacts-irc-number-of-unread-messages) "
+                                  'keymap org-contacts-keymap))
          (or org-agenda-overriding-header
              (concat "List of contacts matching `" name "':"))))

reply via email to

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