changeset 112051:bb8e2da18b9d

Use make-temp-file in rst.el (Bug#7646). * textmodes/rst.el (rst-compile-pdf-preview) (rst-compile-slides-preview): Use make-temp-file.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 16 Dec 2010 09:11:21 +0800
parents 44c22a3327ec
children 9cd818c8f3e0
files lisp/ChangeLog lisp/textmodes/rst.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Dec 15 09:33:11 2010 +0800
+++ b/lisp/ChangeLog	Thu Dec 16 09:11:21 2010 +0800
@@ -1,3 +1,8 @@
+2010-12-16  Chong Yidong  <cyd@stupidchicken.com>
+
+	* textmodes/rst.el (rst-compile-pdf-preview)
+	(rst-compile-slides-preview): Use make-temp-file (Bug#7646).
+
 2010-12-15  Kevin Gallagher  <Kevin.Gallagher@boeing.com>
 
 	* emulation/edt-mapper.el: Override mapping of function keys so
--- a/lisp/textmodes/rst.el	Wed Dec 15 09:33:11 2010 +0800
+++ b/lisp/textmodes/rst.el	Thu Dec 16 09:11:21 2010 +0800
@@ -3307,7 +3307,7 @@
 (defun rst-compile-pdf-preview ()
   "Convert the document to a PDF file and launch a preview program."
   (interactive)
-  (let* ((tmp-filename "/tmp/out.pdf")
+  (let* ((tmp-filename (make-temp-file "rst-out" nil ".pdf"))
 	 (command (format "rst2pdf.py %s %s && %s %s"
 			  buffer-file-name tmp-filename
 			  rst-pdf-program tmp-filename)))
@@ -3322,7 +3322,7 @@
 (defun rst-compile-slides-preview ()
   "Convert the document to an S5 slide presentation and launch a preview program."
   (interactive)
-  (let* ((tmp-filename "/tmp/slides.html")
+  (let* ((tmp-filename (make-temp-file "rst-slides" nil ".html"))
 	 (command (format "rst2s5.py %s %s && %s %s"
 			  buffer-file-name tmp-filename
 			  rst-slides-program tmp-filename)))