mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

ox-icalendar: Small refactoring

Browse source 
* lisp/ox-icalendar.el (org-icalendar--combine-files): Small refactoring.
This commit is contained in:
Nicolas Goaziou 2013-04-21 10:05:39 +02:00
parent d408d721c3
commit 7528c726dd
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ox-icalendar.el
View file

@ -945,9 +945,8 @@ files to build the calendar from."
;; Owner.
user-full-name
;; Timezone.
(if (org-string-nw-p org-icalendar-timezone)
org-icalendar-timezone
(cadr (current-time-zone)))
(or (org-string-nw-p org-icalendar-timezone)
(cadr (current-time-zone)))
;; Description.
org-icalendar-combined-description
;; Contents.
@ -958,7 +957,8 @@ files to build the calendar from."
(catch 'nextfile
(org-check-agenda-file file)
(with-current-buffer (org-get-agenda-file-buffer file)
(let ((marks (cdr (assoc (expand-file-name file) restriction))))
(let ((marks (cdr (assoc (expand-file-name file)
restriction))))
;; Create ID if necessary.
(when org-icalendar-store-UID
(org-icalendar-create-uid file t marks))