Hi Bastien,
Thanks for the fast response!
I now get:
Debugger entered--Lisp error: (void-variable tel)
(if tel (progn (progn (setq phones-list (split-string tel [,;: ]+))
(setq result ) (while phones-list (setq result (concat result TEL:
(car phones-list) \n)) (setq phones-list (cdr phones-list))) result)))
(when tel (progn (setq phones-list (split-string tel [,;: ]+))
(setq result ) (while phones-list (setq result (concat result TEL:
(car phones-list) \n)) (setq phones-list (cdr phones-list))) result))
(concat head (when email (progn (setq emails-list (split-string email
[,;: ]+)) (setq result ) (while emails-list (setq result (concat
result EMAIL: (car emails-list) \n)) (setq emails-list (cdr
emails-list))) result)) (when addr (format ADR:;;%s\n
(replace-regexp-in-string \\, ? ; addr))) (when tel (progn (setq
phones-list (split-string tel [,;: ]+)) (setq result ) (while
phones-list (setq result (concat result TEL: (car phones-list) \n))
(setq phones-list (cdr phones-list))) result)) (when bday (let
((cal-bday (calendar-gregorian-from-absolute
(org-time-string-to-absolute bday (format BDAY:%04d-%02d-%02d\n
(calendar-extract-year cal-bday) (calendar-extract-month cal-bday)
(calendar-extract-day cal-bday (when nick (format NICKNAME:%s\n
nick)) (when note (format NOTE:%s\n note)) END:VCARD\n\n)
(let* ((properties (caddr contact)) (name (org-contacts-vcard-escape
(car contact))) (n (org-contacts-vcard-encode-name name)) (email (cdr
(assoc-string org-contacts-email-property properties))) (bday
(org-contacts-vcard-escape (cdr (assoc-string
org-contacts-birthday-property properties (addr (cdr (assoc-string
org-contacts-address-property properties))) (nick
(org-contacts-vcard-escape (cdr (assoc-string
org-contacts-nickname-property properties (head (format
BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n n name))) (concat head (when
email (progn (setq emails-list (split-string email [,;: ]+)) (setq
result ) (while emails-list (setq result (concat result EMAIL: (car
emails-list) \n)) (setq emails-list (cdr emails-list))) result)) (when
addr (format ADR:;;%s\n (replace-regexp-in-string \\, ? ; addr)))
(when tel (progn (setq phones-list (split-string tel [,;: ]+)) (setq
result ) (while phones-list (setq result (concat result TEL: (car
phones-list) \n)) (setq phones-list (cdr phones-list))) result)) (when
bday (let ((cal-bday (calendar-gregorian-from-absolute
(org-time-string-to-absolute bday (format BDAY:%04d-%02d-%02d\n
(calendar-extract-year cal-bday) (calendar-extract-month cal-bday)
(calendar-extract-day cal-bday (when nick (format NICKNAME:%s\n
nick)) (when note (format NOTE:%s\n note)) END:VCARD\n\n))
org-contacts-vcard-format(...
On 04/06/2013 10:53 PM, Bastien wrote:
Hi Simon,
Simon Thum simon.t...@gmx.de writes:
I suspect some require
is missing in org-contacts.
In fact, `org-install-letbind' was called while not existing in
current Org. So org-contacts.el tried to load the org-exp.el file
that comes with your Emacs and that we never want to load when
using pre-8.0.
I removed this function.
Anyway, if I invoke this line now it fails, although interactively things
load fine with the org file on the command line:
emacs someOrg.org -batch -l ~/.emacs.d/init.el
[...]
Symbol's value as variable is void: org-list-allow-alphabetical
To me, all of this points to some incorrect dependencies of load logic to
-batch. Unfortunately I don't know how to diagnose such problems.
It's not urgent but seems like a clear bug to me.
Indeed. Thanks for reporting this. Please test again and let me know
if something else needs to be fixed.
Best,