tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent function `org-install-letbind'

Browse source 
* 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.
This commit is contained in:
Bastien Guerry 2013-04-06 22:51:17 +02:00
parent 591d377e78
commit 4a8f81153a
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/lisp/org-contacts.el
View file

@ -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)))))