# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1227843041 0
# Node ID af179ae8c25b7a91a11bb5e01f518d94a13f7dab
# Parent  12983da03c671e7e4fbec6fde7be4b99d9271c7a
(format-write-file): Improve previous doc fix.

diff -r 12983da03c67 -r af179ae8c25b lisp/format.el
--- a/lisp/format.el	Thu Nov 27 20:18:34 2008 +0000
+++ b/lisp/format.el	Fri Nov 28 03:30:41 2008 +0000
@@ -361,16 +361,18 @@
 (defun format-write-file (filename format &optional confirm)
   "Write current buffer into file FILENAME using some FORMAT.
 Make buffer visit that file and set the format as the default for future
-saves.  If the buffer is already visiting a file, you can specify a directory
-name as FILENAME, to write a file of the same old name in that directory.
+saves (see below).  If the buffer is already visiting a file, you can
+specify a directory name as FILENAME, to write a file of the same old name
+in that directory.
 
 If optional third arg CONFIRM is non-nil, ask for confirmation before
 overwriting an existing file.  Interactively, confirmation is required
 unless you supply a prefix argument.
 
-The buffer-local value of `buffer-file-format' is set to FORMAT,
-and any original elements (except those with a non-nil `preserve' flag;
-see the documentation of `format-alist') are replaced."
+This function sets the buffer-local value of `buffer-file-format'
+to FORMAT, then appends any elements from the previous value with
+a non-nil `preserve' flag (see the documentation of `format-alist'),
+if they are not already present in the new value."
   (interactive
    ;; Same interactive spec as write-file, plus format question.
    (let* ((file (if buffer-file-name