* lisp/ob-R.el: Added tikzDevice support.

This commit is contained in:
Thomas Dye 2011-11-26 21:17:00 -10:00 committed by Eric Schulte
parent 55e4d0e695
commit 811f9160de
1 changed files with 2 additions and 1 deletions

View File

@ -197,6 +197,7 @@ current code buffer."
'((:bmp . "bmp") '((:bmp . "bmp")
(:jpg . "jpeg") (:jpg . "jpeg")
(:jpeg . "jpeg") (:jpeg . "jpeg")
(:tex . "tikz")
(:tiff . "tiff") (:tiff . "tiff")
(:png . "png") (:png . "png")
(:svg . "svg") (:svg . "svg")
@ -214,7 +215,7 @@ current code buffer."
(setq device (or (and device (cdr (assq (intern (concat ":" device)) (setq device (or (and device (cdr (assq (intern (concat ":" device))
devices))) "png")) devices))) "png"))
(setq filearg (setq filearg
(if (member device '("pdf" "postscript" "svg")) "file" "filename")) (if (member device '("pdf" "postscript" "svg" "tikz")) "file" "filename"))
(setq args (mapconcat (setq args (mapconcat
(lambda (pair) (lambda (pair)
(if (member (car pair) allowed-args) (if (member (car pair) allowed-args)