Parcourir la source

ox-icalendar: Small refactoring

* lisp/ox-icalendar.el (org-icalendar--combine-files): Small refactoring.
Nicolas Goaziou il y a 12 ans
Parent
commit
7528c726dd
1 fichiers modifiés avec 4 ajouts et 4 suppressions
  1. 4 4
      lisp/ox-icalendar.el

+ 4 - 4
lisp/ox-icalendar.el

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