mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-15 17:00:45 +00:00
Code

(org-attach-store-link-p): Use `t' instead of 'origin for backward compatibility.

Browse Source
This commit is contained in:
Bastien Guerry 2011-03-10 11:22:33 +01:00
parent b814d83b51
commit b1909f0afa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-attach.el
View File

@ -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)))))