* org-attach.el (org-attach-reveal, org-attach-reveal-in-emacs): Fix the docstrings.

This commit is contained in:
Nicolas Richard 2012-12-12 19:09:58 +01:00 committed by Bastien Guerry
parent f82004840a
commit da0276cba5
1 changed files with 3 additions and 3 deletions

View File

@ -425,14 +425,14 @@ This ignores files starting with a \".\", and files ending in \"~\"."
(directory-files dir nil "[^~]\\'"))))
(defun org-attach-reveal (&optional if-exists)
"Show the attachment directory of the current task in dired."
"Show the attachment directory of the current task.
This will attempt to use an external program to show the directory."
(interactive "P")
(let ((attach-dir (org-attach-dir (not if-exists))))
(and attach-dir (org-open-file attach-dir))))
(defun org-attach-reveal-in-emacs ()
"Show the attachment directory of the current task.
This will attempt to use an external program to show the directory."
"Show the attachment directory of the current task in dired."
(interactive)
(let ((attach-dir (org-attach-dir t)))
(dired attach-dir)))