From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sun, 22 Jul 2007 09:02:02 +0000 (+0000)
Subject: (reftex-access-parse-file): Create parse file in a way that does not interfere
X-Git-Tag: emacs-pretest-22.1.90~1229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0f55a1df2268d4639fd80ef1fab11f355bb7f5c;p=emacs.git

(reftex-access-parse-file): Create parse file in a way that does not interfere
with recentf.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b3c70b7ed1..5275d798a83 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-22  Ralf Angeli  <angeli@caeruleus.net>
+
+	* textmodes/reftex.el (reftex-access-parse-file): Create parse
+	file in a way that does not interfere with recentf.
+
 2007-07-21  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
 	* image-dired.el (image-dired-sane-db-file): New func.
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 343a7c5a947..4b34c67aee3 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -1333,7 +1333,7 @@ Valid actions are: readable, restore, read, kill, write."
         (if (file-writable-p file)
             (progn
               (message "Writing parse file %s" (abbreviate-file-name file))
-              (find-file file)
+	      (set-buffer (get-buffer-create file))
               (erase-buffer)
               (insert (format ";; RefTeX parse info file\n"))
               (insert (format ";; File: %s\n" master))
@@ -1358,7 +1358,7 @@ Valid actions are: readable, restore, read, kill, write."
                          (t (print x))))
                  list))
               (insert "))\n\n")
-              (save-buffer 0)
+	      (write-region (point-min) (point-max) file nil 'silent)
               (kill-buffer (current-buffer)))
           (error "Cannot write to file %s" file)))
       t))))