mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

(org-attach-store-link-p): Use 'attached instead of 'attach-dir.

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

4
lisp/org-attach.el
View File

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