From aaf0bb396776ef05951f28420b5b4c7a823d9e8a Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 10 Mar 2011 11:25:17 +0100 Subject: [PATCH] (org-attach-store-link-p): Use 'attached instead of 'attach-dir. --- lisp/org-attach.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-attach.el b/lisp/org-attach.el index 7111b7961..e73e01e13 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -105,7 +105,7 @@ ln create a hard link. Note that this is not supported :type '(choice (const :tag "Don't store link" nil) (const :tag "Link to origin location" t) - (const :tag "Link to the attach-dir location" 'attach-dir))) + (const :tag "Link to the attach-dir location" 'attached))) ;;;###autoload (defun org-attach () @@ -297,7 +297,7 @@ METHOD may be `cp', `mv', or `ln', default taken from `org-attach-method'." ((eq method 'ln) (add-name-to-file file fname))) (org-attach-commit) (org-attach-tag) - (cond ((eq org-attach-store-link-p 'attach-dir) + (cond ((eq org-attach-store-link-p 'attached) (org-attach-store-link fname)) ((eq org-attach-store-link-p t) (org-attach-store-link file))) -- 2.11.4.GIT