aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki 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 cb941d4023
commit bc11ab4130
1 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
org-contacts.el
View file

@ -151,7 +151,6 @@ This overrides `org-email-link-description-format' if set."
;; Decalre external functions and variables ;; Decalre external functions and variables
(declare-function org-reverse-string "org") (declare-function org-reverse-string "org")
(declare-function org-install-letbind "org-exp")
(declare-function diary-ordinal-suffix "ext:diary-lib") (declare-function diary-ordinal-suffix "ext:diary-lib")
(declare-function wl-summary-message-number "ext:wl-summary") (declare-function wl-summary-message-number "ext:wl-summary")
(declare-function wl-address-header-extract-address "ext:wl-address") (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 (buffer (if to-buffer
(get-buffer-create to-buffer) (get-buffer-create to-buffer)
(find-file-noselect filename)))) (find-file-noselect filename))))
(message "Exporting...") (message "Exporting...")
(set-buffer buffer) (set-buffer buffer)
(let ((inhibit-read-only t)) (erase-buffer)) (let ((inhibit-read-only t)) (erase-buffer))
(fundamental-mode) (fundamental-mode)
(org-install-letbind)
(when (fboundp 'set-buffer-file-coding-system) (when (fboundp 'set-buffer-file-coding-system)
(set-buffer-file-coding-system coding-system-for-write)) (set-buffer-file-coding-system coding-system-for-write))
(loop for contact in (org-contacts-filter name) (loop for contact in (org-contacts-filter name)
do (insert (org-contacts-vcard-format contact))) do (insert (org-contacts-vcard-format contact)))
(if to-buffer (if to-buffer
(current-buffer) (current-buffer)
(progn (save-buffer) (kill-buffer))))) (progn (save-buffer) (kill-buffer)))))