From a0f55a1df2268d4639fd80ef1fab11f355bb7f5c Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sun, 22 Jul 2007 09:02:02 +0000 Subject: [PATCH] (reftex-access-parse-file): Create parse file in a way that does not interfere with recentf. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/reftex.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * 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 * 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)))) -- 2.39.5