Browse Source

Merge branch 'maint'

Bastien Guerry 11 years ago
parent
commit
df53dce911
1 changed files with 3 additions and 1 deletions
  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)