浏览代码

Merge branch 'maint'

Nicolas Goaziou 7 年之前
父节点
当前提交
0c9feb660a
共有 1 个文件被更改,包括 7 次插入4 次删除
  1. 7 4
      lisp/org-capture.el

+ 7 - 4
lisp/org-capture.el

@@ -1606,12 +1606,15 @@ The template may still contain \"%?\" for cursor positioning."
 		  (replace-match "\\1" nil nil v-a)
 		v-a))
 	 (v-n user-full-name)
-	 (v-k (and (marker-buffer org-clock-marker)
-		   (org-no-properties org-clock-heading)))
+	 (v-k (if (marker-buffer org-clock-marker)
+		  (org-no-properties org-clock-heading)
+		""))
 	 (v-K (if (marker-buffer org-clock-marker)
 		  (org-make-link-string
-		   (buffer-file-name (marker-buffer org-clock-marker))
-		   org-clock-heading)))
+		   (format "%s::%s"
+			   (buffer-file-name (marker-buffer org-clock-marker))
+			   (org-no-properties org-clock-heading)))
+		""))
 	 (v-f (or (org-capture-get :original-file-nondirectory) ""))
 	 (v-F (or (org-capture-get :original-file) ""))
 	 (org-capture--clipboards