From c80d5b9c2763e368481fcedc3ab5cf7bcdbca405 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 6 Jul 2010 09:44:31 +0200 Subject: [PATCH] Capture: Expand template file name --- lisp/org-capture.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index b3db087a0..c689d6de4 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -659,13 +659,14 @@ already gone." (let* ((txt (org-capture-get :template)) (reversed (org-capture-get :prepend)) (target-entry-p (org-capture-get :target-entry-p)) - level beg end) + level beg end file) ;; Get the full template (cond ((and (listp txt) (eq (car txt) 'file)) - (if (file-exists-p (nth 1 txt)) - (setq txt (org-file-contents (nth 1 txt))) + (if (file-exists-p + (setq file (expand-file-name (nth 1 txt) org-directory))) + (setq txt (org-file-contents file)) (setq txt (format "Template file %s not found" (nth 1 txt))))) ((and (listp txt) (eq (car txt) 'function)) (if (fboundp (nth 1 txt))