aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

contrib/lisp/org-contacts.el (org-contacts-vcard-format): Silence byte-compiler

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-vcard-format): Silence byte-compiler.
This commit is contained in:
Grégoire Jadi 2013-05-09 00:36:23 +02:00
parent 271ec25b43
commit a3c24bc7c8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
org-contacts.el
View file

@ -873,7 +873,8 @@ to do our best."
(bday (org-contacts-vcard-escape (cdr (assoc-string org-contacts-birthday-property properties)))) (bday (org-contacts-vcard-escape (cdr (assoc-string org-contacts-birthday-property properties))))
(addr (cdr (assoc-string org-contacts-address-property properties))) (addr (cdr (assoc-string org-contacts-address-property properties)))
(nick (org-contacts-vcard-escape (cdr (assoc-string org-contacts-nickname-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))) (head (format "BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n" n name))
emails-list result phones-list)
(concat head (concat head
(when email (progn (when email (progn
(setq emails-list (org-contacts-split-property email)) (setq emails-list (org-contacts-split-property email))