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

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

[elpa] scratch/org-contacts-rebased f4f5ff3 050/118: org-contacts.el (or


From: Stefan Monnier
Subject: [elpa] scratch/org-contacts-rebased f4f5ff3 050/118: org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent function `org-install-letbind'
Date: Fri, 12 Nov 2021 15:37:02 -0500 (EST)

branch: scratch/org-contacts-rebased
commit f4f5ff3daec14ae94e947a642e9c4195b2ffdca6
Author: Bastien Guerry <bzg@altern.org>
Commit: Bastien Guerry <bzg@altern.org>

    org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent 
function `org-install-letbind'
    
    * contrib/lisp/org-contacts.el (org-contacts-export-as-vcard): Don't use
    non-existent function `org-install-letbind'.
    
    Thanks to Simon Thum for reporting this.
---
 org-contacts.el | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index 8172c80..534372f 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -151,7 +151,6 @@ This overrides `org-email-link-description-format' if set."
 
 ;; Decalre external functions and variables
 (declare-function org-reverse-string "org")
-(declare-function org-install-letbind "org-exp")
 (declare-function diary-ordinal-suffix "ext:diary-lib")
 (declare-function wl-summary-message-number "ext:wl-summary")
 (declare-function wl-address-header-extract-address "ext:wl-address")
@@ -871,20 +870,14 @@ is created and the VCard is written into that buffer."
         (buffer (if to-buffer
                     (get-buffer-create to-buffer)
                   (find-file-noselect filename))))
-
     (message "Exporting...")
-
     (set-buffer buffer)
     (let ((inhibit-read-only t)) (erase-buffer))
     (fundamental-mode)
-    (org-install-letbind)
-
     (when (fboundp 'set-buffer-file-coding-system)
       (set-buffer-file-coding-system coding-system-for-write))
-
     (loop for contact in (org-contacts-filter name)
          do (insert (org-contacts-vcard-format contact)))
-
     (if to-buffer
        (current-buffer)
       (progn (save-buffer) (kill-buffer)))))



reply via email to

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