(format-write-file): Improve previous doc fix.

2 files changed, 11 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76de1401c9a..b85f3ffbc70 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-28  Glenn Morris  <rgm@gnu.org>
+
+        * format.el (format-write-file): Improve previous doc fix.
+
 2008-11-27  Chong Yidong  <cyd@stupidchicken.com>
 
         * simple.el (use-empty-active-region, use-region-p)
diff --git a/lisp/format.el b/lisp/format.el
index 8e114c83b5b..77ab5e952b0 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -361,16 +361,18 @@ one of the formats defined in `format-alist', or a list of such symbols."
 (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