Changes to reftex/lisp/reftex-base.el,v

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    07/07/22 07:38:58

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- reftex-base.el      10 Mar 2007 17:21:32 -0000      1.3
+++ reftex-base.el      22 Jul 2007 07:38:58 -0000      1.4
@@ -361,6 +361,7 @@
         (nth 1 entry)
       t)))
 
+;;;###autoload
 (defun reftex-set-cite-format (value)
   "Set the document-local value of `reftex-cite-format'.
 When such a value exists, it overwrites the setting given with
@@ -1106,7 +1107,7 @@
         (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))
@@ -1131,7 +1132,7 @@
                          (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))))