[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100313: Use make-temp-file in rst.el (Bug#7646).

[Chong Yidong]

------------------------------------------------------------
revno: 100313
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Thu 2010-12-16 09:11:21 +0800
message:
  Use make-temp-file in rst.el (Bug#7646).
  
  * textmodes/rst.el (rst-compile-pdf-preview)
  (rst-compile-slides-preview): Use make-temp-file.
modified:
  lisp/ChangeLog
  lisp/textmodes/rst.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-15 01:26:56 +0000
+++ b/lisp/ChangeLog    2010-12-16 01:11:21 +0000
@@ -1,3 +1,8 @@
+2010-12-16  Chong Yidong  <address@hidden>
+
+       * textmodes/rst.el (rst-compile-pdf-preview)
+       (rst-compile-slides-preview): Use make-temp-file (Bug#7646).
+
 2010-12-15  Kevin Gallagher  <address@hidden>
 
        * emulation/edt-mapper.el: Override mapping of function keys so

=== modified file 'lisp/textmodes/rst.el'
--- a/lisp/textmodes/rst.el     2010-01-13 08:35:10 +0000
+++ b/lisp/textmodes/rst.el     2010-12-16 01:11:21 +0000
@@ -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)))