瀏覽代碼

Merge branch 'maint'

Bastien Guerry 11 年之前
父節點
當前提交
df53dce911
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/org-attach.el

+ 3 - 1
lisp/org-attach.el

@@ -208,7 +208,9 @@ the directory and (if necessary) the corresponding ID will be created."
 	    (save-excursion
 	      (save-restriction
 		(widen)
-		(goto-char org-entry-property-inherited-from)
+		(if (marker-position org-entry-property-inherited-from)
+		    (goto-char org-entry-property-inherited-from)
+		  (org-back-to-heading t))
 		(let (org-attach-allow-inheritance)
 		  (org-attach-dir create-if-not-exists-p)))))
       (org-attach-check-absolute-path attach-dir)