diff options
author | Reiner Steib <Reiner.Steib@gmx.de> | 2007-07-22 18:55:07 +0000 |
---|---|---|
committer | Reiner Steib <Reiner.Steib@gmx.de> | 2007-07-22 18:55:07 +0000 |
commit | 49bbf1b953d9ef97fa9398a90e66b6f9fc340321 (patch) | |
tree | 4bb6a56330df1b1015d15f8463f334b70778e85a /lisp/textmodes/reftex.el | |
parent | af849acd5d7cfb41c5ab91095a9757575c3da826 (diff) | |
download | emacs-49bbf1b953d9ef97fa9398a90e66b6f9fc340321.tar.gz |
(reftex-access-parse-file): Do not risk destroying an existing buffer.
Diffstat (limited to 'lisp/textmodes/reftex.el')
-rw-r--r-- | lisp/textmodes/reftex.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 4b34c67aee3..200d271d631 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -1331,10 +1331,8 @@ Valid actions are: readable, restore, read, kill, write." (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 @@ Valid actions are: readable, restore, read, kill, write." ) (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)))) |