diff options
author | Bastien Guerry <bzg@altern.org> | 2011-03-10 11:22:33 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-03-10 11:22:33 +0100 |
commit | b1909f0afa9fadf0b96c4c3d278b3ae95f07f6da (patch) | |
tree | 9d165b5a22a89bbe34f454f9dbd51bee8f9dd995 | |
parent | b814d83b513b96740e65af4de0744a382f5ae8b6 (diff) | |
download | org-mode-b1909f0afa9fadf0b96c4c3d278b3ae95f07f6da.tar.gz |
(org-attach-store-link-p): Use `t' instead of 'origin for backward compatibility.
-rw-r--r-- | lisp/org-attach.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-attach.el b/lisp/org-attach.el index f87d428..7111b79 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -104,7 +104,7 @@ ln create a hard link. Note that this is not supported :group 'org-attach :type '(choice (const :tag "Don't store link" nil) - (const :tag "Link to origin location" 'origin) + (const :tag "Link to origin location" t) (const :tag "Link to the attach-dir location" 'attach-dir))) ;;;###autoload @@ -297,10 +297,10 @@ 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 'origin) - (org-attach-store-link file)) - ((eq org-attach-store-link-p 'attach-dir) - (org-attach-store-link fname))) + (cond ((eq org-attach-store-link-p 'attach-dir) + (org-attach-store-link fname)) + ((eq org-attach-store-link-p t) + (org-attach-store-link file))) (if visit-dir (dired attach-dir) (message "File \"%s\" is now a task attachment." basename))))) |