[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex.el, v [EMACS_22_BAS
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex.el, v [EMACS_22_BASE] |
Date: |
Sun, 22 Jul 2007 18:55:11 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Reiner Steib <rsteib> 07/07/22 18:55:10
Index: textmodes/reftex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/reftex.el,v
retrieving revision 1.73.2.1
retrieving revision 1.73.2.2
diff -u -b -r1.73.2.1 -r1.73.2.2
--- textmodes/reftex.el 22 Jul 2007 09:02:02 -0000 1.73.2.1
+++ textmodes/reftex.el 22 Jul 2007 18:55:07 -0000 1.73.2.2
@@ -1331,10 +1331,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"
@@ -1357,9 +1355,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))))