Changes to reftex/lisp/reftex-base.el,v

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    07/07/22 11:30:54

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- reftex-base.el      22 Jul 2007 07:38:58 -0000      1.4
+++ reftex-base.el      22 Jul 2007 11:30:54 -0000      1.5
@@ -1105,10 +1105,8 @@
       (put docstruct-symbol 'modified nil)
       (save-excursion
         (if (file-writable-p file)
-            (progn
+            (with-temp-file file
               (message "Writing parse file %s" (abbreviate-file-name file))
-             (set-buffer (get-buffer-create file))
-              (erase-buffer)
               (insert (format ";; RefTeX parse info file\n"))
               (insert (format ";; File: %s\n" master))
               (insert (format ";; User: %s (%s)\n\n"
@@ -1131,9 +1129,7 @@
                           )
                          (t (print x))))
                  list))
-              (insert "))\n\n")
-             (write-region (point-min) (point-max) file nil 'silent)
-              (kill-buffer (current-buffer)))
+              (insert "))\n\n"))
           (error "Cannot write to file %s" file)))
       t))))