From: Reiner Steib 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 + + * 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))))