From 4a8f81153a27af5d2acf1d0773430cdc3281b9cc Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 6 Apr 2013 22:51:17 +0200 Subject: [PATCH] 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. --- contrib/lisp/org-contacts.el | 7 ------- 1 file changed, 7 deletions(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 8172c8082..534372fcb 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/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))))) -- 2.11.4.GIT