Просмотр исходного кода

taskjuggler export: take buffer local variables into account

* org-taskjuggler.el (org-export-as-taskjuggler): Clone the
buffer local variables to the temporary buffer before
exporting.

The taskjuggler exporter handles properties. When defining buffer
local priorities the export fails however, as buffer local variables
are not taken into account since the export happens in a new temporary
buffer. This commit fixes that by cloning the relevant buffer local
variables into the temporary buffer before exporting.
Christian Egli 14 лет назад
Родитель
Сommit
14304f6dcd
1 измененных файлов с 2 добавлено и 0 удалено
  1. 2 0
      lisp/org-taskjuggler.el

+ 2 - 0
lisp/org-taskjuggler.el

@@ -277,6 +277,7 @@ defined in `org-export-taskjuggler-default-reports'."
 		      (file-name-nondirectory buffer-file-name))
 		      (file-name-nondirectory buffer-file-name))
 		     org-export-taskjuggler-extension)))
 		     org-export-taskjuggler-extension)))
 	 (buffer (find-file-noselect filename))
 	 (buffer (find-file-noselect filename))
+	 (old-buffer (current-buffer))
 	 (org-export-taskjuggler-old-level 0)
 	 (org-export-taskjuggler-old-level 0)
 	 task resource)
 	 task resource)
     (unless tasks
     (unless tasks
@@ -304,6 +305,7 @@ defined in `org-export-taskjuggler-default-reports'."
 	(setcar tasks (push (cons "version" version) task))))
 	(setcar tasks (push (cons "version" version) task))))
     (with-current-buffer buffer
     (with-current-buffer buffer
       (erase-buffer)
       (erase-buffer)
+      (org-clone-local-variables old-buffer "^org-")
       (org-taskjuggler-open-project (car tasks))
       (org-taskjuggler-open-project (car tasks))
       (insert org-export-taskjuggler-default-global-properties)
       (insert org-export-taskjuggler-default-global-properties)
       (insert "\n")
       (insert "\n")