diff options
author | Bastien Guerry <bzg@altern.org> | 2011-03-10 11:25:17 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-03-10 11:25:17 +0100 |
commit | aaf0bb396776ef05951f28420b5b4c7a823d9e8a (patch) | |
tree | f127abd7e1af06c1675786925d6ce0afc2f45e95 | |
parent | b1909f0afa9fadf0b96c4c3d278b3ae95f07f6da (diff) | |
download | org-mode-aaf0bb396776ef05951f28420b5b4c7a823d9e8a.tar.gz |
(org-attach-store-link-p): Use 'attached instead of 'attach-dir.
-rw-r--r-- | lisp/org-attach.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-attach.el b/lisp/org-attach.el index 7111b79..e73e01e 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))) |