瀏覽代碼

Fix parenthesis bug

Carsten Dominik 15 年之前
父節點
當前提交
7a3bfe1f55
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org-mobile.el

+ 2 - 2
lisp/org-mobile.el

@@ -306,8 +306,8 @@ agenda view showing the flagged items."
 	(setq target-path (expand-file-name link-name org-mobile-directory)
 	      target-dir (file-name-directory target-path))
 	(unless (file-directory-p target-dir)
-	  (make-directory target-dir 'parents)
-	  (copy-file file target-path 'ok-if-exists))))
+	  (make-directory target-dir 'parents))
+	(copy-file file target-path 'ok-if-exists)))
     (setq file (expand-file-name org-mobile-capture-file
 				 org-mobile-directory))
     (unless (file-exists-p file)